This question may be easy to answer

[ColdGeorge]

Hi all

I just want to copy a cell (A1) value down to A2. Only if B2 has a value. And so forth, copy A2 to A3 if B3 has a value.

Thanks in advance, ColdGeorge

 

[mikerickson]

Try

With Range("A1", Cells(Range("B65536").End(xlUp).Row-1, 1)
    .Copy Destination:= .Offset(1,0)
End With

 

[ColdGeorge]

Hi mikerickson

I'll give it a try and I'll let yoo know, thanks.

ColdGeorge

 

[ColdGeorge]

Hi mikerickson

I am very sorry, but I'm afraid I made a big mistake due to my poor English. I want to copy A1 value to all cells of column A. Only if column B cells have a value. In another words stop the copying procedure when an empty cell in column B is found.

Thanks, ColdGeorge

 

[mikerickson]

Sub test()
    Dim i As Long
    i = 0
    With Range("A1")
        Do Until .Offset(i + 1, 1) = vbNullString
            i = i + 1
        Loop
        .Offset(1, 0).Resize(i, 1).Value = .Value
    End With
End Sub

 

[BrandonBerner]

Hi mikerickson

I am very sorry, but I'm afraid I made a big mistake due to my poor English. I want to copy A1 value to all cells of column A. Only if column B cells have a value. In another words stop the copying procedure when an empty cell in column B is found.

Thanks, ColdGeorge

Try...

=IF(B2<>"",$A$1,"")


Explanation: IF B2 contains text OR number, print A1, otherwise, print nothing.


Ps. Im brand new, so use caution when taking my advise. If it did help you, dont forget to "Thank you for posting this" and or "Like this post"

 

[ColdGeorge]

mikerickson

Thanks, your code works just perfect.


BrandonBerner

Your formula, works great too, thanks.


ColdGeorge