İki farklı sayfadan arama

[teksen]

Arkadaşlar merhaba,

Aşağıdaki kodları kullanarak Sayfa1 deki bilgilerde iki tarih arasını seçip tstrapor sayfasına yazdırıyorum.

birde aynı düzende çalışan sayfa2 var.

arama yaptığım zaman sayfa2 deki bilgileride tstrapor sayfasına yanyana alması için kodlarda nasıl bir değişiklik yapmamız gerekir acaba?

Şimdiden teşekkür ederim.

Private Sub CommandButton144_Click()
Sheets("Sayfa1").Select
Set SV = Sheets("Sayfa1")
Set sr = Sheets("tstrapor")
sr.Range("a2:k1000").Clear

For sut = 1 To SV.[c65536].End(xlUp).Row
If ComboBox22.Value = Range("A" & sut).Value And SV.Range("c" & sut) >= DTPicker4 And SV.Range("c" & sut) <= DTPicker5 And SV.Range("c" & sut) >= DTPicker4 And SV.Range("c" & sut) <= DTPicker5 Then
Range("a" & sut & ":k" & sut).Copy
S = S + 1
sr.Range("a" & S + 1).PasteSpecial
End If




Next
Application.CutCopyMode = False
sut = sr.[c65536].End(xlUp).Row
sr.Range("g" & sut + 1) = WorksheetFunction.Sum(sr.[g2:g65536])
sr.Range("h" & sut + 1) = WorksheetFunction.Sum(sr.[h2:h65536])
sr.Range("i" & sut + 1) = WorksheetFunction.Sum(sr.[i2:i65536])
sr.Range("j" & sut + 1) = WorksheetFunction.Sum(sr.[j2:j65536])
sr.Range("k" & sut + 1) = WorksheetFunction.Sum(sr.[k2:k65536])
sr.Range("c" & sut + 1) = Format(sr.Range("c" & sut + 1), "#,##0.00")
sr.Range("d" & sut + 1) = Format(sr.Range("d" & sut + 1), "#,##0.00")
sr.Range("f" & sut + 1) = Format(sr.Range("f" & sut + 1), "#,##0.00")

ListBox5.Visible = True

End Sub

 

[teksen]

Arkada&#351;lar bu konuda yard&#305;mc&#305; olabilecek birileri varm&#305; acaba?