Çözüldü listbox a süzülmüş veri aktarımı

[derisa963]

Merhaba Arkadaşlar. Tam 13 Saattir Bu Sorun İle Uğraşıyorum Ve Hiçbir Yerde Çözüm Bulamadım Yardımcı Olurmusunuz.

Örnek Dosya Atamıyorum Kusura Bakmayın Ama İyi Bir Şekilde İzah Edicem.

Benim bir userform1'im var Bir de Sayfa1'im var sayfa1' de 6000 satır veri var "N" sütununa Kadar

Userform1 deli Listbox1'e ben Sayfa1'deki Verileri Aktarmak İsteyorum. Fakat Bazı Şartlar Var.
1) Listbox1'in 0. kolonuna Sayfa1'deki Aktarılan verinin Sütun Numarası Gelecek
2) Listbox1'in 1. kolonu ise boş kalıp sayfa1'deki "A" sütunu 2. kolondan başlayacak.
3) Userform1' deki Textbox1 Den Sayfa1'in "B" sütunu için arama yapabilmem lazım. misal b2 de "asdf" yazıyor ise ben textbox1'e "sd" yazdığımda bulabilmeliyim.
4) Textbox1 Boş İse Listbox1'e tüm Sayfa Yüklenecek.

Bu durumları yapabilecek veya nasıl yapabileceğimi bilen var ise lütfen yardımcı olurmu rica etsem. Cidden daha hiç uyumadım ve hala çözemedim çok üzgünüm.
Anlatımda Yanlışım Varsa Affola
Elimden Geldiğince Kibarca İzah Etmeye Çalıştım

 

[derisa963]

bu arada for next döngüsüyle amatörce bir çalışma yaptım ama excel yanıt vermiyor verdiği zaman ise 5 dk da falan sonuç alıyorum arkadaşalar.

bir yandan araştırıyorum ama hala bulamadım

 

[derisa963]

Yok Mu yardım edecek bir arkadaşım [emoji21]

TA-1012 cihazımdan Tapatalk kullanılarak gönderildi

 

[Orion1]

Örnek dosya yollarsanız yardım edecek kişiler olacaktır.
Dosyanızdaki verilerin aynisini değil,uyduruk veriler yazın.
5-10 satır yazsanız olur.

 

[turist]

Sayın @derisa963 ,
Örnek excel dosyası hakkında;
Buraya bakınız.

 

[derisa963]

@turist @Orion1

Merhaba Abilerim

Sizlerin İlgiilenmesine ayrıca çok sevindim ve hemen ek dosyamı hazırladım
Teşekkürler ederim

 

[turist]

Sayın @derisa963 ,
Eklediğiniz dosyada ListBox için tanımladığınız koşullar yer almıyor sanırım.
Örnek:
"3) Userform1' deki Textbox1 Den Sayfa1'in "B" sütunu için arama yapabilmem lazım. misal b2 de "asdf" yazıyor ise ben textbox1'e "sd" yazdığımda bulabilmeliyim. " diyorsunuz, B sütununda sadece "Tarih" var.
Bunun dışında;
"1) Listbox1'in 0. kolonuna Sayfa1'deki Aktarılan verinin Sütun Numarası Gelecek "
diyorsunuz aktarılacak veriler zaten belli sütunlardan alınıyor. Satır demek istemiş olabilir misiniz?
"2) Listbox1'in 1. kolonu ise boş kalıp sayfa1'deki "A" sütunu 2. kolondan başlayacak. "
Bunu da net anlayamadım.

 

[derisa963]

@turist
sayın abi çok özür dilerim.

B sütunu yerine D sütununu Baz alabilirsiniz
0. kolon ise satır nuraması
1. kolonu ileride farklı bir durum söz konusu olur ise yedekte boş olarak bırakmayı düşündüm

0. ve 1. kolunun .ColumnWidths = "0;0" ini 0 olarak ayarlayacağım normalde listbox da gözükmeyecek gerektiği zaman 0. kolondan satır numarasını alabilmek için 1. kolona ise gerekli veri olursa anlık olarak eklemek için

abi sabaha kadar uğraşmıştım biraz uykusuzluk biraz da kafa karışıklığından dolayı ifadeler yanlış olmuş özür dilerim ilgine çok teşekkür ederim

 

[turist]

Tamam, siz biraz dinlenin
Biz de çözüm var mı bakalım.
İyi çalışmalar...

 

[derisa963]

tesekkür ederim dinlendim bende bir yandan çözümaricam

 

[derisa963]

Merhaba Abiler
@Orion1 @turist
Mevcuttaki Yapmaya çalıştığım Programın Videosu. Fakat Bazen Kodlama Kararsız Kalarak Donmalar Yapıyor 9000 Satırda Hiç Çalışmıyor (bağlantı.tıkla)

 

[turist]

Sayın @derisa963 ,
Öneri:
Uzantısı "xlsb" olacak şekilde (xlsm değil) Dosyanızın bir kopyasını oluşturun.
Bu dosyada "Formüller" sekmesindeki Hesaplama seçeneğini "Otomatik" değil "El ile" yapın.
Sonra UserForm'u deneyin.
Sonucu paylaşırsınız.

 

[derisa963]

@turist
sayın abi;

ben bunu bilmiyordum ciddi bir hız artışı var fakat 9000 satır da yine donmalar yaşanıyor kısa sürali de olsa bi 14 saniye gibi bazen de çıldırıyor
ana dosyayı ekliyorum incelemek isterseniz

galiba kodlamamı biraz daha düzeltir isem bu sorunu da aşabilirim gibime geliyor userform_a daki filt_li2 kodu gerçekleştiriyor aramaları

 

[derisa963]

@Orion1 abi senin bu konu hakkında daha önceden çalışman vardı galiba ama bulamadım bu konuda bir bilginiz varmı ?

 

[derisa963]

@İdris SERDAR Bey bu konuyla ilgili sizin bir bilginiz varmı online yakalamışken sormak istedim affola . Gerçekten dün bu saatten bu yana araştırıyorum çözüm bulamadım