Birbiri ile ilişkili listbox

[sirkülasyon]

Listbox1 deki seçilen satıra bağlı sayfada veri var ise Listbox2 de seçiyorum

If ListBox1.Value = True Then
ListBox2.Visible = False
Else
ListBox2.Visible = True
End If

Yukarıdaki kod ile listbox1 de satır seçildiği an Listbox2 visible değeri true oluyor. Bu işlemi aşağıda ki duruma nasıl getirebilirim?

Listbox1 de seçilen satıra bağlı sayfada veri var ise Listbox2 visible True olsun
Listbox1 de seçilen satıra bağlı sayfada veri yok ise Listbox2 visible False olsun

 

[AdemCan]

Örnek kod: ArananSayfa yerine ListBox1'de seçilen verinin aranacağı sayfa ismini yazınız.

Private Sub ListBox1_Click()

Dim s1 As Worksheet, say As Integer
Set s1 = Sheets("ArananSayfa")

If ListBox1.ListIndex > 0 Then
aranan = ListBox1.List(ListBox1.ListIndex)
say = WorksheetFunction.CountIf(s1.Range("A:A"), aranan)

    If say > 0 Then
        ListBox2.Visible = True
    Else
        ListBox2.Visible = False
    End If

End If

Set s1 = Nothing: say = 0
End Sub

 

[sirkülasyon]

Allah razı olsun. Teşekkür ederim