• 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ü Tarihleri listboxta sıralama

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.
M

murat_8181

Excel Dostu
Katılım
17 Nis 2021
Mesajlar
532
Çözümler
38
Aldığı beğeni
237
Excel V
Office 2016 TR
Konu Sahibi
listboxa masaüstündeki bir klasör içerisinden tarihleri çekiyorum. Listboxa gelen tarihleri formatını bozmayacak şekilde eski tarihten yeni tarihe doğru sıralamak istiyorum. Yardımcı olursanız sevinirim. Saygılar
 

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
halily
Refaz' Alıntı:
RegExp yi bir türlü çözemedim ama araştırmalardan bulup uyarladım. Halil hocamızın kodunu uyarlayacaktım ama galiba silinmiş.
Genişletmek için tıkla...
orada bir hata yapmışım sıralamayı yapmıyordu o nedenle silmiştim. regexpi denedim sıralamayı doğru yaptığında çok ağır çalışıyor hocam 1000 küsür dosya için 10sn falan olunca vazgeçtim
ama recordset ile yaptığımda 1000 dosya için 1snyeden kısa sürdü (0,8 sn)
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Olumlu oy 0 Negatif oyla
RegExp yi bir türlü çözemedim ama araştırmalardan bulup uyarladım.Halil hocamızın kodunu uyarlayacaktım ama galiba silinmiş.
Bu kod ile tarih başta olmak zorunda değil.
Tarih ayraçı nokta olacak.

Screenshot 2022-07-14 113903.png
 

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
Refaz' Alıntı:
RegExp yi bir türlü çözemedim ama araştırmalardan bulup uyarladım. Halil hocamızın kodunu uyarlayacaktım ama galiba silinmiş.
Genişletmek için tıkla...
orada bir hata yapmışım sıralamayı yapmıyordu o nedenle silmiştim. regexpi denedim sıralamayı doğru yaptığında çok ağır çalışıyor hocam 1000 küsür dosya için 10sn falan olunca vazgeçtim
ama recordset ile yaptığımda 1000 dosya için 1snyeden kısa sürdü (0,8 sn)
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
aşağıdaki dosyada kullanılabilecek tüm fonksiyonlar yer alıyor
hız testinde en hızlısı SanalRs ve SanalRs2Sira çıktı, kontrol edebildiğim kadarıyla sorun göremedim deneme amaçlı olarak yer kaplamasınlar diye 1046 text + 8 sizin eklediğiniz pdf dosyası kullanıldı
 

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.
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
halily' Alıntı:
orada bir hata yapmışım sıralamayı yapmıyordu o nedenle silmiştim. regexpi denedim sıralamayı doğru yaptığında çok ağır çalışıyor hocam 1000 küsür dosya için 10sn falan olunca vazgeçtim
ama recordset ile yaptığımda 1000 dosya için 1snyeden kısa sürdü (0,8 sn)
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Tamam abey.Çözümü sizinki olarak değiştirdim.Benim yaptığım yanlış yazmazsam Bubblesort diye geçiyor çok fazla dosya olursada yavaş çalışabilirdi.
Artık üstad dener hangisi uyarsa onu kullanır.Sanal Ado da varmış öğrendik sayenizde :)
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Yo abey sanal Listview gibi sorun olacağını sanmıyorum çünkü createobject kullanmışsınız :)
 
Olumlu oy 0 Negatif oyla
peki Refaz hocam
Set VrLW = GetObject("New:{996BF5E0-8044-4650-ADEB-0B013914E99C}") yerine
Set VrLW = CreateObject("New:{996BF5E0-8044-4650-ADEB-0B013914E99C}") yazarsak 2016 64 bitte çalışır mı acaba?
sayın murat_8181 hem sanal recordsetli kodu hem de aşağıdaki kodu 2016 64bitte deneyip sonucu bildirebilir misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
halily' Alıntı:
peki @Refaz hocam
Set VrLW = GetObject("New:{996BF5E0-8044-4650-ADEB-0B013914E99C}") yerine
Set VrLW = CreateObject("New:{996BF5E0-8044-4650-ADEB-0B013914E99C}") yazarsak 2016 64 bitte çalışır mı acaba?
Genişletmek için tıkla...
Bende zaten sizin kod çalışıyor abey 2021 versiyo ve 32bit.64 bit olmadığı için deneyemiyorum.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
peki Refaz hocam
Set VrLW = GetObject("New:{996BF5E0-8044-4650-ADEB-0B013914E99C}") yerine
Set VrLW = CreateObject("New:{996BF5E0-8044-4650-ADEB-0B013914E99C}") yazarsak 2016 64 bitte çalışır mı acaba?
sayın murat_8181 hem sanal recordsetli kodu hem de aşağıdaki kodu 2016 64bitte deneyip sonucu bildirebilir misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Yine aynı hatayı verdi Halil bey
 
Olumlu oy 0 Negatif oyla
teşekkürler murat_8181 bey)
Refaz' Alıntı:
sorun olacağını sanmıyorum çünkü createobject kullanmışsınız
Genişletmek için tıkla...
bir umut işte Refaz hocam siz öyle deyince "belki, bir ihtimal" dedim))
tekrar teşekkürler
konuyu o zaman tekrar çözülmüşlere taşıyayım
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst