That's what I needed.

Thank you again for your help.
--
Gabriel Camarena R.
Delphi Tijuana IT Support


"GTVT06" wrote:

hello,
You really didn't specify at which point you would like the macro to
trigger but...
Right click on the sheet tab. select view code, and paste this in:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim irow As Variant
irow = ActiveCell.Offset(-1, 0).Row
If Range("B" & irow).Value = "Aproved" Then
If Range("D" & irow).Value = "" Then Range("D" & irow).Value =
InputBox("please enter " & Range("D1").Value)
End If
If Range("B" & irow).Value = "Aproved" Then
If Range("E" & irow).Value = "" Then Range("E" & irow).Value =
InputBox("please enter " & Range("E1").Value)
End If
If Range("B" & irow).Value = "Aproved" Then
If Range("F" & irow).Value = "" Then Range("F" & irow).Value =
InputBox("please enter " & Range("F1").Value)
End If
If Range("B" & irow).Value = "Aproved" Then
If Range("G" & irow).Value = "" Then Range("G" & irow).Value =
InputBox("please enter " & Range("G1").Value)
End If
If Range("B" & irow).Value = "Aproved" Then
If Range("H" & irow).Value = "" Then Range("H" & irow).Value =
InputBox("please enter " & Range("H1").Value)
End If
End Sub