Una macro que me copie una hoja y le de nombre en excel
Tengo una hoja que se llama formato y quiero crear una macro donde me agregue una nueva hoja, me copie la información y adicional que le de el nombre a la nueva hoja que esta ubicado en la celda B1 de la hoja de formato, no se si me haga entender pero adjunto la macro que tengo hasta el momento agradezco a quien me pueda ayudar.
Sub Macrocopia()
'
' Macrocopia Macro
'
'
Sheets("formato").Select
Range("A1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:H52").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("base").Select
End Sub
1 Respuesta
Respuesta de fejoal
2
.27.04.17
Buenas tardes, Dumar
Aquí te paso tu código modificado para que coloque el nombre que indiques en la celda B1 a la nueva hoja.
Sub Macrocopia()
'
' Macrocopia Macro
'
'
Sheets("formato").Select
HojaNueva = ActiveSheet.Range("B1").Value
Range("A1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:H52").Copy
Sheets.Add After:=ActiveSheet
If Len(HojaNueva) > 0 Then ActiveSheet.Name = HojaNueva
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("base").Select
End Sub.
