private procedure un 64kb yi asma sorunu

[Meyhaneci]

arkadaslar oncelikle merhaba foruma yeni uye oldum ve inanilmaz isimi yariyor.

suan ki sorunum olusturdugum macro nun bir prosedure icin cok buyuk olmasi. yani 64kb den buyuk. bunu kisayoldan nasil cozerim?

ugrastigim dosyayi ekte gonderdim.
calismayan procedure Private Sub ComboBox2_Change()

simdiden tesekkurler

 

[Levent Menteşoğlu]

Bunun sebebi çok açık combobox lara additem ile bu kadar çok veriyi kod içinden yüklemek kapasiteyi arttırmış. Bence bu verileri bir sayfa üzerinde toplayın ve oradan comboboxa yükleyin. Yani her sütuna ilk satır olarak 102,103 gibi değerleri yazın daha sonrada bu değerlere karşılık eklenecek verileri alt satırlardan devam edin. Eğer bu verileri bir sayfada listelerseniz biz kodlama konusunda yardımcı oluruz.

 

[Meyhaneci]

Bunun sebebi çok açık combobox lara additem ile bu kadar çok veriyi kod içinden yüklemek kapasiteyi arttırmış. Bence bu verileri bir sayfa üzerinde toplayın ve oradan comboboxa yükleyin. Yani her sütuna ilk satır olarak 102,103 gibi değerleri yazın daha sonrada bu değerlere karşılık eklenecek verileri alt satırlardan devam edin. Eğer bu verileri bir sayfada listelerseniz biz kodlama konusunda yardımcı oluruz.

dediginiz gibi bir kalıp hazırladım
yardımınız icin tesekkurler

 

[Meyhaneci]

For i = 0 To 19
ComboBox5.AddItem (Sheets("kaliperc").Cells(i + 6, 2))
Next

sorunu cozdum arkadaslar

kalıperc sheetinden aliyorum bilgileri.

levent yardimin icin saol

 

[Levent Menteşoğlu]

Sorunu çözdüğünüze sevindim. Bir öneri, additem yerine veriler sabit olduğundan rowsource ile alabilirsiniz, çok daha hızlıdır.

 

[Meyhaneci]

acikcasi rawsource ile baska worksheet ten data alamadı ornek te bulamadım. surekli nokta parantez falan hatası veriyor

 

[Levent Menteşoğlu]

Ben zaten size yanlış bilgi vermişim özür dilerim. Veri girişini sayfa üzerinden yaptığınız için Rowsource değil listfillrange özelliği olacaktı. "GİRİŞ EKRANI" nı bir userform üzerindende yapabilirsiniz.

 

[Meyhaneci]

ilgilendigin icin cok saol

suan combobox ları for loop un icine sokmaya calısıyorum. söyle ki combobox4 ten combobox14 e kadar tum comboların icine bakacak value eşlestirecek.
comboboxları for loop icine nasıl alırım?

for i = 4 to 14
cells(1, i).value = combobox(i).value
next

denebilir mi?

 

[Levent Menteşoğlu]

denebilir mi?

Denemez işte bu sebepten size userformu önerdim sayfa üzerindeki comboboxları gruplamak biraz zahmetli bir iş.

 

[Meyhaneci]

Denemez işte bu sebepten size userformu önerdim sayfa üzerindeki comboboxları gruplamak biraz zahmetli bir iş.

cahilligimi bagisla userform nedir bilmiyorum. peki suan hali hazirda yazdigim komutları da koruyarak giriş sayfasını userform yapabilir miyim?

 

[Levent Menteşoğlu]

Forumda userform ile ilgili binlerce örnek mevcut, aşağıdaki linkteleri örneği inceleyebilirsiniz.

Nasıl yapılır,

http://www.excel.web.tr/showthread.php?t=9985

Örnek uygulama,

http://www.excel.web.tr/showthread.php?t=15160

Not: Ben bir boş vaktimde yardımcı olmaya çalışırım.

 

[Meyhaneci]

gonderdigin ornek cok gusel sadece textbox ları birbirini etkileyen combobox veya listbox a cevirebilirsem super olur

kalıbı zaten yukarda gondermistim. o kalıba uydurmaya calısıcam

 

[Meyhaneci]

peki bu user form a calendar nereden koyucam? microsoftun kini kullanıyodum

DTPicker1_CallbackKeyDown
excell de

buldum toolbox sagtıklanıp additional controls den..

 

[Levent Menteşoğlu]

Additional controls penceresinde takvim denetimi olarak geçer.