gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,341
- Office Version
- 365
- Platform
- Windows
I have a sheet that could have a bunch of project numbers listed across row 4 starting at column H
What I need to do is have code that says look at cell I4 and if it’s not blank copy the formula in Range(“H6:H29”).Copy and copy it into I6:I29 then go to J4 and if it’s not blank Range(“H6:H29”).Copy and paste it in J6:J29 and so on….
Dim i As Long
For i = 9 To 209
'
If Len(Cells(4, i).Value) <> 0 Then
Sheets(“Actuals by Element”).Range(“H6:H29”).Copy
Sheets("Actuals by Element").Cells(4, i).Offset(26).Resize(26).Copy
Here is a problem I can’t solve because I don’t want it to include row 4
How do I get it to position itself in row 6 instead of 4
Thanks for the help
What I need to do is have code that says look at cell I4 and if it’s not blank copy the formula in Range(“H6:H29”).Copy and copy it into I6:I29 then go to J4 and if it’s not blank Range(“H6:H29”).Copy and paste it in J6:J29 and so on….
Dim i As Long
For i = 9 To 209
'
If Len(Cells(4, i).Value) <> 0 Then
Sheets(“Actuals by Element”).Range(“H6:H29”).Copy
Sheets("Actuals by Element").Cells(4, i).Offset(26).Resize(26).Copy
Here is a problem I can’t solve because I don’t want it to include row 4
How do I get it to position itself in row 6 instead of 4
Thanks for the help