Pregunta para dante en la hoja de ctacte

Si en la hoja cta cte también quiero que tire la fecha automaticamen y me permita saltar a la izquierda columna por columna hasta

La G y baje una fila y vuelva a la columna A

Tené en cuenta que voy agregar más hoja así que si se puede que las macros sean indepedientes de cada hoja mejor

1 Respuesta

Respuesta
1

Estos eventos van en la hoja cta cte

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Row > 3 Then
            Application.OnKey "{Enter}", "fecha"
            'Application.OnKey "{Enter}"
        End If
    End If
    '
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        If Target.Value = "" Then
            Cells(Target.Row, "A").Select
        End If
    End If
End Sub

¡Gracias! danate

Perdón Dante me equivoque tiene que saltar a la derecha no a la izquierda columna por columna hasta la columnaG bajar una fila y posicionarse en la columna A

También hay que poner los eventos en activate

Private Sub Worksheet_Activate()
    Application.OnKey "{Enter}", "fecha"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas