| Home |
| Search |
| Today's Posts |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
I need to find a macro to find data cut and paste to another colu.
Dim i
For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row If LCase(Cells(i, "D").Value) Like "*to*" Then Cells(i, "C").Value = Cells(i, "D").Value Cells(i, "C").Value = "" End If Next -- HTH RP (remove nothere from the email address if mailing direct) "Rex" wrote in message oups.com... Ok, had another go and macro seemed to run OK except that it is copying data to column C rather that cutting and pasting. Is there a way to correct this or then run a macro to delete thhe duplicates in column D? |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How can I find the minium date in column B subject to data in Colu | Excel Discussion (Misc queries) | |||
| Macro to find text string in a column and paste data in another | Excel Discussion (Misc queries) | |||
| Macro to Find, Cut, and Paste | Excel Discussion (Misc queries) | |||
| I need a macro to find cut and paste data to new cell | Excel Discussion (Misc queries) | |||
| I need a macro to find cut and paste data to new cell | Excel Discussion (Misc queries) | |||
![Bob Phillips[_6_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
