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 de Dante Amor
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 SubNota: 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
