Hora y fecha
Hola. En una pregunta anterior me diste una subrutina para que se pusiera la fecha y la hora al ingresar un dato la cual me fue de gran utilidad, pero ahora quisiera saber si podría hacer lo mismo pero no en todos los renglones sino, para mi aplicación, cada tres renglones..
Gracias espero tu respuesta.
Gracias espero tu respuesta.
1 Respuesta
Respuesta de Elsa Matilde
1
Ok. Ingresare datos en las filas
A, B y C.. quiero que aparezca nomas en la A, después en DE, E y F solo en D... y así sucesivamente... gracias
A, B y C.. quiero que aparezca nomas en la A, después en DE, E y F solo en D... y así sucesivamente... gracias
Perdón, pero estábamos hablando de filas no de columnas...
¿Sería en 1, 4, 7 y así?
¿Sería en 1, 4, 7 y así?
A si si si.. perdón yo puse letras.. si son 1,4,7,10... etc
Esta es la rutina ajustada.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila As Double
'controla lo ingresado en A
If Target.Column = 1 Then
'obtiene el resto
fila = (Target.Row - 1) Mod 3
'si resto es 0 corresponde colocar fecha/hora
If fila = 0 Then
Target.Offset(0, 1).Value = Now()
End If
End If
End Sub
Saludos
Elsa
** Nuevo Manual Excel + Manual Introducción a las macros
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila As Double
'controla lo ingresado en A
If Target.Column = 1 Then
'obtiene el resto
fila = (Target.Row - 1) Mod 3
'si resto es 0 corresponde colocar fecha/hora
If fila = 0 Then
Target.Offset(0, 1).Value = Now()
End If
End If
End Sub
Saludos
Elsa
** Nuevo Manual Excel + Manual Introducción a las macros
