Insert Value if range Not Blank

[billandrew]

Would like to apply the value of the cell in row 2 to all rows below if the adjacent column is <> blank.

This code works, however I have to repeat for the next (possible) several columns.

Any assist would be appreciated.

Initial ex.

dim c as long, rng as long
Set rng = Range("E2", Range("E" & Rows.Count).End(xlUp))    For Each c In rng
    If c <> "" Then
    c.Offset(, 1).Value = Cells(2, 6).Value
    End If
    Next

Next ex

For Each d In rng    If d <> "" Then
    d.Offset(, 2).Value = Cells(2, 7).Value
    End If
    Next

 

[My Aswer Is This]

We need to know what column you want to check it must be something like:

E G I L or something like this I assume.

 

[billandrew]

If column E has a value then insert the value of F2 in the entire column F & same for Column G, H etc...

 

[My Aswer Is This]

If column E has a value then insert the value of F2 in the entire column F & same for Column G, H etc...

Well Excel has 15,000 columns.

You want this to search column E to XFD ??

 

[billandrew]

No sir.

I have a value in F2 I would like to copy that value in all rows in Column F if the adjacent column E is not blank. Then copy the value in G2 in all rows in Column G. Then copy the value in Column H in all rows in Column H.......

 

[My Aswer Is This]

But you keep doing this:

Column H.......

And this:
Column G, H etc...​

Which means on an on and on.

So I never know when you want to stop.

Etc. means on and on and on and on

and H......

I would think means on and on and on.

 

[billandrew]

Stop at Column N.

Sorry...

 

[My Aswer Is This]

I think someone else here at Mr. Excel will need to help you.
Because I'm trying to write you a loop that starts at column F and go to column ???
And for some reason your not able to tell me when to stop or at least i cannot figure out from the information you have provided when to stop.

But I know there are a lot of other people here at Mr. Excel who may have a answer for you.

This is beyond my knowledgebase.
I will continue to monitor this thread to see what I can learn.

 

[billandrew]

In any case thank you for your time.

Much appreciated.

 

[My Aswer Is This]

Try this:

Sub MySub()
'Modified 6/13/18 8:45 PM EDT
Application.ScreenUpdating = False
Dim i As Long
Dim c As Range
Dim Lastrow As Long
For i = 5 To 14
Lastrow = Cells(Rows.Count, i).End(xlUp).Row
    For Each c In Range(Cells(2, i), Cells(Lastrow, i))
        If c <> "" Then
            c.Offset(, 1).Value = Cells(2, i).Value
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub