Soru excel vba objeleri toplu isimlendirme

[MESUT K]

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]

Döngü kurarak yapılabilir. Örnek dosya paylaşınız.

 

[MESUT K]

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

 

[Korhan Ayhan]

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.

    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]

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

 

[Korhan Ayhan]

O durumda Case kullanmaya gerek yoktur.

 

[MESUT K]

Korhan Bey verdiğiniz kıymetli bilgiler için çok teşekkür ediyorum.Saygılarımla