Hola a todos, espero me podais ayudar con un problema que tengo.
tengo un rango de celdas (F4:F10000), lo que intento es lo siguiente:
* Que una vez que he introducido el dato, se posicione el cursor en la Celda A y la fila en la que estoy situado (EJ: Si estoy en la celda F4 una vez que pulse enter, se posicione en la celda F1
* Cuando lo intento de esta manera no me sale.
Private Sub auto_open()
ThisWorkbook.Worksheets(1).OnEntry = "Comprobar_Datos"
End Sub
Private Sub Comprobar_Datos()
Dim Rango_a_Comprobar As String
Rango_a_Comprobar = "F4:F10000"
If Not Application.Intersect(Application, Range(Rango_a_Comprobar)) Is Nothing Then Rellenar_Cabecera
End Sub
Hasta aqui todo bien pero cuando intento posicionarme en la primera celda de la fila, una vez que valida se cambia a la columna B en vez de mantenerse en la columna A.
Private Sub Rellenar_Cabecera
Dim Fila As Integer: Fila = ActiveCell.Rows
Dim Colu As Integer: Colu = ActiveCell.Column
If Cells(Fila,Colu-5).Value = "" then
Cells(Fila,Colu-5).Select
End If
End Sub
Me podeis hechar una mano y decirme como lo puedo solucionar?
Muchas gracias a todos