Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofilter and Copy and Paste
I have a table of data in Sheet("Stepdown"). It has already been
autofiltered. I want to change all the autofiltered data in column T to "a". Here is what I have (but it changes the filtered and autofiltered data to "a"). Sheets("Stepdown").Range("T1").Select Selection.End(xlDown).Select ActiveCell.FormulaR1C1 = "a" ActiveCell.Copy Range(Selection, Selection.End(xlUp)).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False -- Thanks Shawn |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autofilter and Copy and Paste
I think all you want to do is this:
Sub Better() Range("T2", Range("T2").End(xlDown)) _ .SpecialCells(xlCellTypeVisible).Value = "a" End Sub No need to select, copy, paste, etc. This assumes thought that sheet Stepdown is active. If it's not then: Sub Better2() With Worksheets("SetDown") .Range("T2", .Range("T2").End(xlDown)) _ .SpecialCells(xlCellTypeVisible).Value = "a" End With End Sub -- Jim Rech Excel MVP "Shawn" wrote in message ... |I have a table of data in Sheet("Stepdown"). It has already been | autofiltered. I want to change all the autofiltered data in column T to "a". | Here is what I have (but it changes the filtered and autofiltered data to | "a"). | | Sheets("Stepdown").Range("T1").Select | Selection.End(xlDown).Select | ActiveCell.FormulaR1C1 = "a" | ActiveCell.Copy | | Range(Selection, Selection.End(xlUp)).Select | Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ | False, Transpose:=False | | -- | Thanks | Shawn |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Autofilter - copy & paste | Excel Worksheet Functions | |||
Copy/Paste in Autofilter | Excel Discussion (Misc queries) | |||
Sort, Copy, Paste..without Autofilter..Anyone??? | Excel Worksheet Functions | |||
How do you paste data when autofilter is on? | Excel Discussion (Misc queries) | |||
AUTOFILTER copy and paste | Excel Programming |