Prompt to Fill in Values

[GCRDelphi]

I have a list that has the following columns:
A = PO Number B= Status C= Description D= Sup. Sig E= Fin. Sig G= Man Sig
H=Pur Sig

I want to know if there's a Macro or something I could create that if Colum
B is filled with "Aproved" it checkes that columns D-E-F-G-H have a value and
if blank ask for the value to fill it in automatically not just do a prompt
requesting that the person fill it in manually. For example that a dialoge
box would pop-up with something like "Please Provide Sup. Sig: [Input Box
here]" and when entered column D would be filled with the input provided by
the user.

Thank you for your help.

 

[GTVT06]

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

 

[GCRDelphi]

That's what I needed.

Thank you again for your help.

 

[GTVT06]

No problem. Glad I could help