Run-Time Error '380': hatası

[özdil1]

Merhabalar. Öncelikle burada katkısı ve emeği geçen herkese sonsuz teşekkürler. Ekte gönderdiğim dosyada ilk başta herhangi bir sorun yoktu. Ancak bir kaç kayıt girdikten sonra FİRMA KAYIT butonuna tıkladığımızda Run-Time Error '380': hatası ile birlikte Coult not set the RowSource property.Invalid property value şeklinde bir ibare çıkıyor. Debug'a tıkladığımızda
Private Sub CommandButton1_Click()
UserForm2.Show
End Sub
buradaki Userform2.Show sarı renge dönüşüyor. Konu hakında aydınlatırsanız memnun olur saygılar sunarım.

 

[ExcelF1]

Sayın özdil,

Şu an işe gitmek zorunda olduğumdan acelece dosyanıza baktım. Şimdilik şu düzeltmeyi yaparsanız sorun çözülecektir sanıyorum. Müsait olduğumda daha detaylıca bilgilendirme yapmaya çalışırız inş.

Userform2'nin İnitialize Kodları,

Private Sub Userform_Initialize()
    Yeni_mi = True
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "200;250"
    ListBox1.RowSource = "Sayfa4!B2:D1000" 
End Sub

 

[takin]

Private Sub Userform_Initialize()

içindeki

ListBox1.RowSource = "Sayfa4!B21000" & Sheets("Sayfa4").Range("A65536").End(xlUp).Row

kısmı yanlış. Buradaki 1000 'i sildim çalıştı.

O satır şöyle oldu.

ListBox1.RowSource = "Sayfa4!B2" & Sheets("Sayfa4").Range("A65536").End(xlUp).Row

 

[özdil1]

Yardımlarınız için teşekkür ederim.ExcelF1 verdiğiniz kodu uyguladım ve sorun çözüldü. Müsait olduğunuzda daha detaylı bilgi vereceğinizi belirtmişsiniz. Çok teşekkür eder, detaylı yardımlarınızı beklerim. Takin sizede ilginizden dolayı ayrıca teşekkür ederim.

 

[ExcelF1]

Merhabalar Sayın özdil,

Elimden geldiğince anlatmaya çalışayım.

ListBox1.RowSource = "Sayfa4!B2:D1000" & Sheets("Sayfa4").Range("A65536").End(xlUp).Row

Koddaki 1000 rakamı hataya neden olmaktadır. Listbox'un satır kaynağı hem B2 ile D1000 arasında olsun diyoruz, hemde Sayfa4'te A sütununun en son verisine kadar olsun diyoruz. Sanırım bu kısım hataya neden olmakta. Bu hatanın önüne geçmek için yapılması gereken şey,

1000 yazısını silmektir. Böylece kod şu şekilde okunacaktır,

Listbox1.KaynakSatırları = Sayfa4'te B2'den Başla ve D sütunu için A sütununun en son dolu hücresine kadar

ListBox1.RowSource = "Sayfa4!B2:D" & Sheets("Sayfa4").Range("A65536").End(xlUp).Row

 

[özdil1]

Merhabalar Sayın özdil,

Elimden geldiğince anlatmaya çalışayım.

ListBox1.RowSource = "Sayfa4!B2:D1000" & Sheets("Sayfa4").Range("A65536").End(xlUp).Row

Koddaki 1000 rakamı hataya neden olmaktadır. Listbox'un satır kaynağı hem B2 ile D1000 arasında olsun diyoruz, hemde Sayfa4'te A sütununun en son verisine kadar olsun diyoruz. Sanırım bu kısım hataya neden olmakta. Bu hatanın önüne geçmek için yapılması gereken şey,

1000 yazısını silmektir. Böylece kod şu şekilde okunacaktır,

Listbox1.KaynakSatırları = Sayfa4'te B2'den Başla ve D sütunu için A sütununun en son dolu hücresine kadar

ListBox1.RowSource = "Sayfa4!B2:D" & Sheets("Sayfa4").Range("A65536").End(xlUp).Row

[/QUO

Yardımlarınız için çok teşekkür eder saygılar sunarım.

 

[ExcelF1]

Yardımcı olabildiysek ne mutlu. Kolay gelsin.

 

[TURKOLOG]

Run-Time Error '380': hatası
invalid property value hatası alıyorum.
Kodu bir türlü güncelleyemedim . Yardımcı olabilecek olan var mı.

Private Sub UserForm_Initialize()

''''''''''''Seçimli Tikli Kutucuk Yapmak İçin'''''''''''''''''''''''''''''
    ListBox1.RowSource = "A1:K" & Cells(65536, 1).End(xlUp).Row
    ListBox1.ListStyle = fmListStyleOption
    ListBox1.MultiSelect = fmMultiSelectMulti
    
'Sheets("VERİ").Activate
ListBox1.ColumnCount = 11
ListBox2.ColumnCount = 11

ListBox1.ColumnWidths = "20;50;100;100;100;150;50;100;100;100;100"
ListBox2.ColumnWidths = "20;50;100;100;100;150;50;100;100;100;100"

Set dict = CreateObject("Scripting.Dictionary")
ListBox1.RowSource = "VERİ!A2:K150"
End Sub