Prompt to Fill in Values
 

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.
--
Gabriel Camarena R.
Delphi Tijuana IT Support

Prompt to Fill in Values
 

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

Prompt to Fill in Values
 

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

Prompt to Fill in Values
 

No problem. Glad I could help