Working with quotes

  • Thread starter Thread starter Squid
  • Start date Start date
S

Squid

In a conditional statement, I need to code a formula that
contains quotes. I am having problems. How should I
code the following?

If Dues <> 0# Then
Worksheets("Settlement").Range("I35").Value = Dues
Else
Worksheets("Settlement").Range("I35").Value = _
=IF(N39="W",ROUND(H39*$H$27,2),IF(N39="G",ROUND
(H39*$C$27,2),ROUND(H39*$F$27,2)))
End If

Thanks
Mike
 
Squid,

Worksheets("Settlement").Range("I35").Value = _
"=IF(N39=""W"",ROUND(H39*$H$27,2),IF(N39=""G"",ROUND
(H39*$C$27,2),ROUND(H39*$F$27,2)))"

John
 
I think I figured it out..

"=IF(N35=" & Chr(34) & "W" & Chr(34) & ",ROUND
(H35*$H$27,2),IF(N35=" & Chr(34) & "G" & Chr(34) & ",ROUND
(H35*$C$27,2),ROUND(H35*$F$27,2)))"
 
Squid,

That'll work too, but it's easier just doubling up the quotes like I showed
you in my post.

John
 
And from a tip from Tom Ogilvy:

Option Explicit
Sub testme01()

Dim Dues As Double
Dim myStr As String
Dues = 0

If Dues <> 0# Then
Worksheets("Settlement").Range("I35").Value = Dues
Else
myStr = "=IF(N39=@W@,ROUND(H39*$H$27,2)," _
& "IF(N39=@G@,ROUND(H39*$C$27,2),ROUND(H39*$F$27,2)))"

myStr = Application.Substitute(myStr, "@", Chr(34))

Worksheets("Settlement").Range("I35").Formula = myStr

End If

End Sub

It might be overkill here, but when you have lots of those """"'s...
 
Back
Top