Soru Birden Fazla OptionButton'ı Tek Döngüde Hücreye Yazdırmak

[likaba]

Merhabalar,

Birden fazla optionbutton'ı tek bir hücreye bağlayıp değer yazdırıyorum. Bunun için 3 döngü (doğru bir tanım mı bilemedim) yazdım. Bunu tek döngüde nasıl yazabilirim?


Private Sub OptionButton1_Click()
Range("a1") = 1
End Sub

Private Sub OptionButton2_Click()
Range("a1") = 2
End Sub

Private Sub OptionButton3_Click()
Range("a1") = 3
End Sub



 

[Hepgel]

Merhaba @likaba

Deneyiniz.

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then Range("a1") = 1
If OptionButton2.Value = True Then Range("a1") = 2
If OptionButton3.Value = True Then Range("a1") = 3
End Sub

 

[YUSUF44]

Bu döngü değil

Yapmak istediğiniz A1 boşsa 1 olsun, 1 ise 2 olsun, 2 ise 3 olsun, 3 ise 1 olsun mu?

 

[likaba]

Bu döngü değil

Yapmak istediğiniz A1 boşsa 1 olsun, 1 ise 2 olsun, 2 ise 3 olsun, 3 ise 1 olsun mu?

Sub ile başlayıp yazılmış olan her bir kod bloğuna ne isim veriliyor?

Yusuf Bey,

Yapmak istediğim, 3 tane optionbutton var (projeme göre daha fazla olabilir).
optionbutton1 e bastığımda A1 hücresine 1, optionbutton2 ye bastığımda A1 hücresine 2 ... bu şekilde her butona bastığımda kod içerisinde belirtmiş olduğum değeri A1 hücresine yazdırmak istiyorum.

 

[likaba]

Merhaba @likaba

Deneyiniz.

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then Range("a1") = 1
If OptionButton2.Value = True Then Range("a1") = 2
If OptionButton3.Value = True Then Range("a1") = 3
End Sub

Merhaba,

Sanırım bu kodu her bir optionbutton'a eklemem gerekiyor.

 

[YUSUF44]

Sub ile başlayıp yazılmış olan her bir kod bloğuna ne isim veriliyor?

Yusuf Bey,

Yapmak istediğim, 3 tane optionbutton var (projeme göre daha fazla olabilir).
optionbutton1 e bastığımda A1 hücresine 1, optionbutton2 ye bastığımda A1 hücresine 2 ... bu şekilde her butona bastığımda kod içerisinde belirtmiş olduğum değeri A1 hücresine yazdırmak istiyorum.

Bildiğim kadarıyla Makro deniyor. Döngü ise herhangi bir değişkene belirli aralıkta sırasıyla farklı değerler verme işlemine deniyor. Örneğin for next döngüsü gibi.

Yapmak istediğiniz işlemin verdiğiniz örnek dışında yapılma yöntemini maalesef "kısıtlı bilgimle" bilemiyorum.

 

[Hepgel]

Merhaba,

Sanırım bu kodu her bir optionbutton'a eklemem gerekiyor.

Hayır, Tek butonda çalışır bu kod.
Hangi optionbutton seçili ise ona göre A1 e değer atar.

 

[likaba]

Bildiğim kadarıyla Makro deniyor. Döngü ise herhangi bir değişkene belirli aralıkta sırasıyla farklı değerler verme işlemine deniyor. Örneğin for next döngüsü gibi.

Yapmak istediğiniz işlemin verdiğiniz örnek dışında yapılma yöntemini maalesef "kısıtlı bilgimle" bilemiyorum.

Teşekkür ederim Yusuf Bey

 

[likaba]

Hayır, Tek butonda çalışır bu kod.
Hangi optionbutton seçili ise ona göre A1 e değer atar.

Harici bir buton kullanmadan tek bir makro kod bloğu yazıp yapılabilir mi diye öğrenmek istemiştim. Bu kod ile extra bir buton ekleyip 2 işlem birden yapmam gerekiyor.

 

[Hepgel]

Harici bir buton kullanmadan tek bir makro kod bloğu yazıp yapılabilir mi diye öğrenmek istemiştim. Bu kod ile extra bir buton ekleyip 2 işlem birden yapmam gerekiyor.

