Sayfa İçerisinde Her Hücreye 3 Adet radio Buton Ekleme

[askm]

Hayırlı akşamlar.
Sayfa1 içerisinde A2:A11 arasında tüm hücrelerde 3er adet radio eklemek istiyorum. A2 deki 3 radio ile A3 deki 3 radio birbirinden bağımsız olacak. Bu şekilde eklemek mümkün mü? Eklemeye çalıştım. Sayfa kilitledi. Grup içerisine alamadım.

 

[Emir Hüseyin Çoban]

.

Hangi nesne denetim grubundan bahsediyorsunuz.

.

 

[askm]

Activex de olabilir form denetimi de olabilir.Secenek dugmesi. Amac veri dogrulama yerine 3 secenekten birini secmek.

 

[Emir Hüseyin Çoban]

.

Geliştirilebilir...

Sub kod()

Dim Resim As OLEObject, Yeni_Resim As OLEObject

grupsay = 1

For a = 1 To 11

For i = 1 To 3

Set Resim_Adres = Cells(a, i + 1)

Set Yeni_Resim = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=Resim_Adres.Left, Top:=Resim_Adres.Top, Width:=Resim_Adres.Width, Height:=Resim_Adres.Height)

With Yeni_Resim
.Top = Resim_Adres.Top
.Left = Resim_Adres.Left
.Height = Resim_Adres.Height
.Width = Resim_Adres.Width
.Object.GroupName = "grup" & grupsay
End With

Next i

grupsay = grupsay + 1
Next a

End Sub

.

 

[askm]

Emir Hüseyin Çoban ilginiz için çok teşekkürler.
Bu kodda caption nasıl değiştiririz. OptionButton1-2 şeklinde devam ediyor. Grup içerisinde 1 optiona Ali, 2. ye Ahmet, 3.ye Kemal yazsın gibi. sabitleyebilir miyiz.

 

[Emir Hüseyin Çoban]

.

End With satırından önce aşağıdaki kodları ilave edin.

If i = 1 Then .Object.Caption = "bir"
If i = 2 Then .Object.Caption = "iki"
If i = 3 Then .Object.Caption = "uc"

.

 

[askm]

Çok teşekkür ederim.