VBA Question

[Guest]

Hi,

I need to put the line below in my VBA code but i get error i know that is
because I use the symbole " but i don't know how can i fix it. any help would
be appriciated.

Range("A2").Value =
"=IF(AND(RIGHT(B2,1)="W",LEFT(F2,1)=$A$1),$A$1&"W",IF(AND(RIGHT(B2,1)="G",LEFT(F2,1)=$A$1),$A$1&"G",""))"

Thanks,

 

[Guest]

You need to add extra quotes to let the compiler know that you are using
quotes...

Range("A2").Value =
"=IF(AND(RIGHT(B2,1)=""W"",LEFT(F2,1)=$A$1),$A$1&""W"",IF(AND(RIGHT(B2,1)=""G"",LEFT(F2,1)=$A$1),$A$1&""G"",""""))"

I think I got them all...

 

[Don Guillett]

A little different
=IF(LEFT(F2)=A1,IF(RIGHT(B2)="w",A1&"W",IF(RIGHT(B2)="g",A1&"G","")),"")

Sub ifleft()
Range("c4").Formula = "=IF(LEFT(F2)=A1,IF(RIGHT(B2)=""w""" _
& ",A1&""W"",IF(RIGHT(B2)=""g"",A1&""G"","""")),"""")"
End Sub

 

[iliace]

Call me strange... I like doing it this way:

Range("A2").Value = "=IF(AND(RIGHT(B2,1)=" & Chr(34) & _
"W" & Chr(34) & ",LEFT(F2,1)=$A$1),$A$1&" & Chr(34) & _
"W" & Chr(34) & ",IF(AND(RIGHT(B2,1)=" & Chr(34) & "G" & _
Chr(34) & ",L­EFT(F2,1)=$A$1),$A$1&" & Chr(34) & "G" & _
Chr(34) & "," & Chr(34) & "" & Chr(34) & "))"