Loading...

excel-macros@googlegroups.com

[Prev] Thread [Next]  |  [Prev] Date [Next]

$$Excel-Macros$$ Re: VBA code to select filtered data - irrespective of spread of range JAYAVELU SUN Mon Jun 29 00:02:45 2009

Sorry
ignore previous mail

Please apply this macro code:

Sub test()
 Sheets("Sectoral").Select
   Selection.AutoFilter Field:=3, Criteria1:="Auto"
   Range("A4").Select
   Range(Selection, Selection.End(xlDown)).Select
   Range(Selection, Selection.End(xlToRight)).Select
   Selection.Copy
   Sheets("Sheet3").Select
   Range("A5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
       :=False, Transpose:=False
   Range("F18").Select
End Sub


Jayavelu

9941260857

On Sat, Jun 27, 2009 at 11:16 AM, JAYAVELU SUN <[EMAIL PROTECTED]>wrote:

> hai RS
> use the modified macro i hope it is help you
>
> auto_2 Macro
> ' Macro recorded 6/25/2009 by Prashant
> '
>    Sheets("Sectoral").Select
>    Selection.AutoFilter Field:=3, Criteria1:="Auto"
>    Range("A4").Select
>    RANGE(SELECTION,  END(XLDOWN).SELECT
>    RANGE(SELECTION,  END(XLTORIGHT).SELECT
>    Selection.Copy
>    Sheets("Sheet3").Select
>    Range("A5").Select
>    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
>        :=False, Transpose:=False
>    Range("F18").Select
> End Sub
>
> JAYAVELU
>
> 9941260857
>
> On Fri, Jun 26, 2009 at 11:22 AM, rsPrashant <[EMAIL PROTECTED]>wrote:
>
>>
>> Hi All,
>>
>> M new to VBA codes, but i've been using macro using the record
>> function.
>>
>> I have created a macro as below...
>>
>> ------------
>> auto_2 Macro
>> ' Macro recorded 6/25/2009 by Prashant
>> '
>>    Sheets("Sectoral").Select
>>    Selection.AutoFilter Field:=3, Criteria1:="Auto"
>>    Range("A4:B17").Select
>>    Selection.Copy
>>    Sheets("Sheet3").Select
>>    Range("A5").Select
>>    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>>        :=False, Transpose:=False
>>    Range("F18").Select
>> End Sub
>> -------------
>>
>> Now, the filtered data for Auto consists of 13 records, thus, A4:B17
>> does the job. I have other data to for other sectors wherein number of
>> records will be different, i.e. it can be 10 records or 20 records.
>>
>> Thus, I want to know if there is a way to select entire filtered data
>> and copy the same to desired worksheet. (in above example, filtered
>> data from Sheet "Sectoral" to Sheet3).
>>
>> I don't know how to attach file, otherwise i'd have attached a file
>> for better explanation.
>>
>> I request you to help me.
>>
>> Bye for now,
>> Prashant.
>>
>>
>>
>
> >
>

--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at 
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 

To post to this group, send email to [EMAIL PROTECTED]
If you find any spam message in the group, please send an email to:
Ayush Jain  @ [EMAIL PROTECTED] or
Ashish Jain @ [EMAIL PROTECTED]
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---