Süz aktar kodunda sorun

[YILDIZ YAĞMURU]

sitenizden aldığım Aşağıdaki kodlarla "veri" sayfasından süzerek veri alıyorum.1
fakat Combobox da ki isim "veri" sayfasında yoksa süzme işlemi yapmadan direkt sayfayı olduğu gibi "ana sayfa" ya getiriyor. acaba bu kodu aranılan veri "veri sayfasında yoksa "ana sayfa" ya hiç bir şey getrimemesi sağlanabilirmi ? yardımcı olurmusunuz

Ayrıca kodda başka hatalar varmıdır acaba ? ben biraz değişiklik yaptım yanlış bir şeyler yaptımmı bilmiyorum .
Private Sub CommandButton1_Click()
On Error Resume Next
Dim s1 As Worksheet, s2 As Worksheet, i As Long, sat As Long
ListBox1.RowSource = ""
Set s1 = Sheets("ana sayfa")
Set s2 = Sheets("veri")
s1.Range("A3:A" & Rows.Count & ",b3155").ClearContents
s1.Range("b2").Value = ComboBox1.Value
s2.Range("B44").AutoFilter

s2.Range("B44").AutoFilter field:=1, Criteria1:=ComboBox1.Value
s2.Range("d5155").CurrentRegion.Offset.Copy
s1.Range("B5155").PasteSpecial Paste:=xlPasteValues
ListBox1.RowSource = "'ana sayfa'!B5:B" & s1.Cells(Rows.Count, "B").End(xlUp).Row
s2.Range("B5").AutoFilter

sat = s1.Cells(Rows.Count, "B").End(xlUp).Row
For i = 5 To sat
s1.Cells(i, "A").Value = i - 4
Next i
End Sub

Private Sub UserForm_Initialize()
Sheets("ana sayfa").Select
Set s1 = Sheets("sayfa1")
ComboBox1.RowSource = "sayfa1!a2:a" & s1.Cells(Rows.Count, "A").End(xlUp).Row
End Sub

 

[YILDIZ YAĞMURU]

yardımcı olacak arkadaş yokmu

 

[Orion1]

yardımcı olacak arkadaş yokmu

Örnek dosyayı yollarsanız kanımca daha hızlı yanıt alabilirsiniz!!