OptionButton hücredeki değere göre nasıl aktif edilir

[gnorar]

Excel sayfası A1 hücresi değerine göre OptionButton nasıl aktif edilir?
Örneğin: makro çalıştırıldığında A1 hücre değeri "1" ise user form gösterildiğinde grup adı "bul" olan OptionButton1 True olarak döndürülmüş olacak (seçili olarak gelecek), A1 hücre değeri "2" ise user form gösterildiğinde grup adı "bul" olan OptionButton2 True olarak döndürülmüş olacak.

 

[leumruk]

Merhaba,
if [a1]= 1 Then optionbutton1=True
Daha kesin bilgi için örnek dosya ekleyin.

 

[İhsan Tank]

Excel sayfası A1 hücresi değerine göre OptionButton nasıl aktif edilir?
Örneğin: makro çalıştırıldığında A1 hücre değeri "1" ise user form gösterildiğinde grup adı "bul" olan OptionButton1 True olarak döndürülmüş olacak (seçili olarak gelecek), A1 hücre değeri "2" ise user form gösterildiğinde grup adı "bul" olan OptionButton2 True olarak döndürülmüş olacak.

merhaba
sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

bu kodu
userform'un kod bölümüne

Option Explicit
Private Sub UserForm_Initialize()
If Range("A1") = 1 Then
OptionButton1 = True
ElseIf Range("A1") = 2 Then
OptionButton2 = True
End If
End Sub

bu kodu yapıştırınız.
alternatif Olsun

 

[gnorar]

Sn. leumruk ve Sn. İhsan Tank önerilerinizi dikkate alarak denemeler yaptım ancak olmadı.
İçinde userform ve kodların bulunduğu bir örnek dosya ekliyorum yardımcı olursanız sevinirim.

 

[İhsan Tank]

Sn. leumruk ve Sn. İhsan Tank önerilerinizi dikkate alarak denemeler yaptım ancak olmadı.
İçinde userform ve kodların bulunduğu bir örnek dosya ekliyorum yardımcı olursanız sevinirim.

merhaba
module'de bulunan kodu

Sub Düğme1_Tıklat()
UserForm1.Show
End Sub

bununla
userform'un kod bölümüne

Private Sub UserForm_Initialize()
If Sheets("Sayfa1").Range("A1").Value = 1 Then OptionButton1 = True
If Sheets("Sayfa1").Range("A1").Value = 2 Then OptionButton2 = True
If Sheets("Sayfa1").Range("A1").Value = 3 Then OptionButton3 = True
If Sheets("Sayfa1").Range("B1").Value = 1 Then OptionButton4 = True
If Sheets("Sayfa1").Range("B1").Value = 2 Then OptionButton5 = True
If Sheets("Sayfa1").Range("B1").Value = 3 Then OptionButton6 = True
End Sub

bu kodu kopyalayınız.

 

[gnorar]

Sn. İhsan Tank
Kodları UserForm_Initialize kısmına yazınca makro çalıştı. Yardımcı olduğunuz için teşekkür ederim.

 

[İhsan Tank]

Sn. İhsan Tank
Kodları UserForm_Initialize kısmına yazınca makro çalıştı. Yardımcı olduğunuz için teşekkür ederim.

rica ederim
:yazici: