ComboBox Arama yapıp ayrı sayfalardan veri getirme

[DERYAUZUN07]

Arkadaşlar Merhaba,

Aşagıda verdiğim kodlarda Excel "RAPOR" sayfamdan Verileri Combobox'la ada göre aratıp getiriyorum ama Combobox'la seçim yaptığımda "ÖZET" Sayfamdan da aynı krıterdeki verileri textbox3 ve textbox4 getirmek istiyorum bunu nasıl yapa bilirim.

Private Sub ComboBox1_Change()
With Sheets("RAPOR")
For Each bul In .Range("B4:B" & Sheets("RAPOR").Range("B65536").End(3).Row)
If CStr(bul.Value) = CStr(ComboBox1.Value) Then
TextBox1.Value = bul.Offset(0, 2).Value
TextBox2.Value = bul.Offset(0, 3).Value

 

[mancubus]

Private Sub ComboBox1_Change()

Dim wsRapor As Worksheet, wsOzet As Worksheet
Dim satRapor As Long, satOzet As Long

Set wsRapor = Worksheets("RAPOR")
Set wsOzet = Worksheets("ÖZET")

On Error Resume Next
satRapor = Application.Match(ComboBox1.Value, wsRapor.Columns("B"), 0)
If Err.Number = 0 Then
    TextBox1.Value = wsRapor.Cells(satRapor, "D").Value
    TextBox2.Value = wsRapor.Cells(satRapor, "E").Value
End If

satOzet = Application.Match(ComboBox1.Value, wsOzet.Columns("B"), 0)
If Err.Number = 0 Then
    TextBox3.Value = wsOzet.Cells(satOzet, "D").Value
    TextBox4.Value = wsOzet.Cells(satOzet, "E").Value
End If
On Error GoTo 0

End Sub

 

[DERYAUZUN07]

Yardımlarınız için çok teşekkür ederim.

 

[mancubus]

rica ederim.