CheckBox veya OptionButton Lazım

[Mustafa MUTLU]

UserForm1 e 7 tane CheckBox koyacağım.
CheckBox lardan sadece birini işaraetleyebilmem lazım.
CheckBox1 işaretlendiğinde Sayfa2 K1 e - 9 yazacak
CheckBox2 işaretlendiğinde Sayfa2 K1 e - 10 yazacak
CheckBox3 işaretlendiğinde Sayfa2 K1 e - 11 yazacak
CheckBox4 işaretlendiğinde Sayfa2 K1 e - 18 yazacak
CheckBox5 işaretlendiğinde Sayfa2 K1 e - 22 yazacak
CheckBox6 işaretlendiğinde Sayfa2 K1 e - 30 yazacak
CheckBox7 işaretlendiğinde Sayfa2 K1 e - 35 yazacak

CheckBox yerine OptionButton da olabilir..

Teşekkürler...

 

[excel03]

merhaba;

modül alanına;
Sub veriaktar(değer)
If değer = 1 Then Sheets("Sayfa2").Range("K1").Value = 9
If değer = 2 Then Sheets("Sayfa2").Range("K1").Value = 10
If değer = 3 Then Sheets("Sayfa2").Range("K1").Value = 11
If değer = 4 Then Sheets("Sayfa2").Range("K1").Value = 18
If değer = 5 Then Sheets("Sayfa2").Range("K1").Value = 22
If değer = 6 Then Sheets("Sayfa2").Range("K1").Value = 30
If değer = 7 Then Sheets("Sayfa2").Range("K1").Value = 35
End Sub

form alanına;

Private Sub OptionButton1_Click()
değer = 1
veriaktar (değer)
End Sub

Private Sub OptionButton2_Click()
değer = 2
veriaktar (değer)
End Sub

Private Sub OptionButton3_Click()
değer = 3
veriaktar (değer)
End Sub

Private Sub OptionButton4_Click()
değer = 4
veriaktar (değer)
End Sub

Private Sub OptionButton5_Click()
değer = 5
veriaktar (değer)
End Sub

Private Sub OptionButton6_Click()
değer = 6
veriaktar (değer)
End Sub

Private Sub OptionButton7_Click()
değer = 7
veriaktar (değer)
End Sub

 

[halit3]

Bunu denermisiniz.

If OptionButton1.Value = True Then
Sheets("Sayfa2").Cells(1, "k").Value = 9
ElseIf OptionButton2.Value = True Then
Sheets("Sayfa2").Cells(1, "k").Value = 10
ElseIf OptionButton3.Value = True Then
Sheets("Sayfa2").Cells(1, "k").Value = 11
ElseIf OptionButton4.Value = True Then
Sheets("Sayfa2").Cells(1, "k").Value = 18
ElseIf OptionButton5.Value = True Then
Sheets("Sayfa2").Cells(1, "k").Value = 22
ElseIf OptionButton6.Value = True Then
Sheets("Sayfa2").Cells(1, "k").Value = 30
ElseIf OptionButton7.Value = True Then
Sheets("Sayfa2").Cells(1, "k").Value = 35
End If

 

[Mustafa MUTLU]

Bunu denermisiniz.

Teşekkürler
Tam İstediğim gibi oldu...

 

[halit3]

Teşekkürler
Tam İstediğim gibi oldu...

iyi çalışmalar

 

[Mustafa MUTLU]

OptionButton ların değerlerini
Rakam değilde metin (örneğin : Ali) yapmak için ne yapmam lazım.

 

[halit3]

OptionButton ların değerlerini
Rakam değilde metin (örneğin : Ali) yapmak için ne yapmam lazım.

Aşağıdaki gibi yapınız.

Sheets("Sayfa2").Cells(1, "k").Value = "Ali"

 

[Mustafa MUTLU]

Teşekkür ederim.
Saolasın...

 

[halit3]

Teşekkür ederim.
Saolasın...

İyi çalışmalar