Macro fecha pregunta para dante

Hola dante en el dam3 que te envíe por mail esta la explicación de lo que necesito ingresar fecha al apretar enter y borrar registro gracias

1 Respuesta

Respuesta
1

Primero resolvemos esta parte:

1. Necesito dos cosas la primera una macro que al posicionarme en la columna A y en cualquier celda y apreté enter me tire la fecha de hoy y el cursor salte a al celda de la derecha o sea a la columna B, en el caso que yo digite cualquier otra fecha que la tome también al apretar enter y salte a la celda de la derecha también

La siguiente macro va en los eventos de la hoja

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.DAM
    Application.OnKey "{13}", "Fecha"
    Application.OnKey "{Enter}", "Fecha"
End Sub

Nota: el 13 es par el enter del teclado y el Enter es para el teclado numérico.


La siguiente va en un módulo

Sub fecha()
'Por.Dante Amor
    If ActiveCell = "" Then
        ActiveCell = Date
    End If
    ActiveCell.Offset(0, 1).Select
End Sub

Te cambio la macro para el evento

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.DAM
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Row > 13 Then
            Application.OnKey "{Enter}", "Fecha"
        End If
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas