s.aleykum koly gelsin hocam
benim kullandığım iki sayfam var sorum su

sayfa1 de d1 hücre degerine göre süzüp getiyoyorum buna ilaveten iki sartlı hem de d1 hemde J1 hücre değerine göre süzüp getirebilirmiyiz

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
CommandButton1_Click
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
s1 = "veri"
Range("A3:O5000").ClearContents
SAT = 3
For i = 2 To Sheets(s1).[A65536].End(3).Row
If Range("D1") = Sheets(s1).Cells(i, "I") Then
Cells(SAT, "I") = SAT - 2
Cells(SAT, "B") = Sheets(s1).Cells(i, "A")
Cells(SAT, "C") = Sheets(s1).Cells(i, "B")
Cells(SAT, "D") = Sheets(s1).Cells(i, "C")
Cells(SAT, "E") = Sheets(s1).Cells(i, "D")
Cells(SAT, "F") = Sheets(s1).Cells(i, "E")
Cells(SAT, "G") = Sheets(s1).Cells(i, "F")
Cells(SAT, "H") = Sheets(s1).Cells(i, "G")
Cells(SAT, "I") = Sheets(s1).Cells(i, "H")
Cells(SAT, "j") = Sheets(s1).Cells(i, "j")
Cells(SAT, "k") = Sheets(s1).Cells(i, "k")
Cells(SAT, "l") = Sheets(s1).Cells(i, "l")
Cells(SAT, "o") = Sheets(s1).Cells(i, "m")

SAT = SAT + 1
Else: End If
Next i
Range("D1").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub