Coping Cells With A Loop
Solved/Closed
froggy6703
Posts
16
Registration date
Tuesday March 23, 2010
Status
Member
Last seen
March 29, 2013
-
Apr 6, 2010 at 09:39 PM
venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Apr 7, 2010 at 05:52 AM
venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Apr 7, 2010 at 05:52 AM
1 reply
venkat1926
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
810
Apr 7, 2010 at 05:52 AM
Apr 7, 2010 at 05:52 AM
You are messing up with the existing data. copy the data somewhere so that it can be retrieved.
your data is like this
hdng 1 hdng 2
123ABC 123ABC
N/A 234_BCD
345CDE 345CDE
try this macro
End Sub
your data is like this
hdng 1 hdng 2
123ABC 123ABC
N/A 234_BCD
345CDE 345CDE
try this macro
Sub test() Dim r As Range, c As Range Set r = Range(Range("A2"), Range("A2").End(xlDown)) For Each c In r If c <> "N/A" Then c.Offset(0, 1) = c End If Next c
End Sub