Soru Run Time Error 91 Hatası

[sirkülasyon]

Butona atanan Kod

Private Sub CommandButton2_Click()
BANKA.Show
End Sub

Formun Initialize de yer alan kod

Private Sub UserForm_Initialize()
Dim i As Integer
Dim dz() As String
Dim Son As Integer
Son = Sheets("Bankalar").[b65536].End(3).Row
ReDim dz(1 To Son, 1 To 3)
    With ComboBox1
        .ColumnCount = 3
        .ColumnWidths = 85
        .Width = 220
        .Height = 26
        .ListRows = 6
        .BoundColumn = 2
    End With
For i = 1 To Son
    dz(i, 1) = Sheets("Bankalar").Cells(i, "A")
    dz(i, 2) = Sheets("Bankalar").Cells(i, "B")
    dz(i, 3) = Sheets("Bankalar").Cells(i, "C")
Next i
ComboBox1.List() = dz()
End Sub

Banka Formundan Userformda ki textboxlara aktardığım kod

Private Sub ComboBox1_Change()
UserForm1.TextBox5 = BANKA.ComboBox1.Column(1)
UserForm1.TextBox6 = BANKA.ComboBox1.Column(2)
Unload Me
End Sub

Bir yerde hata yaptım ama ne hatası yaptım bulamadım. Rica etsem yardımcı olabilir misiniz?


Hata Kodu

[SIZE=12px][B]Run-Time Error '91': Object Variable or With Block Variable Not Set[/B][/SIZE]


 

[muratboz06]

Herhangi bir module de 2 tane public değişken oluşturun.
Public xxx as string 'değişken türünü Comboboxtaki değere göre kendiniz ayarlayınız.
Public yyy as string

Private Sub ComboBox1_Change()
xxx = BANKA.ComboBox1.Column(1)
yyy = BANKA.ComboBox1.Column(2)
Unload Me
End Sub

Private Sub UserForm1_Activate() 'userform1 activate kodunuz varsa sadece aşağıdakileri ekleyin yoksa bu dört satırı UserForm1'in kod bölümüne ekleyin.
UserForm1.TextBox5 = xxx
UserForm1.TextBox6 = yyy
End Sub

 

[sirkülasyon]

Invalid use of null hatası verdi

Private Sub ComboBox1_Change()
bankatext = BANKA.ComboBox1.Column(1)
subetext = BANKA.ComboBox1.Column(2)
Unload Me
End Sub

 

[sirkülasyon]

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then
Exit Sub
End If
bankatext = BANKA.ComboBox1.Column(1)
subetext = BANKA.ComboBox1.Column(2)
Unload Me
End Sub

hata gitti böyle yapınca ama form1 textboxa veriyi getiremedim

 

[muratboz06]

Public bankatext as variant,
Public subetext as variant

olarak deneyiniz.
Userformları görmeden çözüm biraz zor oluyor. Mümkünse excel dosyanızı buradan veya özelden paylaşın.

 

[sirkülasyon]

Sayın muratboz06
Çözüldü. Eline emeğine sağlık. Teşekkür ederim