What is wrong with my code?

[Finance20]

Sub Multiplier()
'
'Muttiplier Number Format by MEI given FYE & Clinic Type
'
'
Workbooks("RL-Facility Charge Lookup 1-7-2011 2010.xls").Activate
Worksheets("Facility Lookup").Activate
Range("F11:F14").Activate
If Range(A6) = "RHCP" Or "RHCI" And Range(B4) = "2005" Then
Range("F11:F14").Value = (1.029 * 0.25) + (1.031 * 0.75)


End If
End Sub

I am getting error in debugger on Lines beginning with: If Range

 

[doofusboy]

Try this:

If (Range("A6").Value = "RHCP" Or Range("A6").Value = "RHCI") And Range("B4").Value = "2005" Then

 

[tigeravatar]

Finance20,

When doing multiple conditions in an IF statement, each condition needs tobe explicitly stated as if the other statements aren't there. Also, Range(A6) isn't valid becuase that's trying to reference a variable named A6. To avoid that, surround the cell address in quotes - Range("A6"). That being said, try the following:

Sub Multiplier()
    
    With Workbooks("RL-Facility Charge Lookup 1-7-2011 2010.xls").Sheets("Facility Lookup")
        If .Range("A6").Value = "RHCP" _
        Or .Range("A6").Value = "RHCI" _
        And .Range("B4").Value = "2005" Then
            .Range("F11:F14").Value = 1.0305
        End If
    End With
    
End Sub

Hope that helps,
~tigeravatar

 

[VoG]

Maybe

If (Range("A6").Value = "RHCP" Or Range("A6").Value = "RHCI") And Range("B4").Value = "2005" Then
Range("F11:F14").Value = Evaluate("(1.029 * 0.25) + (1.031 * 0.75)")

 

[Finance20]

VoG: The code does not give any error now. However, it is not putting the value in the cells F11:F14.

 

[VoG]

Then try

If (Range("A6").Value = "RHCP" Or Range("A6").Value = "RHCI") And Range("B4").Value = 2005 Then
Range("F11:F14").Value = 1.0305

 

[Finance20]

Still get nothing.

 

[VoG]

Working here. What exactly is in B4?

 

[Finance20]

B4 is a Vlookup input value of a clinic fiscal year end.

 

[VoG]

So is it a date formatted to show only the year or what?