Sayfa üzerindeyse şu şekilde deneyebilirmisiniz.
- Optionbutonu seçin, daha sonra herhangi bir hücreye tıklayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If OptionButton1.Value = True Then Range("a1") = 1
        If OptionButton2.Value = True Then Range("a1") = 2
        If OptionButton3.Value = True Then Range("a1") = 3
End Sub

 

[likaba]

Sayfa üzerindeyse şu şekilde deneyebilirmisiniz.
- Optionbutonu seçin, daha sonra herhangi bir hücreye tıklayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If OptionButton1.Value = True Then Range("a1") = 1
        If OptionButton2.Value = True Then Range("a1") = 2
        If OptionButton3.Value = True Then Range("a1") = 3
End Sub

İlgilendiğiniz için teşekkür ederim.
Tek kod bloğunda yazılmış ama herhangi bir hücreye tıklamadan sadece optionbuttonlara tıklayıp A1 e yazdırmak istiyorum.

 

[Hepgel]

Örnek belgenizi eklermisiniz.

 

[likaba]

Örnek belgenizi eklermisiniz.

Aşağıda ki linkten erişebilir misiniz?

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Hepgel]

Belgenizi ekledim.
Deneyiniz.

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Private Sub OptionButton1_Click()
Range("a1") = 1
End Sub

Private Sub OptionButton2_Click()
Range("a1") = 2
End Sub

Private Sub OptionButton3_Click()
Range("a1") = 3
End Sub

'yukarıda ki 3 kod bloğu tek blok halinde yazılabilir mi?
Sub deneme()
    MsgBox "Kod Çalıştı"
End Sub

 

[likaba]

Belgenizi ekledim.
Deneyiniz.

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Private Sub OptionButton1_Click()
Range("a1") = 1
End Sub

Private Sub OptionButton2_Click()
Range("a1") = 2
End Sub

Private Sub OptionButton3_Click()
Range("a1") = 3
End Sub

'yukarıda ki 3 kod bloğu tek blok halinde yazılabilir mi?
Sub deneme()
    MsgBox "Kod Çalıştı"
End Sub

Bende form denetimlerinde ki seçenek düğmelerini kullanmıştım.

Excelin ilgili sayfasında 3 gruptan oluşan seçenek düğmeleri mevcut (Aylar, yıllar ve bölgeler). Bu her bir grup içindeki seçenek düğmelerini "grup kutusu" kullanarak çerçeveleyip 3 farklı hücreye yazdırmıştım (Aylar seçenek butonları A1'e, yıllar seçenek butonları B1'e, bölgeler seçenek butonları ise C1'e).
Lakin sayfanın tasarımı yapınca bu grupları da tasarıma göre yer değiştirdim. Ne olduysa bundan sonra oldu Seçenek düğmelerini farklı hücrelere yazdırmak için kullanmış olduğum "grup kutusu" işe yaramadı. Yıllar ve bölgeler seçenek düğmeleri ne kadar uğraş versemde sürekli aynı hücreye yazdı. Bende bu durumdan sıkıldığım için optionbutton eklemiştim.

Acaba "grup kutusu" kullanmak için dikkat etmemiz gereken bir şey mi var?

 

[Hepgel]

Önce, seçenek düğmelerinin tümünü ekleyin, sonra seçenek düğmelerini gruplandırın, grup kutularını fareyle seçenek düğmelerini içine alacak şekilde fareyle ekleyin, sonra grup kutusuyla seçenek düğmesi gruplarını tekrar gruplandırın, .
Hücre bağlantılarını en son oluşturun.

 

[likaba]

Önce, seçenek düğmelerinin tümünü ekleyin, sonra seçenek düğmelerini gruplandırın, grup kutularını fareyle seçenek düğmelerini içine alacak şekilde fareyle ekleyin, sonra grup kutusuyla seçenek düğmesi gruplarını tekrar gruplandırın, .
Hücre bağlantılarını en son oluşturun.

İlgilendiğiniz için teşekkür ederim. Yarın ofiste bu sıralama ile deniyeceğim

 

[Hepgel]

Rica Ederim
İyi Çalışmalar.

 

[Hepgel]

@likaba
Buna da bakabilirsin...

Gruplan_Optionbutton

 

[likaba]

# 16 numaralı mesajda bahsettiğiniz sıralamayı yaptım. Sorun görünmüyor. Teşekkürler