run-time error 381 hatası :(

[ulutanas]

arkadaşlar iyi akşamlar başım yine userform ile dertte

bugün sabahtan beri bu sorunla ilgili araştırma yaptım ama sorunumu çözemedim bir çok konu araştırdım denedim ama yinede sorunu çözemedim sizlere zahmet ekli dosyada sorunmla ilgili açıklamayı yaptım yardımcı olursanız çok memnun olurum. konuyla ilgilenen arkadaşlarıma şimdiden teşekkür ederim. hayırlı akşamlar

 

[Levent Menteşoğlu]

Hata veren satır aşağıdakidir. Buradaki columns.count ifadesini doğru tanımlayın.

.Columns(Columns.Count).Clear

 

[ulutanas]

ilginiz için teşekkür ederim levent bey. kod kısmını korhan bey yazmıştı o kısımla ilgili bilgim henüz yok. yardımcı olabilirmisiniz nasıl yapmalıyım.

 

[Levent Menteşoğlu]

Burada kullanılan columns.count neyin sütun sayısı anlayamadım. Listboxun yada sayfanınmı?

 

[ffff7]

Hata veren kodu yani userformun initialize olayını aşağıdaki kodlarla değiştirin.
veri değişkenine 2. satırdan başlayan ve uzayan bir range atılıyor ama bir tek veri olunca 2.satırdan 2.satıra range oluyor ve problem çıkarıyor. son değişkeninde sadece 2 değeri için düzeltme yapıp 3 diye değiştirince problem çözülüyor. Korhan bey daha güzel bir çözüm bualacaktır.

Private Sub UserForm_Initialize()
    If Sheets("ÜRETİM_GİRİŞ_FORMU").FilterMode Then Sheets("ÜRETİM_GİRİŞ_FORMU").ShowAllData
    ListBox1.ColumnCount = 16
    ListBox1.RowSource = "ÜRETİM_GİRİŞ_FORMU!A2:P" & Sheets("ÜRETİM_GİRİŞ_FORMU").Range("B65536").End(xlUp).Row
    ListBox1.ColumnWidths = "30;45;50;138;55;55;50;50;50;50;50;40;35;35;35;100"
    With Sheets("ÜRETİM_GİRİŞ_FORMU")
        .Columns(Columns.Count).Clear
        .Columns(4).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Cells(1, Columns.Count), Unique:=True
        .Range(.Cells(2, Columns.Count), .Cells(Rows.Count, Columns.Count)).Sort Key1:=.Cells(1, Columns.Count), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
         son = .Cells(Rows.Count, Columns.Count).End(3).Row
         If son = 2 Then son = 3
         Veri = .Range(.Cells(2, Columns.Count), .Cells(son, Columns.Count))
         ComboBox1.List = Veri
         .Columns(Columns.Count).Clear
    
        .Columns(5).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Cells(1, Columns.Count), Unique:=True
        .Range(.Cells(2, Columns.Count), .Cells(Rows.Count, Columns.Count)).Sort Key1:=.Cells(1, Columns.Count), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
         'son = .Cells(Rows.Count, Columns.Count).End(3).Row
         Veri = .Range(.Cells(2, Columns.Count), .Cells(son, Columns.Count))
         ComboBox2.List = Veri
         .Columns(Columns.Count).Clear
    
        .Columns(6).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Cells(1, Columns.Count), Unique:=True
        .Range(.Cells(2, Columns.Count), .Cells(Rows.Count, Columns.Count)).Sort Key1:=.Cells(1, Columns.Count), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
         'son = .Cells(Rows.Count, Columns.Count).End(3).Row
         Veri = .Range(.Cells(2, Columns.Count), .Cells(son, Columns.Count))
         ComboBox3.List = Veri
         .Columns(Columns.Count).Clear
    
        .Columns(15).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Cells(1, Columns.Count), Unique:=True
        .Range(.Cells(2, Columns.Count), .Cells(Rows.Count, Columns.Count)).Sort Key1:=.Cells(1, Columns.Count), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
         'son = .Cells(Rows.Count, Columns.Count).End(3).Row
         Veri = .Range(.Cells(2, Columns.Count), .Cells(son, Columns.Count))
         ComboBox4.List = Veri
         .Columns(Columns.Count).Clear
    End With
End Sub

 

[ulutanas]

levent bey ve fff7 arkadaşlar ilginiz için teşekkür ederim sorun fff7 arkadaşımızın yardımıyla çözüldü çok teşekkür ederim ilginiz ve yardımınız için.
Saygılarımla.