Puedes revisar la macro que me enviaste?
Gracias por la macro que me pasaste funciona muy bien para crear hojas nuevas con el titulo deseado,
Sin embargo quería pedir tu ayuda para que en cada hoja creada pueda copiar también el formato del recibo (Una copia) desde la celda A1 hasta la celda M51.
Osea ampliar la macro para que me incluya una copia del recibo de cada cliente. Y que quede alli para su impresion
O la posibilidad (No se si es posible) de crear un libro nuevo con el nombre de los clientes y añadir una copia del recibo desde la celda A1 hasta la celda M51, esto cada vez que cambie de cliente.
Si es posible claro
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Sub Grabar_Aviso()
'Por Dante Amor
' Grabar_Aviso Macro
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("Aviso de Cobro")
If h1.Range("C11").Value = "" Then
MsgBox "Debes seleccionar un nombre", vbExclamation
Exit Sub
End If
'
nombre = Left(h1.Range("C11").Value, 30)
existe = False
For Each h In Sheets
If LCase(h.Name) = LCase(nombre) Then
existe = True
Exit For
End If
Next
If existe Then
res = MsgBox("Ya existe una hoja con el nombre : " & nombre & vbCr & vbCr & _
"Deseas borrar la hoja y crear la nueva", vbQuestion + vbYesNo)
If res = vbNo Then
Exit Sub
Else
Sheets(nombre).Delete
End If
End If
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = nombre
h1.range("A1:M51").copy activesheet.range("A1")
Application.ScreenUpdating = True
MsgBox "Hoja creada con el nombre : " & nombre
End SubAl final de mi respuesta hay un botón para valorar: Votar o Excelente. No olvides valorar.
