Ordenar hojas con macros excel
Hola angel
agradezco tu colaboracion ayudandome con la macro para ordenar hojas, con el codigo que me ayudaste.
Sub NuevaHoja()
Dim nombreHoja As String
nombreHoja = InputBox("Escriba un nombre para la nueva hoja:")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja
'Sheets("43").Select
Sheets("Hoja2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Sheets(nombreHoja).Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
agradezco tu colaboracion ayudandome con la macro para ordenar hojas, con el codigo que me ayudaste.
Sub NuevaHoja()
Dim nombreHoja As String
nombreHoja = InputBox("Escriba un nombre para la nueva hoja:")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja
'Sheets("43").Select
Sheets("Hoja2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Sheets(nombreHoja).Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
1 respuesta
Respuesta de angelcrisnor
1
Saludos, tu macro no organiza correctamente archivos cuando los nombres de las hojas son numéricos, por ejemplo en un archivo con 20 hojas con nombres del 1 al 20 organiza 1, 10, 11,12.. 19, 20, 2, 3... 9. - Fernando Acevedo
Si tienes alguna solución te agradecería la publicaras. Gracias - Fernando Acevedo