üçüncü alt menü yapmak

[aydgur]

Sub Autpen()
Dim MSayfa As Worksheet
Dim MNesne As CommandBarPopup
Dim MOge As Object
Dim AltMOge As CommandBarButton
Dim Satir As Integer
Dim MDuzey, SDuzey, PozMakro, Baslik, Bolucu, FaceId
Set MSayfa = ThisWorkbook.Sheets("menu sayfası")
Satir = 2
Do Until IsEmpty(MSayfa.Cells(Satir, 2))
MDuzey = MSayfa.Cells(Satir, 1)
Baslik = MSayfa.Cells(Satir, 2)
PozMakro = MSayfa.Cells(Satir, 3)
Bolucu = MSayfa.Cells(Satir, 5)
SDuzey = MSayfa.Cells(Satir + 1, 1)
Select Case MDuzey
Case 1
Set MNesne = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=PozMakro, Temporary:=True)
MNesne.Caption = Baslik
Case 2
If SDuzey = 3 Then
Set MOge = MNesne.Controls.Add(Type:=msoControlPopup)
Else
Set MOge = MNesne.Controls.Add(Type:=msoControlButton)
MOge.OnAction = PozMakro
End If
MOge.Caption = Baslik
If FaceId <> "" Then MOge.FaceId = FaceId
If Bolucu Then MOge.BeginGroup = True
Case 3
Set AltMOge = MOge.Controls.Add(Type:=msoControlButton)
AltMOge.Caption = Baslik
AltMOge.OnAction = PozMakro
If FaceId <> "" Then AltMOge.FaceId = FaceId
If Bolucu Then AltMOge.BeginGroup = True
End Select
Satir = Satir + 1
Loop
End Sub
Böyle bir açılır menü makrosu var.bu makroda 1=menü adı,2=alt menü,3=ikinci alt menü düzey ayrları yapılıyor.Ben 3 yani ikinci alt menüyüde tekrar açılır menüler yapmak istiyorum ,düzey ayarlarını nasıl yapabilirim,teşekkürler.Bu arada bana yardım etmekle 51 yaşında bir meraklıya yardım etmiş olacaksınız..

Duzey menu sayfası Makro Adı Bolucu FaceId
1 AYDIN_06 10
2 SATIŞ SATIŞ DOĞRU
2 STOKLAR STOKLAR DOĞRU
2 FİNANS FİNANS DOĞRU
3 KASA KASA
3 AÇIK AÇIK
3 RESMİ RESMİ
3 BANKA BANKA
3 TAKAS TAKAS
3 N_TABLO N_TABLO
3 BİLANÇO BİLANÇO
2 CARİ CARİ DOĞRU
3 AGAOGLU AGAOGLU
3 AKARSU AKARSU
3 AKES AKES
3 AKGRUP AKGRUP
3 AKKURT AKKURT
3 AKPLASTIK AKPLASTIK
3 AKTARSAN AKTARSAN
3 ALTAN ALTAN
3 ALİ_HAYDAR ALİ_HAYDAR
3 ALİERBAY ALİERBAY
3 ANSA ANSA
3 ANSAN ANSAN
3 ARK ARK
3 ARLI ARLI
3 ARMONİ ARMONİ
3 ARSUN ARSUN
3 ART ART
3 ASFEN ASFEN
3 ATA ATA
3 ATAK ATAK
3 AYBARS AYBARS
3 AYCAN AYCAN
3 AYDIN AYDIN
3 AYKA AYKA
3 AYTAÇ AYTAÇ
3 AYTOK AYTOK
3 B_ULUDAS B_ULUDAS DOĞRU
3 BAHRİ BAHRİ
3 BAKIM BAKIM
3 BALSAN BALSAN
3 BARAN BARAN
3 BASAR BASAR
3 BEYAZ_CELIK BEYAZ_CELIK
3 BI_ZA BI_ZA
Burada cari alt menüsündeki sayfa adlarını her harf yeni açılır menü olarak yapmak istiyorum.