Visual Basic para Aplicaciones - Correlativo inteligente

Life is soft - evento anual de software empresarial
   
Vista:

Correlativo inteligente

Publicado por Mauricio (14 intervenciones) el 18/03/2015 17:50:32
Amigos buenas tardes,
tengo que hacer un informe en excel y debo hacer una macro que al final del día genere una nueva hoja para el día siguiente, pero se me presenta el problema que al colocar el nombre de forma automática a la hoja no me funciona ya que tengo 2 hojas con nombres fijos y diferentes a los de los días, este es el código que uso para cambiar el nombre de forma automática y correlativa pero me reemplaza los otros que debo dejar con nombre fijo:

Sub Nuevo_Dia()
'
' Acceso directo: CTRL+w
'
Range("A1:U66").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveWindow.Zoom = 65
Range("T1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='1'!RC+1"

'Asignacion de nombre correlativo a Hoja nueva

nhojas = Sheets.Count
conteo = 2
hoja = Worksheets(3).Activate
Do While conteo <= nhojas
ActiveSheet.Name = conteo
conteo = conteo + 1
If conteo = nhojas + 1 Then Exit Sub
Worksheets(conteo).Activate
Loop
conteo = 1
'#####
Range("T2").Select

End Sub

ojala alguien me pueda ayudar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder