listede seçtiğim isim optionbuttonda da seçilsin

[emrebengul]

merhaba arkadaşlar. yüklemiş olduğum excel dosyasında. Comboboxta hangi ismi seçersem optionbuttonda seçmesini istiyorum fakat bir türlü yapamadım ve haangisini seçtiysem excelde sayfa1e yazdırılmasını istiyorum yardımcı olursanız çok iyi olur. çok teşekkür ederim şimdiden.

iyi çalışmalar

 

[çıtır]

Deneyiniz.

Private Sub ComboBox1_Change()
kac = WorksheetFunction.Match(ComboBox1.Value, Sheets("Sayfa1").Range("A1:A5"), 0)
Controls("OptionButton" & kac) = True
End Sub

Private Sub CommandButton1_Click()
son = Sheets("Sayfa1").Cells(65336, "E").End(3).Row
For i = 1 To 5
If Controls("OptionButton" & i) = True Then
a = i
End If
Next
Sheets("Sayfa1").Range("E" & son + 1) = Controls("OptionButton" & a).Caption
    MsgBox "İŞLEM TAMAM."
      
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!A1:A" & Range("A65336").End(3).Row
For i = 1 To 5
Controls("OptionButton" & i).Caption = Sheets("Sayfa1").Range("A" & i)
Next i
End Sub

 

[emrebengul]

çok teşekkür ederim fakat bir sorum daha var.
resim olarak yükledim ama anlatayım.
emre ismini e sütununa
ahmeti f sutünuna
yuşa g sütununa
sedat h sütununa
salih i sütununa

 

[çıtır]

CommandButton1 kodlarını aşağıdaki şekilde değiştiriniz.

Private Sub CommandButton1_Click()
son = Sheets("Sayfa1").Cells(65336, "E").End(3).Row
For i = 1 To 5
If Controls("OptionButton" & i) = True Then
a = i
End If
Next
t = 0
For ii = 5 To 9
 ss = Sheets("Sayfa1").Cells(Rows.Count, ii).End(xlUp).Row
 If ss > t Then
 t = ss
 End If
Next ii
Sheets("Sayfa1").Cells(t + 1, 4 + a) = Controls("OptionButton" & a).Caption
MsgBox "İŞLEM TAMAM."
      End Sub