Wants to filter and copy from sheet2 but without activating sheet2

[NileshAPatel]

Dear Team,

I have a excel file wherein 2 sheets are their.
From Sheet1, wants to filter data in sheet2 table and copy and paste filtered data in sheet1 A1 cell.
Is is possible get it done through sheet1 itself without activating or selecting sheet2

Thanks

 

[My Aswer Is This]

Dear Team,

I have a excel file wherein 2 sheets are their.
From Sheet1, wants to filter data in sheet2 table and copy and paste filtered data in sheet1 A1 cell.
Is is possible get it done through sheet1 itself without activating or selecting sheet2

Thanks

Sure that can be done. Give us specific details about both sheet names and filter with what criteria.

 

[NileshAPatel]

here is excel file attached

 

[NileshAPatel]

sorry excel file can't attached. please find attached

Model.xlsx
	I
11
Sheet1

Model.xlsx
	D
2	Model
Sheet2

 

[My Aswer Is This]

I never download files.
Are you not able to explain in words how you want to filter the sheet?

 

[NileshAPatel]

Sheet1 and sheet2 snap are attached herewith.

Wants to filter Sheet2 table in header "Model" with "DZIRE" only and copy filtered data on sheet1 Cell A5

Wants to do it without selecting sheet2


Thanks in advance....

 

[NileshAPatel]

Dear Team,

Please find format for your reference.

Model.xlsx
	A	B	C	D	E	F
2
3
4	Outlet Name	Supplier Category	Supplier	Model	SubModel Code	SubModel
5
6
7
8
9
10
Sheet1

Model.xlsx
	A	B	C	D	E	F	G
1
2	Outlet Name	Supplier Category	Supplier	Model	SubModel Code	SubModel
3	0102-01	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
4	0112-01	Supplier	Maruti Suzuki India Ltd. - GJ	DZIRE	DRR4DV200	NEW DZIRE VXI 1.2 L BS-VI
5	P601-P6	Supplier	Maruti Suzuki India Ltd. - GJ	DZIRE	DRR4DV200	NEW DZIRE VXI 1.2 L BS-VI
6	0102-01	Supplier	Maruti Suzuki India Ltd. - GJ	DZIRE	DRR4DV200	NEW DZIRE VXI 1.2 L BS-VI
7	0106-01	Supplier	Maruti Suzuki India Ltd. - GJ	DZIRE	DRR4DV200	NEW DZIRE VXI 1.2 L BS-VI
8	P601-P6	Supplier	Maruti Suzuki India Ltd. - GJ	ERTIGA	ERRCBV100	ERTIGA VXI CNG - BS VI
9	2201-40	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
10	2201-40	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
11	2201-40	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
12	2201-40	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
13	2201-40	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
14	2201-40	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
15	2201-40	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
16	0102-01	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
17	0106-01	Supplier	Maruti Suzuki India Ltd. - GJ	ERTIGA	ERRCTL200	ERTIGA Tour M (CNG) - BS VI
18	0106-01	Supplier	Maruti Suzuki India Ltd. - GJ	ERTIGA	ERRCTL200	ERTIGA Tour M (CNG) - BS VI
19	2201-22	Supplier	Maruti Suzuki India Ltd. - GJ	ERTIGA	ERRCTL200	ERTIGA Tour M (CNG) - BS VI
20	P601-P6	Supplier	Maruti Suzuki India Ltd. - GJ	WAGON-R	WARCCLA00	WagonR Lxi (O) CNG BS-VI
21	0112-01	Supplier	Maruti Suzuki India Ltd. - GJ	NEW SWIFT	SRR4DV100	NEW SWIFT VXI BS-VI
22	0106-01	Supplier	Maruti Suzuki India Ltd. - GJ	NEW SWIFT	SRR4DV100	NEW SWIFT VXI BS-VI
23	0112-01	Supplier	Maruti Suzuki India Ltd. - GJ	NEW SWIFT	SRR4DV100	NEW SWIFT VXI BS-VI
24	0112-01	Supplier	Maruti Suzuki India Ltd. - GJ	ALTO 800	ANRCALB00	MARUTI ALTO LXI (O) CNG BS-VI
25
26
Sheet2

Thanks

 

[My Aswer Is This]

Try this:

Option Explicit
Sub Filter_Me_Please()
'Modified  12/23/2021  3:42:02 AM  EST
Application.ScreenUpdating = False
Dim Lastrow As Long
Dim C As Long
Dim s As Variant
Dim counter As Long
C = 4 ' Column Number Modify this to your need
s = "DZIRE" 'Search Value Modify to your need
Lastrow = Sheets(2).Cells(Rows.Count, C).End(xlUp).Row

With Sheets(2).Cells(1, C).Resize(Lastrow)
    .AutoFilter 1, s
    counter = .Columns(C).SpecialCells(xlCellTypeVisible).Count
    If counter > 1 Then
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets(1).Cells(5, 1)
    Else
        MsgBox "No values found"
    End If
    .AutoFilter
End With
Application.ScreenUpdating = True
End Sub

 

[NileshAPatel]

Thanks for prompt revert
Error is showing while running macro...

Screen shot is attached herewith

Error comes in " .AutoFilter 1, s " step.

Thanks

 

[My Aswer Is This]

It works for me so I'm not sure why not for you.