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

[@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.

[@alivali7263]

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

[@UzmanExcel]

Çok teşekkür ederim Ali 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

[@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 🙏🏻

[@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 KZbin'a, onları da yüklerim Udemy'e

[@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

[@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

[@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 :)

[@serdarkancan]

Miras alma yok degil mi? Vba da

[@UzmanExcel]

Maalesef

[@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