| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
cut and paste a text from column (B:G)to A column
ymax = ActiveSheet.UsedRange.Column - 1 + _
ActiveSheet.UsedRange.Columns.Count xmax = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count For x = 1 To xmax For y = 1 To ymax If ActiveSheet.Cells(x, y).Value = "John" Then Cells(x, y).Cut ActiveSheet.Paste Destination:=Cells(x, 1) End If Next y Next -- Message posted from http://www.ExcelForum.com |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| inverse of the column function? i.e. input a number, output thecorresponding column text label | Excel Worksheet Functions | |||
| Return text in Column A if Column B and Column K match | Excel Worksheet Functions | |||
| How paste text from note pad to excel w/o using (Text to column) f | Excel Worksheet Functions | |||
| Formula to look up a column and paste results in another column | Excel Worksheet Functions | |||
| Macro to find text string in a column and paste data in another | Excel Discussion (Misc queries) | |||
Hybrid Mode
