• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Listboxa Dongu ile Item ekleme hakkında

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
O

OğuzTürkyılmaz

Yeni Üye
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
31
Excel V
Office 365 TR
Konu Sahibi
Merhaba nette izlediğim dersi aynen uyguladığım deneme çalışmasında Listboxta sütun adlarını ve verileri alamıyorum. Sütun başlığını False yaptım dersdeki gibi True da olsa gözükmüyor. Sayfadaki verileride filtrelemiyor yazılan kod. Sorun konusunda yardımcı olmanızı rica ederim. Not: Sayfadaki veriler Gerçek kişilere ait değildir değiştirilmiştir.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
E
Sayın OğuzTürkyılmaz ben videoyu izlememiştim.
Balta hocamın uyarısına göre de videodaki kodda bir sıkıntı yok.
Siz eksik uyarlama yapmışsınız. Son satır bulma için
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row kodunu
boş satır bulmak içinse
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row + 1 kodunu kullanabilirsiniz.
Boş satır dolu olan satırların arasında bir yerdeyse başka kod kullanmak
gerekir. Bu da bir not olarak kalsın.
Tarihe göre sırala Oylara göre sırala
öncelikle açtığınız konularda tek soru sorun birden fazla soru sorulduğunda hem sizin hem bizim hem de forumdan yararlanacak diğer üyelerin kafası karışacaktır
OğuzTürkyılmaz' Alıntı:
Merhaba nette izlediğim dersi aynen uyguladığım deneme çalışmasında Listboxta sütun adlarını ve verileri alamıyorum. Sütun başlığını False yaptım dersdeki gibi True da olsa gözükmüyor.
Genişletmek için tıkla...
tam olarak yapmak istediğiniz şey ne? hangi sayfadaki hangi verileri hangi koşula göre filtrelemek istiyorsunuz?
diğer sorun için yeni konu açmanız daha uygun olur
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
öncelikle açtığınız konularda tek soru sorun birden fazla soru sorulduğunda hem sizin hem bizim hem de forumdan yararlanacak diğer üyelerin kafası karışacaktır

tam olarak yapmak istediğiniz şey ne? hangi sayfadaki hangi verileri hangi koşula göre filtrelemek istiyorsunuz?
diğer sorun için yeni konu açmanız daha uygun olur
Genişletmek için tıkla...
Halil hocam asıl sorun sayfa1 deki verilerin listboxa alınamaması.
 
Olumlu oy 0 Negatif oyla
Sıkıntı sizin last_row değişkeninizin sürekli 0 çekmesinden kaynaklanıyor.
Pasife alıp yeniden tanımladım bir sıkıntı görünmüyor.


HTML:
AppleScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Sizin yazdığınız kod,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
videodaki kod,
1652794783035.png
Farkı gördünüz sanırım.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
Sıkıntı sizin last_row değişkeninizin sürekli 0 çekmesinden kaynaklanıyor.
Pasife alıp yeniden tanımladım bir sıkıntı görünmüyor.


HTML:
AppleScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Çok teşekkür ederim ilginiz için.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Balta' Alıntı:
Sizin yazdığınız kod,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
videodaki kod,
Ekli dosyayı görüntüle 8273
Farkı gördünüz sanırım.
Genişletmek için tıkla...
Görmez olaydım :) Çok teşekkür ederim.

last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row kodu ile videodaki kod arasında performans yada başka bir fark vamıdır. Yerine göre biri diğerinden farklı durumlarda mı kullanılır. İkiside aynı kapıya çıkıyorsa hangisinin kullanımı daha fazla tercih edilir. Zaman ayırıp cevap verebilirseniz memnun olurum.
 
