Hola, tengo un problema con mi macro, tengo una lista de datos y por cada dato genero la copia de una hoja modelo, el problema es cuando necesito agregar mas datos y vuelvo a ejecutar la macro, me genera otra hoja pero no con el nombre del ultimo dato agregado, si me pueden ayudar lo agradezco.
Saludos
Sub Generarhoja()
Dim HojaOrigen As Worksheet, HojaNueva As Worksheet
Set HojaOrigen = Sheets("UF_Dolar")
Dim ultfla As Long
ultfila = Range("A" & Rows.Count).End(xlUp).Row
u = ultfila - 1
'para recorrer los registros del listado
For i = 1 To u
'desactivamos la actualización/refresco de pantalla
Hola, tengo un problema con mi macro, tengo una lista de datos y por cada dato genero la copia de una hoja modelo, el problema es cuando necesito agregar mas datos y vuelvo a ejecutar la macro, me genera otra hoja pero no con el nombre del ultimo dato agregado, si me pueden ayudar lo agradezco.
Saludos
Sub Generarhoja()
Dim HojaOrigen As Worksheet, HojaNueva As Worksheet
Set HojaOrigen = Sheets("UF_Dolar")
Dim ultfla As Long
ultfila = Range("A" & Rows.Count).End(xlUp).Row
u = ultfila - 1
'para recorrer los registros del listado
For i = 1 To u
'desactivamos la actualización/refresco de pantalla
Application.ScreenUpdating = False
'duplicamos la Hoja 'modelo'
Sheets("PPTO_UF").Copy after:=Worksheets(Worksheets.Count)
Set HojaNueva = Sheets(Worksheets.Count)
nombrehoja = Worksheets("UF_Dolar").Cells(1 + i, 1).Value
On Error GoTo ErrorHandler
'damos nombre a la hoja con el valor de la celda A0+i
HojaNueva.Name = nombrehoja
Next i
ErrorHandler:
u = nombrehoja
Exit Sub
'activamos la actualización/refresco de pantalla
Application.ScreenUpdating = True
'limpiamos el portapapeles
Application.CutCopyMode = False
End Sub