Help me write command in vba(excel) to search and find special cells based on multiple criteria

Question

Hi 
My name is Majid Javnmard , I am using Microsoft Office Excel 2010 and I encountered a problem. I sent you a simple example of my excel file that i want to write a command in vba to search and find special cell and copy the row which special cell is in there
somewhere , but the problem is how can i find my special cell with multiple criteria or how can i find my all special cells and copy them somewhere !!? 
Let me explain on file that i sent :
This file has 4 headers (X,Y,PerturbNumber,Value), the problem is for example : I want write commnd in vba to copy all rows that each of them has (X=12 and Y=13). how can i ? can you help me ?
My
file : http://s000.tinyupload.com/index.php?file_id=69742844961096241754
Many Thanks
Majid 

Answer 1

This worked for me, based on your example:
Sub pMain()
Dim wsSource As Excel.Worksheet
Dim wsDest As Excel.Worksheet
Dim lSource As Long
Dim lDest As Long
Dim lLast As Long
With ThisWorkbook
'Change to suit
Set wsSource = .Worksheets("Sheet1")
Set wsDest = .Worksheets.Add
End With
wsSource.Rows(1).Copy
wsDest.Range("A1").PasteSpecial xlPasteValues
lDest = 2
lLast = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
For lSource = 1 To lLast
'Put the conditions below:
If wsSource.Cells(lSource, "A") <> 12 Then GoTo linNext
If wsSource.Cells(lSource, "B") <> 30 Then GoTo linNext
'If wsSource.Cells(lSource, "C") <> "value" Then GoTo linNext
'If wsSource.Cells(lSource, "D") <> "value" Then GoTo linNext
'Conditions were met:
wsSource.Rows(lSource).Copy
wsDest.Rows(lDest).PasteSpecial xlPasteValues
lDest = lDest + 1
linNext:
Next lSource
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br