Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
moving all data to cell a1
hi,
i have this code.... Sub Cleanupdata() ' ' Cleanupdata Macro ' Macro recorded 21/05/2009 by Keith ' ' Rows("1:1").Select Selection.Insert Shift:=xlDown Columns("A:A").Select Selection.Insert Shift:=xlToRight Range("A2").Select ActiveCell.FormulaR1C1 = "=IF(COUNTA(RC[1]:RC[49])<8,""not 8"",8)" Selection.AutoFill Destination:=Range("A2:A42"), Type:=xlFillDefault Range("A2:A42").Select Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="not 8" Selection.SpecialCells(xlCellTypeVisible).Select Selection.ClearContents Columns("A:A").Select Selection.Delete Shift:=xlToLeft Range("A1").Select End Sub is there anyway in which i can add to this so that it moves all the data that is left to cell a1 without deleting the rows?? Thank you in advance, Steve |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Moving Data between sheets in the same workbook and moving data between Workbooks. | Excel Worksheet Functions | |||
excell 2007 moving data in cell | Excel Worksheet Functions | |||
Moving scattered cell data to new column? | Excel Worksheet Functions | |||
Force user to enter data in cell before moving to next cell | New Users to Excel | |||
Moving cell data and separating or deleting | Excel Worksheet Functions |