Excel VBA 2003 - autopopulación de fechas basadas en palabras clave - excel, vba, excel-vba

Buenas tardes,

Soy nuevo en este foro y en VBA también, pero conozco los conceptos básicos. He buscado en todas partes pero parece que no puedo encontrar el código correcto.

Básicamente tengo una hoja de cálculo que se ocupa de mis trabajos y tiene un "Abierto" y "Cerrado" y necesito fechas para rellenar cuando se seleccionan.

Column B = "Open" & "Closed" - this is done in a list format
Column D = Date opened which needs to relate to "Open" from Column B
Column J - Date closed which needs to relate to "Closed" from Column B

Esto debe aplicarse a Todas las columnas en B, D y J. Tengo un trabajo anterior, ¿es posible que comience en la siguiente celda en blanco?

He usado el siguiente código:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, D As Range, Inte As Range, r As Range
Set A = Range("B:B")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Inte
r.Offset(0, 2).Value = Date
Next r
Application.EnableEvents = True

End Sub

Esto solo pone una fecha en la columna D y se activa al escribir cualquier cosa en la columna B.

Gracias,

Jonny

Respuestas

ponga la fórmula = IF (B2 = "Abrir", "Fecha", "") en la celdab2 y arrastre hacia abajo hasta el final. ponga formula = IF (B3 = "Closed", TODAY (), "") en la celda j2 y arrastre hacia abajo hasta el final. Su declaración "la columna B dice Abierto, entonces necesito una fecha para rellenar en la columna D". ¿Qué fecha estás mencionando aquí? Déjame saber si esto es lo que necesitas.