Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Prompt to Fill in Values
No problem. Glad I could help
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Getting a prompt to automatically fill a cell | Excel Discussion (Misc queries) | |||
VBA for prompt to fill in the certain cell | Excel Programming | |||
How prompt Excel user to fill cell with text, i.e., proposal name | Excel Discussion (Misc queries) | |||
Prompt before updating values | Excel Worksheet Functions | |||
User Prompt to Confirm Values | Excel Programming |