Multiple filter ranges and multiple destination ranges in same sheet

[nbuddhi]

Dear Team,

I have to extract some data from different ranges. Below I mentioned the different filter ranges where I put required data along with other data. search criteria range is the cell contain the filter criteria and paste range is the destination cell that filtered data to be paste.

I have attached a dummy data for better clarity. Kindly help me to create a macro to automate the process.

Thank you
nbuddhi

Filter Range	Search Criteria Range	Paste Range
C3:C100	D2	D3
E3:E100	F2	F3
E3:E100	G2	G3
E3:E100	H2	H3
E3:E100	I2	I3
E3:E100	J2	J3
E3:E100	K2	K3
E3:E100	L2	L3
E3:E100	M2	M3
N3:N100	O2	O3
N3:N100	P2	P3
N3:N100	Q2	Q3
N3:N100	R2	R3
N3:N100	S2	S3
N3:N100	T2	T3
N3:N100	U2	U3
N3:N100	V2	V3
N3:N100	W2	W3
N3:N100	X2	X3
N3:N100	Y2	Y3
Z3:Z100	AA2	AA3
Z3:Z100	AB2	AB3
Z3:Z100	AC2	AC3
Z3:Z100	AD2	AD3
Z3:Z100	AE2	AE3
Z3:Z100	AF2	AF3
Z3:Z100	AG2	AG3
Z3:Z100	AH2	AH3
Z3:Z100	AI2	AI3
AJ3:AJ100	AK2	AK3
AJ3:AJ100	AL2	AL3

 

[p45cal]

This isn't really helping you, it's doing your job for you.
In the attached:
A button on the sheet Before (2) in the vicinity of cell B2 which calls the following:

Sub blah()
For Each rw In Sheets("Data Ranges").Range("A2:C32").Rows
getList rw.Cells(1).Value, rw.Cells(2).Value, rw.Cells(3).Value
Next rw
End Sub

Sub getList(FilterRange, CritRange, DestnRange)
With Sheets("Before (2)")
  Set rngFilter = .Range(FilterRange)
  Crit = .Range(CritRange).Value
  Set Destn = .Range(DestnRange)
  'clear the destn range:
  Destn.Resize(100).ClearContents

  For Each cll In rngFilter.Cells
    If InStr(1, cll.Value, Crit, vbTextCompare) > 0 Then
      Destn.Value = cll.Value
      Set Destn = Destn.Offset(1)
    End If
  Next cll
End With
End Sub

A formula only solution in sheet Before Formula in row 3 (highlighted in green)
Solutions match your After sheet except for column U where I think your sheet is wrong.

 

[nbuddhi]

Dear p45cal,

Great, it worked like charm. Many thanks for your great support.

Yes, mistakenly I have put wrong filling data in column U.

Thanks & Best Rgds,
nbuddhi

 

[nbuddhi]

Dear p45cal,

Can you change the code If I need to filter only the strings begin with search criteria?

Thanks & Best Rgds,
nbuddhi

 

[p45cal]

Code:
Change:
If InStr(1, cll.Value, Crit, vbTextCompare) > 0 Then
to
If InStr(1, cll.Value, Crit, vbTextCompare) = 1 Then

Formula:
Change the likes of:
=FILTER($E3:$E100,ISNUMBER(SEARCH(G2,$E3:$E100)),"")
to:
=FILTER($E3:$E100,IFERROR(SEARCH(G2,$E3:$E100),0)=1,"")

 

[nbuddhi]

Dear p45cal,

Great. Thank you very much.

Thanks & Best Rgds,
nbuddhi