Formula in Excel or vba to transfer values from Column X to Y

I have to transfer the values in Col E to Col D without overwriting the values in Col D if values exists in cells.

The value = 0 or all empty cells in Col. D should be overwritten by the values from Col. E

Filter, Copy & Paste is a bit difficult if I have 50000 rows.

As always thank you for you assistance and effort.

Regards

Adam
Sample.xlsx

Adam ElsheimerAsked: 2017-03-16

Who is Participating?

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get this solution by purchasing an Individual license! Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LVL 45

Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented: 2017-03-16

You may try something like this....

Sub TransferValues()
Dim lr As Long, i As Long
Dim x
lr = Range("D:E").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
x = Range("D1:E" & lr).Value
For i = 1 To UBound(x, 1)
    If x(i, 1) = "" Or x(i, 1) = 0 Then
        x(i, 1) = x(i, 2)
    End If
Next i
Range("D1").Resize(UBound(x, 1), 2).Value = x
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial

Adam ElsheimerAuthor Commented: 2017-03-16

Neeraj, thank you for your quick and professional response and solution.

Regards,

Adam

LVL 45

Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented: 2017-03-16

You're welcome Adam! Glad I could help.
And thanks for the feedback.

LVL 38

Rob HensonFinance AnalystCommented: 2017-03-17

Formula option, in column F:

=IF(AND(D2<>"",D2<>0),D2,E2)

Copy/drag down as far as required and then Copy and paste Values into column D.

Alternative with the screen shot data, copy all of column E data and then do paste Special on column D, choose Values and at the bottom left of the Paste Special window choose Skip Blanks. This will ignore any blank cell from the copied range and will leave the value in column D.

Thanks
Rob H