İyi günler iyi çalışmalar.
21 adet grafiği Vba tek imga üzerinden kullanıcı hangi grafiği görmek istiyor ise o grafiği seçerek görmesini sağlamak için gerekli kodlar. Uğraştığım kod hata veriyor. Kod aşağıda bulunmakta. Bu birinci sorunum.
Grafik adlarını listbox getirmeye çalışırken hata alıyorum.
With Me.ListBox3
    .Clear
        .AddItem
        .List(0, 0) = "barajtablo"
        .List(0, 1) = "BARAJ KOTU DEĞİŞİM GRAFİĞİ"
       
        .AddItem
        .List(1, 0) = "barajtablo"
        .List(1, 1) = "BARAJ HACMİ DEĞİŞİM GRAFİĞİ"
       
        .AddItem
        .List(2, 0) = "barajtablo"
        .List(2, 1) = "BARAJ AKTİF DOLULUK ORANI"
   
        .List(3, 0) = "barajtablo"
        .List(3, 1) = "BARAJ YAĞIŞ VE BUHARLAŞMA"
       
        .AddItem
        .List(4, 0) = "kimyasaltablo"
        .List(4, 1) = "FeCl3 SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(5, 0) = "kimyasaltablo"
        .List(5, 1) = "Al2(SO4)3 SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(6, 0) = "kimyasaltablo"
        .List(6, 1) = "PAC SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(7, 0) = "kimyasaltablo"
        .List(7, 1) = "POLİMER (SU) SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(8, 0) = "kimyasaltablo"
        .List(8, 1) = "KLOR SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(9, 0) = "kimyasaltablo"
        .List(9, 1) = "NaOH SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(10, 0) = "kimyasaltablo"
        .List(10, 1) = "KMnO4 SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(11, 0) = "kimyasaltablo"
        .List(11, 1) = "POLİMER (ÇAMUR) SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(12, 0) = "kimyasaltablo"
        .List(12, 1) = "KİREÇ SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(13, 0) = "kimyasaltablo"
        .List(13, 1) = "ÇAMUR ÜRETİM GRAFİĞİ"
       
        .AddItem
        .List(14, 0) = "üretimenerji"
        .List(14, 1) = "GİRİŞ DEBİSİ GRAFİĞİ"
       
        .AddItem
        .List(15, 0) = "üretimenerji"
        .List(15, 1) = "ÇIKIŞ DEBİSİ GRAFİĞİ"
       
        .AddItem
        .List(16, 0) = "üretimenerji"
        .List(16, 1) = "SU ALMA YAPISI ELEKTRİK"
       
        .AddItem
        .List(17, 0) = "üretimenerji"
        .List(17, 1) = "ARITMA TESİSİ ELEKTRİK"
       
        .AddItem
        .List(18, 0) = "üretimenerji"
        .List(18, 1) = "ÜRETİM ORTALAMASI GRAFİĞİ"
       
        .AddItem
        .List(19, 0) = "üretimenerji"
        .List(19, 1) = "SU ALMA YAPISI ÜRETİM"
       
        .AddItem
        .List(20, 0) = "üretimenerji"
        .List(20, 1) = "ARITMA TESİSİ ÜRETİM"
        .Value = "barajtablo"
       
     
       
       
    End With
       
       
End Sub


2. Sorunum İse Seçilen tabloların gurup gurup ayrı ayrı görünmesi gerekirken hepsi bir görünüyor. Tablo seçme yerinde seçtiğimiz tablonun sadece görünmesi gerekiyor.