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.
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
0