Olumlu oy 0 Negatif oyla
Sayın OğuzTürkyılmaz ben videoyu izlememiştim.
Balta hocamın uyarısına göre de videodaki kodda bir sıkıntı yok.
Siz eksik uyarlama yapmışsınız. Son satır bulma için
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row kodunu
boş satır bulmak içinse
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row + 1 kodunu kullanabilirsiniz.
Boş satır dolu olan satırların arasında bir yerdeyse başka kod kullanmak
gerekir. Bu da bir not olarak kalsın.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
excelcan' Alıntı:
Sayın OğuzTürkyılmaz ben videoyu izlememiştim.
Balta hocamın uyarısına göre de videodaki kodda bir sıkıntı yok.
Siz eksik uyarlama yapmışsınız. Son satır bulma için
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row kodunu
boş satır bulmak içinse
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row + 1 kodunu kullanabilirsiniz.
Boş satır dolu olan satırların arasında bir yerdeyse başka kod kullanmak
gerekir. Bu da bir not olarak kalsın.
Genişletmek için tıkla...
Vakit ayırıp cevap verdiğiniz için çok teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
Sayın OğuzTürkyılmaz ben videoyu izlememiştim.
Balta hocamın uyarısına göre de videodaki kodda bir sıkıntı yok.
Siz eksik uyarlama yapmışsınız. Son satır bulma için
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row kodunu
boş satır bulmak içinse
last_row = Sayfa1.Cells(Rows.Count, "A").End(3).Row + 1 kodunu kullanabilirsiniz.
Boş satır dolu olan satırların arasında bir yerdeyse başka kod kullanmak
gerekir. Bu da bir not olarak kalsın.
Genişletmek için tıkla...
Sn Excelcan bu dersle ilgili kodları projeme adapte ettiğimde listboxta sadece 10 sütunluk veriyi alıyor oysa döngümdeki sayı itibarı ile 24 sütunu listboxa getirmesi gerekiyor. Burada göremediğim koddaki sıkıntı nedir. LİSTBOX.pngLISTBOX II.png
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
yanılmıyorsam add.item yöntemi ile listbox'a sadece 10 sütun alınabiliyor (yanlış bilgi alabiliyormuş)
bence burada kullanılabilecek en uygun yöntem ADO olur
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Anladığım kadarıyla sütun başlıklarını almak istiyorsunuz.
Farklı yöntemler var. Bunlardan biri de Halil hocamın önerisi.
AddItem ile 10 sütun veri alabilirsiniz. Sonraki sürümlerde değiştiyse bilmiyorum.
Ben genellikle YÖNTEM 1 i kullanıyorum. Diğerini de zaman zaman kullanıyorum.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
yanılmıyorsam add.item yöntemi ile listbox'a sadece 10 sütun alınabiliyor
bence burada kullanılabilecek en uygun yöntem ADO olur
Genişletmek için tıkla...
Haklısınız Halil hocam dosyada çok sütun var işin kolayına kaçıp 10 tanesini seçmeye kalksam diğer 14 sütundaki verileri unutmak gerekiyor buda mümkün değil eşim beni keser :) onun kullanımı için hazırlıyorum. ADO ile çözümü konusunda ne yapabilirim onu araştırıyorum forumda benimkine benzer bir yöntem mutlaka kullanılmıştır diye düşünüyorum. Şu ana kadar bulduklarım çok daha gelişmiş işler yapan kodlar.
 
Olumlu oy 0 Negatif oyla
13 nolu mesajdaki dosyayı denediğimde bir sorun göremedim.
Combo dan plaka seçtim. Textbox a 07 C yazdım listbox 23 sütuna doldu.
 
Olumlu oy 0 Negatif oyla
excelcan' Alıntı:
13 nolu mesajdaki dosyayı denediğimde bir sorun göremedim.
Combo dan plaka seçtim. Textbox a 07 C yazdım listbox 23 sütuna doldu.
Genişletmek için tıkla...
haklısınız excelcan hocam sorunsuz aldı, galiba ben başka bir şeyle karıştırdım
alternatif olarak aşağıdaki kod da denenebilir
küçük/büyük harf sorunu için Application.Proper
Benzerlik için Like kodu kullanılmıştır; istenirse başa yıldız eklenerek arama genişletilebilir

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
13 nolu mesajdaki dosyayı denediğimde bir sorun göremedim.
Combo dan plaka seçtim. Textbox a 07 C yazdım listbox 23 sütuna doldu.
Genişletmek için tıkla...
Evet sayın excel can sizin kodu denemeden halil hocama cevap yazmıştım. Sonra sizin kodu çalıştırdım sorun yok çalışıyor. ADO ile nasıl çözülür 10000 üstü kayıtlarda filtrelemede ADO ile çözüm daha mı efektif olur o yüzden o çözümü de merak ediyorum.
 
Olumlu oy 0 Negatif oyla
ADO'da alan türü sorun çıkarabilir, hafta sonu daha uygun bir zamanda denemeye çalışırım
 
Olumlu oy 0 Negatif oyla
bir de ADO kapılı dosyalardan veri alırken ve karmaşık işlemlerde oldukça iyidir ama açık kitaplarda ve çok karmaşık olmayan işlemlerde dizi yöntemi oldukça hızlıdır
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst