Hacer scroll una una hoja hasta la fila grabada desde un formulario
publicado
Tengo un formulario que graba en la última fila vacía que se encuentra de la hoja "Datos". Quisiera que después de grabar el registro, o al cerrar el formulario, la hoja excel hiciese el scroll automáticamente para situarse en la fila en la que se ha grabado el registro. Lo que pretendo es que si lanzo el formulario cuando tengo en pantalla las filas 1 a 20 (por ejemplo), pero el registro se graba en la 300 (primera fila vacía), vea en pantalla dicha fila sin tener que ir a buscarla con el scroll.
Private Sub cmdRegistrar_Click()
Set TransRowRng = ThisWorkbook.Worksheets("Datos").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("Datos")
.Cells(NewRow, 1).Value = oficina
.Cells(NewRow, 2).Value = cmbEmpleado
.Cells(NewRow, 3).Value = cmbTipocliente
.Cells(NewRow, 4).Value = dtpFecha
End With
GoTo fin
Exit Sub
fin:
Unload Me
ThisWorkbook.Worksheets("Datos").Activate
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo un formulario que graba en la última fila vacía que se encuentra de la hoja "Datos". Quisiera que después de grabar el registro, o al cerrar el formulario, la hoja excel hiciese el scroll automáticamente para situarse en la fila en la que se ha grabado el registro. Lo que pretendo es que si lanzo el formulario cuando tengo en pantalla las filas 1 a 20 (por ejemplo), pero el registro se graba en la 300 (primera fila vacía), vea en pantalla dicha fila sin tener que ir a buscarla con el scroll.
Private Sub cmdRegistrar_Click()
Set TransRowRng = ThisWorkbook.Worksheets("Datos").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("Datos")
.Cells(NewRow, 1).Value = oficina
.Cells(NewRow, 2).Value = cmbEmpleado
.Cells(NewRow, 3).Value = cmbTipocliente
.Cells(NewRow, 4).Value = dtpFecha
End With
GoTo fin
Exit Sub
fin:
Unload Me
ThisWorkbook.Worksheets("Datos").Activate