Worksheet If Statement in VBA
 

I am using following line of code:

Range("M" & vTargetRow).Formula = _
"=IF(AND(""F" & vTargetRow = "Standard Desktop"",""G" & vTargetRow =
"Standard 17" & """" & " Monitor""),1,"")"

Instead displaying 1 if condition true or <blank if false, it fill
TargetCell with "FALSE".

IF statemetn is fine if directely entered in Worksheet
(=IF(AND(F500="Standard Desktop",G500="Standard 17"&""""&" Monitor"),1,""))

Worksheet If Statement in VBA
 

Range("M" & vTargetRow).Formula "=IF(AND(F" & vTargetRow &"= ""Standard
Desktop"",G" & vTargetRow &"=""Standard 17"" & """""""" & ""
Monitor""),1,"""")"

"Atif" wrote in message
...
I am using following line of code:

Range("M" & vTargetRow).Formula = _
"=IF(AND(""F" & vTargetRow = "Standard Desktop"",""G" & vTargetRow =
"Standard 17" & """" & " Monitor""),1,"")"

Instead displaying 1 if condition true or <blank if false, it fill
TargetCell with "FALSE".

IF statemetn is fine if directely entered in Worksheet
(=IF(AND(F500="Standard Desktop",G500="Standard 17"&""""&"
Monitor"),1,""))

Worksheet If Statement in VBA
 

This should help you. I had to split it up to figure it out.

Dim vTargetRow As Long
Dim myString As String
vTargetRow = 1
myString = "=IF(AND(F" & vTargetRow & "=""Standard Desktop"""
myString = myString & ", G" & vTargetRow & "=""Standard 17"""
myString = myString & """" & " Monitor""),1,"""")"

Debug.Print myString


Range("M" & vTargetRow).Formula = myString

--
HTH,

Barb Reinhardt



"Atif" wrote:

I am using following line of code:

Range("M" & vTargetRow).Formula = _
"=IF(AND(""F" & vTargetRow = "Standard Desktop"",""G" & vTargetRow =
"Standard 17" & """" & " Monitor""),1,"")"

Instead displaying 1 if condition true or <blank if false, it fill
TargetCell with "FALSE".

IF statemetn is fine if directely entered in Worksheet
(=IF(AND(F500="Standard Desktop",G500="Standard 17"&""""&" Monitor"),1,""))

Worksheet If Statement in VBA
 

mystring returns 19 Monitor19 Monitor

at traget cell it should be entered as
19 Monitor
19 Monitor

how to included Alt+Enter key using VBA