Search In a Macro/VBA
 

It sounds simple but its really causing me problems.. Here is what I am
currently having to do..
If Range("J2") < "Warn" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Warning"
End If
If Range("N2") = "PSSNAP" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Sales"
End If
If Range("L2") = "2669" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Warning"
End If
Ok. This list goes on an on.. I basically have about 15 more strings like
this to add on.. Is there not away to have the macro search through the
columns and have it input my answers on the corresponding cell in column "Q"
if the data from column J/L matches what i need? I need help on this bad.
ASAP. Thanks a ton!

Search In a Macro/VBA
 

Not exactly sure what you want but this idea might help. NO selections.

if range("j2")<"Warn" or range("N2")="PSSNAP" or _
range("l2")=2669 then range("q2")="Warning"

--
Don Guillett
SalesAid Software

"cbanks" wrote in message
...
It sounds simple but its really causing me problems.. Here is what I am
currently having to do..
If Range("J2") < "Warn" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Warning"
End If
If Range("N2") = "PSSNAP" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Sales"
End If
If Range("L2") = "2669" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Warning"
End If
Ok. This list goes on an on.. I basically have about 15 more strings like
this to add on.. Is there not away to have the macro search through the
columns and have it input my answers on the corresponding cell in column
"Q"
if the data from column J/L matches what i need? I need help on this bad.
ASAP. Thanks a ton!

Search In a Macro/VBA
 

Find would not be any simpler in terms of the code.

You can simplify your code though

If Range("J2") < "Warn" Then Range("Q2").Value = "Warning"
If Range("N2") = "PSSNAP" Then Range("Q2").Value = "Sales"
If Range("L2") = "2669" Then Range("Q2").Value = "Warning"



--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"cbanks" wrote in message
...
It sounds simple but its really causing me problems.. Here is what I am
currently having to do..
If Range("J2") < "Warn" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Warning"
End If
If Range("N2") = "PSSNAP" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Sales"
End If
If Range("L2") = "2669" Then
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Warning"
End If
Ok. This list goes on an on.. I basically have about 15 more strings like
this to add on.. Is there not away to have the macro search through the
columns and have it input my answers on the corresponding cell in column
"Q"
if the data from column J/L matches what i need? I need help on this bad.
ASAP. Thanks a ton!