EXCEL'DE DICTIONARY ILE RECURSIVE ÇALIŞMAK - KODLAR AÇIKLAMADA

WEB YAZILIMLARI VE VBA & EXCEL İLE İLGİLİ KURUMSAL EĞİTİMLER İÇİN BANA 0532 456 53 99 NUMARASI ÜZERİNDEN ULAŞABİLİRSİNİZ.
Option Explicit
Dim ws As Worksheet
Dim i As Long
Dim depth As Long
Public Sub RecursiveDict()
Dim dict As New Scripting.Dictionary
Dim subDict As New Scripting.Dictionary
Dim lvldict As New Scripting.Dictionary
Set ws = Sheet1
ws.UsedRange.Clear
lvldict.Add "LVL KEY", "LVL ITEM"
subDict.Add "Hello", "World"
subDict.Add "Mehmet", "Canbulat"
subDict.Add "Other", lvldict
dict.Add "Merhaba", "Dunya"
dict.Add "Selam", subDict
i = 1
depth = 0
gomuluDictYazdir dict
ws.UsedRange.EntireColumn.AutoFit
End Sub
Private Sub gomuluDictYazdir(d As Dictionary)
Dim Key as Variant
For Each Key In d.Keys
ws.Cells(i, 1).Offset(, depth).Value2 = "KEY: " & Key
If VarType(d(Key)) = 9 Then
depth = depth + 1
gomuluDictYazdir d(Key)
Else
ws.Cells(i, 2).Offset(, depth) = "ITEM: " & d(Key)
End If
i = i + 1
Next Key
End Sub

[@necdet.yesertener]

Teşekkürler Mehmet bey, yine olağanüstü bilgi sundunuz bize. Ama beğeni sayısını görünce de baya üzüldüm.

[@UzmanExcel]

Cok teşekkür ederim Necdet Bey. Çok naziksiniz. Maalesef konular agir olunca pek beğenilmiyor

[@adnankarabacak5878]

Yine Beyin yakan Konular .....Harika.. Mehmet Hocam kendine iyi bak , Basarilar. ..Tesekkürler.

[@UzmanExcel]

Cok teşekkür ederim. Çok naziksiniz

[@mehmettaskin5247]

Teşekkürler elinize sağlık, gerçek anlamda ufkumu açtınız.

[@UzmanExcel]

Cok teşekkür ederim. Cok naziksiniz

[@zaferesen]

Yine çok işe yarayacak bir bilgi paylaşmışsınız Mehmet bey. Teşekkürler.

[@UzmanExcel]

Cok teşekkür ederim. Cok naziksiniz

Şecere listeleme; bölge, il, ilçe, mahalle listelemede; hiyerarşik cins alt türev listelemede iş görür. Teşekkürler hocam.

[@UzmanExcel]

Çok teşekkür ederim Muharrem Bey. Cok naziksiniz

[@velatonen1119]

Elinize sağlık

[@UzmanExcel]

Cok teşekkür ederim. Çok naziksiniz

[@leventkuruc-j6z]

hocam iyi akşamlar size bir vba göndermek istiyorum bakabilir misiniz nereye göndermem lazım.iyi akşamlar.levent kuruç

[@UzmanExcel]

İyi aksamlar. Numarama Whatsapp üzerinden gönderebilirsiniz

[@leventkuruc-j6z]

hocam "key" ifadesi tanımlanmadığı için program hata verdi. Ben de "dim key as variant" ifadesini ekledim şimdi çalıştı.Teşekkürler

[@UzmanExcel]

Unutmusum valla :)
Elinize sağlık

[@leventkuruc-j6z]

hocam jet gibisiniz maşallah thy den alışkanlık sanırım.iyi akşamlar.@@UzmanExcel

[@UzmanExcel]

@user-qz7js9yz6c aynen el aliskanligi. İyi akşamlar

[@leventkuruc-j6z]

hocam nasılsın uzun zamandır sesiniz çıkmıyor

[@UzmanExcel]

Sormayin. Yoğunluk cok artti. Kosturuyorum ama burasi ilk göz agrim. Arada donuyorum yine

[@leventkuruc-j6z]

@@UzmanExcel Hasta sandım

[@leventkuruc-j6z]

Whatsup a mail attım ama görmeşzçni

[@UzmanExcel]

@user-qz7js9yz6c sagolun. İyiyim cok şükür