Autocompletar
Hola mira es simple necesito una función macro que este atenta a cuando ingreso la letra "s" (no otra letra o palabra ni numero)en una celda de una determinada columna, en la celda a su derecha se ponga la fecha actual instantáneamente. O sea siempre que se ponga la letra "s" en una celda de esa columna, en la columna de al lado solo en ese celda que modifique se ponga la fecha, espero que me hayas entendido. Gracias desde ya martin
1 Respuesta
Respuesta de tavopz
1
Puedes hacerlo con la siguiente macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewEntry As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 1 Then
If Target = "s" Then
Range(Target.Address).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = Date
End If
End If
End Sub
Desde luego, la colocas en el código del WorkSheet.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewEntry As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 1 Then
If Target = "s" Then
Range(Target.Address).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = Date
End If
End If
End Sub
Desde luego, la colocas en el código del WorkSheet.
