In column F if a cell contains the word Test I want it to copy the cell where it is found and paste the value of it exactly 4 cells to the left.
In column F if a cell contains the word Test I want it to copy the cell where it is found and paste the value of it exactly 4 cells to the left.
Try this
Sub foo() Dim lr As Long lr = Range("F" & Rows.Count).End(xlUp).Row Dim i As Long Dim rng As Range For i = 1 To lr If Range("F" & i) = "TEST" Then Range("F" & i).Copy Range("F" & i).Offset(0, -4) End If Next i End Sub
Alan עַם יִשְׂרָאֵל חַי
Change an Ugly Report with Power Query
Database Normalization
Complete Guide to Power Query
Man's Mind Stretched to New Dimensions Never Returns to Its Original Form
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks