Soru excel vba objeleri toplu isimlendirme

MESUT K

Altın Üye
Katılım
26 Nisan 2019
Mesajlar
149
Excel Vers. ve Dili
İş'te:Excel 2007 eng
Ev'de:Excel 2010 tr
Herkese Selamlar

Aşağıdakine benzer checkboxları ve dropdown listelerini topluca isimlendirebilirmiyim.Bilen arkadaşlardan yardım istiyorum.

Saygılarımla

ActiveSheet.Shapes("drop down 472").Visible = True
ActiveSheet.Shapes("drop down 473").Visible = True
ActiveSheet.Shapes("drop down 474").Visible = True
ActiveSheet.Shapes("drop down 477").Visible = True
ActiveSheet.CheckBoxes("checkbox_Q156").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q159").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q161").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q162").Visible = False

örnek;
liste=("drop down 472","drop down 473","drop down 474","drop down 475") gibi
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
27,567
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Döngü kurarak yapılabilir. Örnek dosya paylaşınız.
 

MESUT K

Altın Üye
Katılım
26 Nisan 2019
Mesajlar
149
Excel Vers. ve Dili
İş'te:Excel 2007 eng
Ev'de:Excel 2010 tr
Merhaba Korhan Bey

Dosyayı ekledim.Sadece kod içeriği var.Döngünün nasıl kurulacağı ile ilgili fikir alabilirsem gerisini getirebileceğimi umuyorum
 

Ekli dosyalar

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
27,567
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Makronuzun If koşulundan sonraki ilk bölümü aşağıdaki şekilde olabilir. ElseIf satırından sonraki bölümü kendiniz düzenlersiniz.

C++:
    For X = 122 To 170
        Select Case X
            Case 127, 131, 136, 141, 146, 148, 153, 157, 158, 166
            Case Else
            ActiveSheet.CheckBoxes("checkbox_Q" & X).Visible = True
        End Select
    Next
    
    For X = 172 To 181
        Select Case X
            Case 174, 177, 179, 180
            Case Else
            ActiveSheet.CheckBoxes("checkbox_J" & X).Visible = True
        End Select
    Next
    
    ActiveSheet.CheckBoxes("checkbox_Z149").Visible = True
 

MESUT K

Altın Üye
Katılım
26 Nisan 2019
Mesajlar
149
Excel Vers. ve Dili
İş'te:Excel 2007 eng
Ev'de:Excel 2010 tr
Korhan Bey yardımınız için çok teşekkür ediyorum.İşimi çok kolaylaştırdı.Birşey daha öğrenmek istiyorum.Aşağıdaki koyu yazılı olanların olmadığını sayarsak 122 den 170 kadar tam sıralı olursa case döngüsü nasıl olur

For X = 122 To 170
Select Case X
Case 127, 131, 136, 141, 146, 148, 153, 157, 158, 166
Case Else
ActiveSheet.CheckBoxes("checkbox_Q" & X).Visible = True
End Select
 

MESUT K

Altın Üye
Katılım
26 Nisan 2019
Mesajlar
149
Excel Vers. ve Dili
İş'te:Excel 2007 eng
Ev'de:Excel 2010 tr
Korhan Bey verdiğiniz kıymetli bilgiler için çok teşekkür ediyorum.Saygılarımla
 
Üst