Can i avoid mutiple copy pasting of this code ?

[Corey]

Sub Dates()
If Worksheets("Inductions Update Page").Range("c8") <> "" Then
Worksheets("Print & Shading Page").Range("C8") = _
Worksheets("Induction Frequency Page").Range("C8") + _
Worksheets("Inductions Update Page").Range("C8")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If
If Worksheets("Inductions Update Page").Range("c9") <> "" Then
Worksheets("Print & Shading Page").Range("C9") = _
Worksheets("Induction Frequency Page").Range("C9") + _
Worksheets("Inductions Update Page").Range("C9")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If

End Sub

I need to do the above coding to all cells the the range of (C8:R30)

Is there an easier way other than how i have began, that being each step range changed to the next cell?


Corey....

 

[NickHK]

Corey,
Something like this ?

Dim Cell As Range
Dim PSP As Worksheet
Dim IFP As Worksheet

Set PSP = Worksheets("Print & Shading Page")
Set IFP = Worksheets("Induction Frequency Page")

For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30")
With Cell
If .Value <> "" Then
PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value
End If
End With
Next

There's no point in this line:
Worksheets("Induction Update Page").Range("C9") = ""
because you are already checking that it is <> "".

NickHK

Sub Dates()
If Worksheets("Inductions Update Page").Range("c8") <> "" Then
Worksheets("Print & Shading Page").Range("C8") = _
Worksheets("Induction Frequency Page").Range("C8") + _
Worksheets("Inductions Update Page").Range("C8")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If
If Worksheets("Inductions Update Page").Range("c9") <> "" Then
Worksheets("Print & Shading Page").Range("C9") = _
Worksheets("Induction Frequency Page").Range("C9") + _
Worksheets("Inductions Update Page").Range("C9")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If

End Sub

I need to do the above coding to all cells the the range of (C8:R30)

Is there an easier way other than how i have began, that being each step
range changed to the next cell?


Corey....

 

[Corey]

Thanks Nick,

Are you saying that i need to still enter MULTIPLE entries or this code:
_____________________________________________________
sub dates()
Dim Cell As Range
Dim PSP As Worksheet
Dim IFP As Worksheet

Set PSP = Worksheets("Print & Shading Page")
Set IFP = Worksheets("Induction Frequency Page")

For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30")
With Cell
If .Value <> "" Then
PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value
End If
End With
Next
End Sub
_____________________________________________________ you posted is ALL i
need?

Corey....

 

[Corey]

Got it, does the lot in a one-r.
You just saved me a hell of a lot a data code entry thanks
Corey....

 

[Jim May]

Corey:
FYI,,
The "For Each" keywords indicate a looping of all elements of a
collection,
which in this case are Cells C8 to R30 (23 rows 16 cols) all 368 of
them.