VBA - If cell in column B is blank then copy and paste it to column A

[barclay34]

Hello, need your help.

I need VBA

If cell in column B is blank then copy and paste it to column A

or

If cell in column B is blank then cell in column A should be blank too

Thank you.

 

[Joe4]

Re: Need Help!!! VBA Help - If cell in column B is blank then copy and paste it to column A

If cell in column B is blank then copy and paste it to column A

Do you mean to say "NOT blank" for that first condition?

If so, then isn't really just a matter of copying all of column B to column A?
If so, turn on the Macro Recorder and record yourself doing this manually and you will have VBA code that will do this.

 

[barclay34]

Re: Need Help!!! VBA Help - If cell in column B is blank then copy and paste it to column A

If cell in column B is BLANK (empty), then cell in column A should be also BLANK (empty)

If cell in column B is not BLANK, then it stays as it was

 

[Joe4]

Re: Need Help!!! VBA Help - If cell in column B is blank then copy and paste it to column A

Try this:

Sub MyMacro()

    Dim lastRow As Long
    Dim myRow As Long
        
    Application.ScreenUpdating = False
    
'   Find last row with data in column A
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows
    For myRow = 1 To lastRow
        If Cells(myRow, "B") = "" Then Cells(myRow, "A").ClearContents
    Next myRow
    
    Application.ScreenUpdating = True
    
End Sub

 

[barclay34]

Re: Need Help!!! VBA Help - If cell in column B is blank then copy and paste it to column A

Thank you very much !!!

 

[Joe4]

Re: Need Help!!! VBA Help - If cell in column B is blank then copy and paste it to column A

You are welcome.