Posted to microsoft.public.excel.programming
|
|
Selection.EntireRow - Filtered
Glad to help - thanks for the feedback
"Bam" wrote:
Thankyou JMB - Works Perfect!
"JMB" wrote:
Perhaps
Intersect(Selection.EntireRow, Range("C:AO")).Copy
Range("A2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
"Bam" wrote:
Maybe it's in there but I'm unable to find where?
Anyone else with a suggestion?
Thanks,
Bam.
"JLGWhiz" wrote:
Maybe you can find something at one of these sites to help.
http://www.kayodeok.btinternet.co.uk...excelhowto.htm
http://www.rondebruin.nl/tips.htm
"Bam" wrote:
That only copies the data in Column C when I need the Range From C:AO.
I may be confusing the issue by even mentioning a filter.
Say i select
R3C18
R20C18
R30C18
(The column number will usually be the same in my selection).
How do i then copy
Range(R3C3:R3C41) To Sheet1!$A2
Range(R20C3:R20C41) To Sheet1!$A3
Range(R30C3:R30C41) To Sheet1!$A4
Etc..for each cell selected.
Any help would be great.
Bam.
"JLGWhiz" wrote:
Using what you already have. Just select column C of the filtered range and
use this modified code:
Set serng = Selection
serng.Copy
ActiveSheet.Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
"Bam" wrote:
Hi,
I am trying to copy (selected) filtered data from one sheet to another.
Previously I have used Selection.EntireRow which copies a selection of
filtered rows.
I now need to just copy from Column C to Column AO - Not the EntireRow -
With only the rows that i select.
I have been using this...
Set serng = Selection.EntireRow
serng.Copy
ActiveSheet.Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
But I ultimately only want it to copy from Column C and skip A & B.
How do I just copy partial rows?
Thanks,
Bam
|