Sencilla consulta
Publicado por JYM72 (8 intervenciones) el 14/04/2009 20:31:17
Soy nobato y preciso que me echeis una mano:
Tengo una hoja donde en la columna "A" introduzco "Nombre" (usuario a quien presto) y con:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
With Target(1, 3)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End Sub
Se activa en la columna "C" la "fecha" (fecha de prestamo). -hasta aquí perfecto.
Ahora quiero realizar otra columna la "F" que introduciré otro "Nombre" (que será la persona que realiza el retorno de lo prestado) y que quisiera que en la columna "G" (fecha de retorno) se comportase como en el caso de la entrega. -no sé si me explico-. Al poner el nombre del que devuelve, la fecha se muestra automáticamente.
Gracias de antemano.
Tengo una hoja donde en la columna "A" introduzco "Nombre" (usuario a quien presto) y con:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
With Target(1, 3)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End Sub
Se activa en la columna "C" la "fecha" (fecha de prestamo). -hasta aquí perfecto.
Ahora quiero realizar otra columna la "F" que introduciré otro "Nombre" (que será la persona que realiza el retorno de lo prestado) y que quisiera que en la columna "G" (fecha de retorno) se comportase como en el caso de la entrega. -no sé si me explico-. Al poner el nombre del que devuelve, la fecha se muestra automáticamente.
Gracias de antemano.
Valora esta pregunta


0