Option buton şartlı inaktif etmek

[EdexceL]

Merhaba,
Aşağıdaki modellemeyi bir türlü çözemedim. Aslında makro içinde aynı butonlara ait satıra devam edemedim.
yardımcı olursanız çok memnun olurum.
Şimdiden teşekkürler
Saygılar

Örnek dosyaya göre duble olan Ahmet;
1. Eğer Ahmet herhangibir yerde seçilmiş ise buıtona basılmak istendiğinde uyarı mesajı çıkacak. Mesaj: "Daha önce başka bir yerde seçildi"
2. Eğer Ahmet herhangibir yerde seçilmiş ise diğer butonlar enable false olacak (seçilemeyecek)

 

[veyselemre]

OptionButton1 için aşağıdaki kodlamayı kullanabilirsiniz.

Private Sub OptionButton1_Click()
    If OptionButton4 Or OptionButton6 Then
        MsgBox "Ahmet daha önceden seçildi"
        OptionButton1.Value = 0
        OptionButton2.Value = 1
        Exit Sub
    End If
    Range("e5" & i).Value = [=d5]
End Sub

 

[Orion1]

B sütununda ahmet seçilince optionbuttonlar pasif oluyor.
Aksi durumda aktif oluyor.
Enabled false olan bir nesneye tekrar tıkladığınızda olay gerçekleşmiyor.
Ve istediğiniz 2nci soru çalışmıyor.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ob As Object
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
On Error Resume Next
    For Each ob In ActiveSheet.OLEObjects
        If LCase(Target.Value) = "ahmet" Then
            If TypeName(ob.Object) = "OptionButton" Then
                ob.Object.Enabled = False
            End If
            Else
            If TypeName(ob.Object) = "OptionButton" Then
                ob.Object.Enabled = True
            End If
        End If
    Next
End Sub

 

[EdexceL]

option button

veyselemre ve evren gizlen,
her ikinize de teşekkür ederim. Belki açıklamayı eksik belirttim fakat her ikisi de istediğim gibi olmasa da kod yazmada çok yardımcı oldu. Güncellenmiş dökümanı ekte gönderiyorum. Ancak burada döngü devam edecek.

0. Deneme1 seçildiğinde deneme4 ve deneme6 inactive olacak.
1. Deneme2 seçildiğinde deneme4 ve deneme 6 yine aktif olacak.
2. deneme4 seçildiğinde deneme1 ve deneme6 inactive olacak
3. deneme5 veya deneme7 seçildiğinde deneme1 ve deneme6 yine aktif olacak.
4. deneme6 seçildiğinde deneme1 ve deneme4 inactive olacak
5. Ekteki dökümanda option isimlerini deneme oalrak düzeltmeyi unutmuşum. Bu şekilde yapıldığında belirsizlik ortaya çıkıyor. Çünkü iki defa sub deneme1 mevcut oluyor
Şimdiden teşekkürler

Saygılarımla

1 Nisan'dan itibaren arabanızda kaza tespit tutanaklarını bulundurmayı unutmayın...!

 

[EdexceL]

hazır

Ekte zor da olsa bir çözüm oluşturdum. Eminim sizin daha pratik bir çözümünüz vardır.
Desteğiniz için teşekkürler
Saygılar

1 Nisan'dan sonra kaza yaparsanız trafik polisi siz ve kaza yaptığınız kişi.