Como puedo desplazarme por celdas mediante macros
estoy haciendo una pantalla en una hoja en excel donde los datos de entrada son las celdas: cedula (G6) nombre (L6) apellido (Q6) dirección (G8) y teléfono (G10) donde necesito una vez que entre el dato en la cedula, al presionar la tecla enter el cursor se posesione en la celda L6 que es el nombre y na vez que se entre e l da to en esta celda al presionar la tecla enter se posesione en la celda Q6 que es el apellido, y asi sucesivamente hasta completar la rutina y colocarse nuevamente en la cedula,
gracias por la colaboración prestada en su pagina que es de gran ayuda para los que estamos aprendiendo
desde margarita
Jaiver Gil
1 respuesta
En el código VBa de "ThisWorkbook" pon el siguiente:
Option Explicit
Dim antCelda As String
Dim snAuto As Boolean
Private Sub Workbook_Open()
antCelda = ActiveCell.Address
snAuto = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim newCelda As String
If snAuto Then Exit Sub
snAuto = True
Select Case antCelda
Case "$G$6": newCelda = "$L$6"
Case "$L$6": newCelda = "$Q$6"
Case "$Q$6": newCelda = "$G$8"
Case "$G$8": newCelda = "$G$10"
Case "$G$10": newCelda = "$G$6"
Case Else: newCelda = "$G$6"
End Select
Sh.Range(newCelda).Select
antCelda = newCelda
snAuto = False
End Sub
Creo que te funcionará.
gracias esta muy buena la rutina ahora voy a ponerla a correr con mi pantalla diseñada en excel para poder cargar datos a un histórico de empleados
