Birden fazla seçenek düğmelerini, tek seferde "işaretlenmemiş" olarak atama

[DetaY]

Herkese merhaba,
Üye olarak yeni aranıza katıldım. Fakat şimdiye dek birçok kere özellikle makrolar konusunda aradığım birçok sorunun cevabını burada buldum, herkese teşekkürler.
Benim ihtiyacım:
Gruplandırılmış yaklaşık 50 adet grup kutusu, ve herbir grup kutusunun içinde yer alan 2'şer adet seçenek düğmesinden oluşan bir yapıdaki tüm seçenek düğmelerini (toplam 50*2=100 adet) aynı anda "işaretlenmemiş" e çevirebilen bir makro.
Yardımcı olan herkese şimdiden teşekkürler..

 

[metinozlu]

Private Sub CommandButton1_Click()
For i = 1 To 50
Controls("OptionButton" & i).Value = False
Next i
End Sub

 

[hamitcan]

Ben 3 adet Checkbox için yaptım. Siz kendinize göre uyarlayın.

Private Sub CommandButton1_Click()
For i = 1 To 3
Controls("checkbox" & i).Value = False
Next
End Sub

 

[DetaY]

Sayın metinozlu ve hamitcan,
Kodları, excel vba düzenleyicisine yapıştırıp çalıştırdım. Fakat ilk satırı sarı renkle işaretleyip,

"Compile error
Sub or function not defined"

şeklinde hata mesajı veriyor.

 

[metinozlu]

kodun başına
on error resume next
ekleyiniz

 

[DetaY]

Dosyayı ekte gönderiyorum..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kodun doğru çalışması için nesnelerdeki tüm gruplamaları kaldırın.

Sub iptal()
For a = 1 To ActiveSheet.Shapes.Count
deg = Left(ActiveSheet.Shapes(a).Name, 3)
If deg = "Opt" Then
ActiveSheet.Shapes(a).Select
Selection.Value = xlOff
End If
Next
[a1].Select
End Sub

 

[DetaY]

Aslında #6 numaralı mesajımın ekinde gönderdiğim dosyayı başka biri kullanacak ve dosyaya günde 3 kere çok yoğun veri girecek. Dolayısı ile günde 3 defa işaretlemeleri kaldıracak. Her defasında tüm gruplamaları kaldırıp, ondan sonra işaretlemeleri kaldırır ve tekrar gruplandırma yapılırsa bu çok zaman alacak.
Gruplamaları kaldırmadan, EF, LM, ve ST sütunlarının başına, bağlı olduğu sütunlardaki işaretlemeleri tek tıklama ile kaldıracak bir makronun düğmelerini koymayı başarabilirsem bu, zaman kaybını oldukça azaltacak.

 

[Levent Menteşoğlu]

Bu durumda bir çözümde tüm option butonları ayrı ayrı hücreye bağlayın. Makro ile bu hücre değerlerinin silinmeside aynı işlemi gerçekleştirir.

 

[DetaY]

Evet, zaten farklı seçeneklerde farklı işlemler yapabilmek için, işaret düğmelerinin değerlerini uygun hücrelere atayacaktım.
Dediğiniz gibi, işaretli değerleri (1 veya 2) bağlı oldukları hücrelerden silince veya sıfıra eşitleyince bağlı tüm işaret düğmeleri işaretsiz duruma geçiyor.
Bunun makrosu da makro kaydetmeden kolaylıkla kaydedilebiliyor.

Sayın leventme ve vakit ve bilgisini esirgemeyen herkese teşekkürlerk::

İhtiyacı olan arkadaşlar için dosyanın son halini ekliyorum...