Seçenek Kutusu akti/pasif seçimi..

[kartal76]

Ekte gönderdiğim seçenek kutularından seçili olanın yanındaki hücrenin aktif, diğer seçenek kutularının karşısındaki hücrelerin ise pasif olmasını nasıl sağlayabilirim?

Amaç, her bir seçenek kutusunun yanındaki hücre ile bağlantılı olması..

Teşekkürler,

 

[hamitcan]

Eki inceleyin.

 

[kartal76]

Sn.hamitcan,

İlgi ve verdiğiniz bilgi için teşekkür ederim. Ancak sanırım benim sorum eksik kalmış. Şöyle ki, esasen yapmak istediğim, tıklanan seçenek kutusunun karşısındaki hücrenin içine veri girişi yapılabilmesi, diğer seçenek kutularının karşısında bulunan hücrelerin ise pasif hale getirilerek o hücrelere veri girişinin engellenmesi.

Yardımcı olabilirseniz memnun olurum.

Tekrar teşekkür eder, iyi çalışmalar dilerim.

 

[hamitcan]

Private Sub OptionButton1_Click()
ActiveSheet.Unprotect
Range("e5, e7, e9, e11").Locked = True
Range("e3").Locked = False
ActiveSheet.Protect
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Unprotect
Range("e3, e7, e9, e11").Locked = True
Range("e5").Locked = False
ActiveSheet.Protect
End Sub
Private Sub OptionButton3_Click()
ActiveSheet.Unprotect
Range("e3, e5, e9, e11").Locked = True
Range("e7").Locked = False
ActiveSheet.Protect
End Sub
Private Sub OptionButton4_Click()
ActiveSheet.Unprotect
Range("e3, e5, e7, e11").Locked = True
Range("e9").Locked = False
ActiveSheet.Protect
End Sub
Private Sub OptionButton5_Click()
ActiveSheet.Unprotect
Range("e3, e5, e7, e9").Locked = True
Range("e11").Locked = False
ActiveSheet.Protect
End Sub

şeklinde deneyin.

 

[kartal76]

Sn.hamitcan,

verdiğiniz bilgi için çok teşekkür ederim, emeğinize sağlık. şu an için isteğimi karşılayan bir çalışma olmuş.

devam eden çalışmalarda takıldığım yer olursa tekrar bilginize başvurmak isterim.

iyi çalışmalar dilerim.