Run time error 380

[byfika]

Merhabalar, run time error 380 hatasına çözüm arıyorum. kodlardaki sayfa adını değiştirip data grdiğimde problem görünmüyor. ama örnekteki sayfa adını yazdığımda bu hatayı alıyorum. Bir ikinci sorum taban ve renk 1 ve 2 nolu textbox datam sayfasından bilgiyi alacak şekilde combobox yapabilirim. Bilgilerinize şimdiden teşekkürler

 

[Ziynettin]

Merhaba;

run time error 380 hatası için Initialize olayındaki kodu bu şekilde deneyiniz

Private Sub Userform_Initialize()
    Yeni_mi = True
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "80;120,100"
    With Sheets("TABAN STOK GİRİŞ")
        son = .Range("A65536").End(xlUp).Row
        If son > 4 Then
        a = .Range("B5:D" & son)
        ListBox1.List = a
        End If
    End With
End Sub

 

[byfika]

Çok teşekürler problem çözüldü. Elinize sağlık