If then not working ???

[Pat_The_Bat]

If there is an "x" in sheet("Doc Request") cell B4,

I want my code to put a value "x" in the Sheet "Master" Cells C4, C5, C6, C7

I actually want to perform a couple of operations if that condition is true, but right now I need to at least get that line of code working again (This was working previously.... Ugh)


Code is below. Any help is appreciated.

Sub Breakdown1()


Dim Bor1 As String
Dim Bor2 As String
Dim Bor3 As String
Dim Bor4 As String


With Worksheets("Doc Request")
 Bor1 = .Range("B3").Value
 Bor2 = .Range("C3").Value
 Bor3 = .Range("D3").Value
 Bor4 = .Range("E3").Value
    Debug.Print Bor1
      Debug.Print Bor2
        Debug.Print Bor3
          Debug.Print Bor4
End With


'Load Borrower 1's income doc templates
'Salaried Wage Earner
With Sheets("Doc Request")
If Range("B4").Value2 = "x" Then Worksheets("Master").Range("C4,C5,C6,C7").Value2 = Bor1




End With




End Sub

 

[dreid1011]

Perhaps this? Missing . before Range it looks like. And you can shorten the "C4,C5,C6,C7" to "C4:C7".

If .Range("B4").Value2 = "x" Then Worksheets("Master").Range("C4:C7").Value2 = Bor1

 

[Pat_The_Bat]

Perhaps this? Missing . before Range it looks like. And you can shorten the "C4,C5,C6,C7" to "C4:C7".

If .Range("B4").Value2 = "x" Then Worksheets("Master").Range("C4:C7").Value2 = Bor1

That was it. That darn period.

I"ll clean up that other range syntax too. Thx!

 

[dreid1011]

Hah, those are the ones we scratch our heads at the most. You're welcome.