Validar datos en excel

[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 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

[Monimo]

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?

[Monimo]

Yo tengo esto y así me funciona sin problema:


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"


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.Row

Dim Colu As Integer
Colu = ActiveCell.Column

If Cells(Fila, Colu - 5).Value = "" Then
Cells(Fila, Colu - 5).Select
End If
End Sub

[FernandoML]

Antes de nada muchas gracias por contestar,

Ya lo he intentado pero al poner -6 como no existe ninguna columna detras de la columna A me da un error de depuración y no puedo entender el porque lo hace.

He modificado la parte tambien que me has dicho perdoname pero ha sido un error a la hora de escribirlo. Lo tengo puesto como tu me has dicho.

Dim Fila As Integer: Fila = ActiveCell.Row

Muchas gracias de nuevo por contestar

Iniciado por Monimo

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?

[Monimo]

Ya modifiqué tu código esto me corre sin ningun problema y me posiciona en A. Puedes probarlo si quieres =) Saludos.

Código vb:

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 Intersect(ActiveCell, Range(Rango_a_Comprobar)) Is Nothing Then
Exit Sub
Else
Rellenar_Cabecera
 
    End If
 
 
 
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.Row
 
Dim Colu As Integer
Colu = ActiveCell.Column
 
If Cells(Fila, Colu - 5).Value = "" Then
Cells(Fila, Colu - 5).Select
End If
End Sub