Açılmayan Userform

[Yesilyurtlu]

Üstadım ekli dosyada sayfa1 de açılan userform sayfa2 deki buton ile açılınca bilgiler görünmüyor.
Ayrıca Sayfa1 gizlendiği zaman ya da Sayfa1 de yer alan A:E sütunları gizlendiği zaman da userformda görünmüyor.
NOT : Userform sitede alınmıştır

 

[Korhan Ayhan]

Merhaba,

Formun initialize olayındaki kodu aşağıdaki şekilde değiştirin. Yapılan değişikliği kırmızı renkle belirttim.

Private Sub UserForm_Initialize()
    Dim d, _
        i   As Long, _
        Deg As Variant, _
        s1  As Worksheet
    
    Set s1 = Sheets("Sayfa1")
    Set d = CreateObject("Scripting.Dictionary")
    
    For i = 2 To s1.Cells(Rows.Count, "A").End(3).Row
        Deg = [COLOR=red]s1.[/COLOR]Cells(i, "A")
        If Not d.exists(Deg) Then
            d.Add Deg, vbNull
            ComboBox1.AddItem Deg
        End If
    Next i
    Set s1 = Nothing
    Set d = Nothing
    
End Sub

 

[Yesilyurtlu]

Korhan Abi Ellerine Sağlık
Teşekkür Ederim