Código para Módulo
Sub info()
Dim fechaactual As Date
fechaactual = Date
numerodedatos = Hoja1.Range("E" & Rows.Count).End(xlUp).Row
For fila = 3 To numerodedatos
detalle = Hoja1.Cells(fila, 5).Value
fec = Hoja1.Cells(fila, 6).Value
If detalle = "Entregado" And fec = "" Then
Hoja1.Cells(fila, 6) = fechaactual
End If
If detalle = "Pendiente" Then
Hoja1.Cells(fila, 6) = ""
End If
Next
End Sub
Código dentro de la hoja para llamar a la macro
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
info
Application.EnableEvents = True
End Sub
Descargar Ejercicio Excel
Gracias por los soportes.