Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple macro
Hi,
I have a code but cant figure out how to change it so its just copies everything rather than filter and then copy, the reason it filters is because i copied this code from a filer code (but did think i removed all the filter code bit.. obviously not!) I think it might be this bit that is causing the problem: lastrow = Cells(Cells.Rows.Count, "F").End(xlUp).Row Set myrange = Range("F1:F" & lastrow) All the code: Sub CTS() Sheets("A").Select Dim myrange, copyrange As Range Set copyrange = Rows(1).EntireRow lastrow = Cells(Cells.Rows.Count, "F").End(xlUp).Row Set myrange = Range("F1:F" & lastrow) For Each c In myrange Set copyrange = Union(copyrange, c.EntireRow) Next copyrange.Copy Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = "B" ActiveSheet.Paste With ActiveSheet .Range("D:D,H:I,K:L,N:U,W:AD,AF:AT,AV:IV").Delete End With Worksheets("B").Activate Cells.Select Cells.EntireColumn.AutoFit Cells.EntireRow.AutoFit With Application .DisplayAlerts = True .EnableEvents = True .ScreenUpdating = True End With End Sub thanks alot. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Simple Macro? | Excel Programming | |||
Simple Macro | Excel Worksheet Functions | |||
Simple Macro | Excel Programming | |||
a simple macro? | Excel Discussion (Misc queries) | |||
Simple help with macro please | Excel Programming |