Bul

[ozuberk]

Merhaba

Aşağıdaki kodla Sayfa2 seçili iken, ComboBox1 re göre Sayfa1 den veriyi bul yapmak istiyorum. Hata veriyor biryerde yanlışım var arkadaşlar yardımcı olurmusunuz lütfen


Private Sub Bul1_Click()
Dim ser As Range
For Each ser In Sheets("Menu").Range("D426" & WorksheetFunction.CountA(Sheets("Menu").Range("D426")))
If StrConv(ser.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
ser.Select

TextBox1008.Value = ActiveCell.Offset(0, -2).Value
ComboBox3.Value = ActiveCell.Offset(0, -1).Value
ComboBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 4).Value
TextBox3.Value = ActiveCell.Offset(0, 5).Value
TextBox4.Value = ActiveCell.Offset(0, 6).Value
Exit Sub
End If
Next ser
MsgBox "Aradığınız Gelir bulunamadı... Lütfen tekrar deneyiniz...", vbInformation
End Sub