Hoja nueva automática
Hola Amigos. Quiero lograr que al rellenar la última linea de la primera página de una hoja, se cree una hoja nueva y arrastre los saldos de la última linea de la hoja anterior.
Gracias
Gracias
1 Respuesta
Respuesta
1
Te paso el código para que duplique la hoja; te quedaría cambiarle el nombre al final.
. Invocas al Editor VBA (ALT + F11)
. En la hoja que quieras que ocurra esto escribe el siguiente código
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sName As String
If Target.Row >= 65536 Then
sName = ActiveSheet.Name
Sheets(sName).Copy Before:=Sheets(1)
ActiveCell.FormulaR1C1 = "=" & sName & "!R65536C1"
End If
End Sub
Esto hará que cuando cambies algo en la última fila se "dispare" este evento; ojo pues si debes escribir varias cosas en la última fila deberías ser más especifico con la celda que será la última en moficicarse.
La macro lo que hace es duplicar la hoja y poner en la celda A1 el contenido de la celda A65536 de la hoja anterior (por supuesto que todo esto debe ajustarse a las columnas reales).
. Invocas al Editor VBA (ALT + F11)
. En la hoja que quieras que ocurra esto escribe el siguiente código
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sName As String
If Target.Row >= 65536 Then
sName = ActiveSheet.Name
Sheets(sName).Copy Before:=Sheets(1)
ActiveCell.FormulaR1C1 = "=" & sName & "!R65536C1"
End If
End Sub
Esto hará que cuando cambies algo en la última fila se "dispare" este evento; ojo pues si debes escribir varias cosas en la última fila deberías ser más especifico con la celda que será la última en moficicarse.
La macro lo que hace es duplicar la hoja y poner en la celda A1 el contenido de la celda A65536 de la hoja anterior (por supuesto que todo esto debe ajustarse a las columnas reales).