run time error 380 hatamesajı ne anlama geliyor

[clymax]

selam dostlar oluşturduğum formda böyle bir hata mesajı çıkıyor

(run time 380 could not set tfe rowsorce property. invalidpropertyvalue)

ne anlama geliyor yardımcı olması için size ek dosyayı da gönderiyorum

 

[clymax]

dosyayı göndermeyi unutmuşum

 

[talatcd]

RowSource kod tanımlamasında bhata var. şu an müsait deilim kontrol edecem.

 

[talatcd]

cylamax bana göre bu forma girilen değerler veri sayfasına aktarılacak veri sayfasından da her müşteri kendi sayfasına aktarılacak doğrumu anlamışım,
bu şekil ise yapmak istediğin veri sayfasına tüm verilerimizi eklememiz gerekiyor.

 

[Ferhat Pazarçevirdi]

Merhabalar,

"Çalışma Kipi Hatası 380 : RowSource özelliği ayarlanamıyor"

Userform'un "Initialize" olayında, "cmdfirma" nesnesinin "rowsource" özelliği bu hataya sebebiyet veriyor. Çünkü, dolu hücreleri saymaya çalıştığınız CountA (BAĞ_DEĞ_DOLU_SAY) fonksiyonu; "0" değer üretiyor.

"Veri!A2:A0" diye Excel'de bir hücre(Aralık) referansı belirtemezsiniz. A0 gibi bir referans olmadığı gibi, (2003 versiyonuna göre) A65537 diye de bir referans yoktur.

Oysa ki, sizin kod satırları böyle bir referans üretmekte ve sonuçta, 380 nolu hata mesajını almaktasınız. "cmdfirma" nesnesinin "rowsource" özelliği için başka bir yöntem kullanınız.

 

[clymax]

öncelikle teşekkür ederim arkadaşlar peki nasıl bir kod kullana biliriz sizce

 

[Ferhat Pazarçevirdi]

Rowsource'ları set ettiğiniz kod satırlarını aşağıdaki şekilde değiştirebilirsiniz. bu sadece bir yöntem daha farklıları da yapılabilir.

Dim i%
cmdfirma.Clear
For i = 2 To Sheets("veri").Cells(65536, 1).End(xlUp).Row
    cmdfirma.AddItem Sheets("veri").Cells(i, 1)
Next i
cmdkumascinsi.Clear
For i = 2 To Sheets("veri").Cells(65536, 3).End(xlUp).Row
    cmdkumascinsi.AddItem Sheets("veri").Cells(i, 3)
Next i
cmdmusteribilgisi.Clear
For i = 2 To Sheets("veri").Cells(65536, 4).End(xlUp).Row
    cmdmusteribilgisi.AddItem Sheets("veri").Cells(i, 4)
Next i

 

[clymax]

Sayin Fpc ArkadaŞim Öncelİkle TeŞekkÜr Ederİm Yardminin İÇİn Şu Anda Hatasiz ÇaliŞmaya BaŞladi Benİm Sİze Bİr Sorum Daha Olacakti

GÖrdÜĞÜnÜz Gİbİ Verİ GİrİŞ Lerİ Yapliyor Benİm Amacim Şu Gelen KumaŞlarin Bİlgİlerİnİ Gİrmek Ve Bu Bİlgİlerİ AŞaĞida Lİstwİew De GÖrÜnmesİ Kaydet DedİĞİmİz Zamnda Gereken Sayfalara Bu Bİlgİlerİn Yazilmasi Lİst Wİew Hakkinda Pek Bİr Bİlgİm OlmadiĞi İÇİn Ne Yapabİlİrİz Yardimlariniz İÇİn TeŞŞekÜrler

ÇaliŞir Durumdakİ Ekİ Tekrar Yolluyorum