VBA'DE ÇOK KOLAY CLASS OLUSTURMA - KENDİMİZE ÖZEL DİCTİONARY OBJESİ OLUSTURMA

[@necdet.y]

Böylesine önemli bir konunun açıklanmasını çok güzel anlatan Uzman Excel arkadaşımıza teşekkür ederim. Bu yorumu yaparken ben dahil 47 beğeni olmuş ki bana göre çok üzücü.

[@UzmanExcel]

Çok teşekkür ederim Necdet Bey. Çok naziksiniz. İnşallah artar diyelim

[@adnanyurdakul298]

Çok teşekkürler. Ağzınıza sağlık.

[@UzmanExcel]

Çok teşekkür ederim Adnan Bey. Çok naziksiniz

[@sedataksakal414]

Teşekkür ederim. Çok sade güzel bir ders oldu. Çok sağolun. Z den A ya sıralamayı büyüktür yerine küçüktür yapınca gayet güzel çalıştı:) If mColl(i) < mColl(j) Then

[@UzmanExcel]

Reverse olanın cevabını merak ediyorum aslında Sedat Bey. Onunla ilgili bir kodunuz var mi?

[@sedataksakal414]

@@UzmanExcel Mehmet bey yaklaşık 30 yıllık inşaatçıyım Programcı yapacaksınız bizi :) Emekleriniz için Tekrar teşekkürler. Allaha emanet
Modul Kısmına
Sub GeriyeDogruIslem()
Dim eskiColl As New classDictionary
With eskiColl
.Ekle "Sedat"
.Ekle "Vedat"
.Ekle "Nihat"
.Ekle "Ahmet"
End With
eskiColl.GeriyeDogru
End Sub
'class kısmına
Public Sub GeriyeDogru()
Dim YeniColl As New Collection
Dim i As Long

For i = mColl.Count To 1 Step -1
YeniColl.Add mColl(i)
Next i
Set mColl = YeniColl
End Sub

[@UzmanExcel]

Doğru cevap. Tebrikler. Hepinizi developer yapacağım inşallah

[@alivali7263]

Teşekkür ederim
Güzel bir konu olmuş

[@UzmanExcel]

Çok teşekkür ederim Ali Bey. Çok naziksiniz

[@alivali7263]

Hocam
Kodu hazırladım

[@UzmanExcel]

Buraya yazabilirsiniz Ali Bey

[@alivali7263]

Bi yöntem daha var
Tek Fonksiyon de yapmak
Class kısmı
Public Function AZSirala(Optional SiralamaMetodu As Boolean = True)
Dim i As Long
Dim j As Long
Dim vTemp As Variant
For i = 1 To m_col.Count
For j = i + 1 To m_col.Count
If m_col(i) > m_col(j) And SiralamaMetodu = True Then
vTemp = m_col(j)
m_col.Remove j
m_col.Add vTemp, vTemp, i
ElseIf m_col(i) < m_col(j) And SiralamaMetodu = False Then
vTemp = m_col(j)
m_col.Remove j
m_col.Add vTemp, vTemp, i
End If
Next j
Next i
End Function

[@necdet.y]

Benden önce yorum yapılmış, geç kalmışım :)

[@gezdikcebilelim]

Veee mehmet hocam bizi bilgisiz bırakmamış. Hocam biz senden önce hücreye bilgi yazdırınca kendimizi filozof görüyorduk 😊

[@UzmanExcel]

Çok teşekkür ederim Sefa Bey. Çok naziksiniz.

[@zafergun68]

Merhaba hocam.
Raiseevent olayını rica etsem anlatabilr misiniz?
Event ve Raiseevent beraber kullanılıyor heralde.Araştırmalarımda anlatamadım ve sanırım Türkçe kaynskta yok.

[@UzmanExcel]

İnşallah Zafer Bey. Listeye ekliyorum

[@alivali7263]

Hocam
Sıralama metodu False ise ayrı Sub'te aynı sıralamayı Küçük ise yaparak sıralayıp Exit Function yaparak fonksiyon'den çıkabiliriz

[@alivali7263]

Tabii If yardımıyla

[@UzmanExcel]

