Cita:
Iniciado por FernandoML 
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 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
mmm y si en lugar de Cells(Fila,Colu-5).select pones Cells(Fila,Colu-6).select?
Copié tu código tal cual y me arrojó muchos errores, estas usando macros de excel??
Dim Fila As Integer: Fila = ActiveCell.Rows
esta parte la tuve que cambiar por Dim Fila As Integer: Fila = ActiveCell.Row Row sin la s y así ya me sale... ese es tu código tal cual?