Excel VBA If/then do [Question

DnetVaggos · Mar 4th 2018

Well….this is my excel

[Blocked Image: https://social.microsoft.com/Forums/getfile/1235090]

and i want these results :

[Blocked Image: https://social.microsoft.com/Forums/getfile/1235091]

My criteria is ” If you find same value from A Column then get the data beside them and paste as transpose to C Column if it is blank otherwise go to D column and paste"

thank you guys!

nilem · Mar 5th 2018

Hi
maybe so

Code

Sub ttt()
Dim r As Range
For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp))
    Cells(r.Row, Columns.Count).End(xlToLeft)(1, 2).Value = r(1, 2).Value
Next r
End Sub

Excel VBA If/then do [Question

Participate now!

Share