Soru Bir başka sayfada veri doğrulama çalışmıyor.

[sirkülasyon]

Private Sub UserForm_Initialize()
    Dim İlçe As New Collection, S1 As Worksheet, X As Long, Veri As Range
    Set S1 = Sheets("Bankalar")
    On Error Resume Next
    For X = 1 To S1.[a65536].End(xlUp).Row
    İlçe.Add S1.Cells(X, 1), CStr(S1.Cells(X, 1))
    Next
    ComboBox1.Clear
    For Each Veri In İlçe
    ComboBox1.AddItem Veri
    Next
End Sub
'-------------------------------------------------------------------------------------------
Private Sub ComboBox1_Change()
    Dim Banka As New Collection, S1 As Worksheet, X As Long, Veri As Range
    Set S1 = Sheets("Bankalar")
    On Error Resume Next
    For X = 1 To S1.[a65536].End(xlUp).Row
    If Cells(X, 1) = ComboBox1 Then Banka.Add S1.Cells(X, 2), CStr(S1.Cells(X, 2))
    Next
    ComboBox2.Clear
    For Each Veri In Banka
    ComboBox2.AddItem Veri
    Next
End Sub

Bankalar sayfasında formu açarsam her ikisi de çalışıyor.
Ancak yukarıda ki kodun Initialize kısmı bir başka sayfada açılıyor. Ancak ComboBox2 açılmasına rağmen veri gelmiyor.
Yardımcı olabilir misiniz?

 

[YUSUF44]

Muhtemelen

If Cells(X, 1) = ComboBox1 Then Banka.Add S1.Cells(X, 2), CStr(S1.Cells(X, 2))

Bu satırda hangi sayfa olduğunu belirtmediğinizden kaynaklanıyor. Aşağıdaki gibi deneyin:

If S1.Cells(X, 1) = ComboBox1 Then Banka.Add S1.Cells(X, 2), CStr(S1.Cells(X, 2))

 

[sirkülasyon]

Yusuf abi
Sağ olasın. Sorun giderildi.