Kod blogunu bekliyorum Ali Bey. :)
Cevaplari merak ediyorum

[@nurullahozturk1209]

Merhaba Mehmet bey, Udemy ders videolarının devamı gelecek mi, sanırım dersler tam olarak bitmedi.

[@UzmanExcel]

Merhaba Nurullah Bey. Udemy dersleri bitti. Pek vaktim yok ama inşallah yeni videolar çekersem TH-cam'a, onları da yüklerim Udemy'e

[@sametcimen3767]

Merhaba Hocam, array deki bazı verileri döngü ile çıkarmak istiyorum mümkün müdür?

[@UzmanExcel]

Benim yeni array class videomu izleyebilirsiniz. Orda anlatıyorum

[@sametcimen3767]

@@UzmanExcel sanırım çokefiltrele den bahsettiniz hocam çünkü tüm videolarınızı izledim. Çokefiltrelede de hariç tut diyemedim sanırım beceremedim.

[@UzmanExcel]

Onu yeniledim. En son versiyonunu indirebilirseniz hata muhtemelen gidecektir

[@sametcimen3767]

@@UzmanExcel şimdi oldu hocam çok teşekkürler 🙏🏻

[@emrullahakcelik552]

Hocam sanki yeni video vardı göremiyorum. Yanlış mı izledim yarısını? 😅

[@UzmanExcel]

O videodaki Google Sheets Form özellikleri değişmiş. Artık doğru değil ordaki bilgiler. Ondan kaldırdım

[@serdarkancan]

Miras alma yok degil mi? Vba da

[@UzmanExcel]

Maalesef

[@olcaytuaka9392]

Merhaba Hocam.
Çok meraklı, afacan biriyimdir :)
Orayı burayı karıştırırken, VBA'ya alternatif olarak Python kullanıldığını öğrendim.
Neyyy! Python mu?
Evet.
Hatta yıllardan beri gelen bir süreçmiş. Excel uzmanları VBA'nın eskiliğinden,
yetersizliğinden şikayet edip duruyorlarmış Microsoft'a. Yeni bir, özellikle
'otomasyon' diline ihtiyaç olduğundan bahsediyorlarmış. Python'un zaten acayip
'utility'leri var: Pandas, Numpy gibi. [Python biliyorum.] Vs...
Söyleseydiniz ya Hocam, "VBA ile kafanı yorma, (Excel için) Python'a yönel" diye!
Neyse... Bu VBA kursunu bitirdiğinize göre, belki "Python ile Excel" gibi bir
kursa başlarsınız. Biz de sizi izlemeye devam ederiz.
Çalışmalarınızda kolaylıklar dilerim.

[@UzmanExcel]

Python ile Excel kullanmak tam bir çile. Excel için hala en iyisi. Native sonuçta. Pandas zaten Excelin aynısı. Bence Python Excel için pek de uygun değil

[@necdet.y]

Merhaba, ZA sıralamada bir If ile çözmek olası. Kodlar biraz uzun gibi olabilir ama sonuca ulaştırır.
Public Function AZSirala(Optional SiralamaMetodu As Boolean = True)
Dim i As Long
Dim j As Long
Dim vTemp As Variant
If SiralamaMetodu = True Then
For i = 1 To m_Coll.Count - 1
For j = i + 1 To m_Coll.Count
If m_Coll(i) > m_Coll(j) Then
vTemp = m_Coll(j)
m_Coll.Remove j
m_Coll.Add vTemp, vTemp, i
End If
Next j
Next i
Else
For i = 1 To m_Coll.Count - 1
For j = i + 1 To m_Coll.Count
If m_Coll(i) < m_Coll(j) Then
vTemp = m_Coll(j)
m_Coll.Remove j
m_Coll.Add vTemp, vTemp, i
End If
Next j
Next i
End If
End Function

[@UzmanExcel]

Bu yavaş bir sort algoritmasi, bunu merge sort algoritmasi ile yaparsaniz daha hızlı olacaktır

[@necdet.y]

@@UzmanExcel merge sort olayını ilk defa duydum, bilsem uğraşırdım. Teşekkürler.

[@UzmanExcel]

Binary search gibi çalışıyor