Seçili Olan OpttionButton Metin Halinde Hücreye Yazdırmak

[Deathworm]

Merhaba arkadaşlar
Ben yeni başlayanlardanım sizlerin yardımına ihtiyacım var.
VBA Bir çalışma yapıyorum.
Üç tane OptinButton oluşturdum. ,Bu oluşturduğum buttonlardan herhangi birisini seçtiğimde sabit metin beraber yazılması için ne yapmam lazım
Orneğin;
1- Düşük Gelir
2- Orta Gelir
3- Yüksek Gelir

Seçenekler bunlar, bu seçeneklerden birini seçtiğimde Hücreye şu şekilde yazıdırılmasını istiyorum.
" Bölge halkının geliri Orta Gelir düzeyine sahip kesimlerden oluşmaktadır."

Şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Sorunuzu; gerçek belgenizin, özel bilgi içermeyen bir kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorunuz.
Varsa, kulandığınız kod/formül vs belge içerisinde olmasında yarar var.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[turist]

Merhaba arkadaşlar
Ben yeni başlayanlardanım sizlerin yardımına ihtiyacım var.
VBA Bir çalışma yapıyorum.
Üç tane OptinButton oluşturdum. ,Bu oluşturduğum buttonlardan herhangi birisini seçtiğimde sabit metin beraber yazılması için ne yapmam lazım
Orneğin;
1- Düşük Gelir
2- Orta Gelir
3- Yüksek Gelir

Seçenekler bunlar, bu seçeneklerden birini seçtiğimde Hücreye şu şekilde yazıdırılmasını istiyorum.
" Bölge halkının geliri Orta Gelir düzeyine sahip kesimlerden oluşmaktadır."

Şimdiden teşekkür ederim.

Sorunuzu kendi hazırladığınız bir "örnek" excel dosyası ekleyerek sorarsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.
Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız

 

[Deathworm]

İndirme bağlantısı
https://wetransfer.com/downloads/d5...b049de851dbe679e1e1bdb7220181122170937/260802

Örneğin Orta Gelir Türünü seçtiğimde Aşağıda yer alan textboxa " Bölge halkının geliri Orta Gelir düzeyine sahip kesimlerden oluşmaktadır." şeklinde yazdırılmasını istiyorum. Eğer bu seçeneklerden diğerlerinden biri isede "Diğer ise Yazınız" Textboxuna yazılan ne ise onun yazılmasını istiyorum örn: Orta/Yüksek Gelir yazarsam bu seferde " Bölge halkının geliri Orta/Yüksek Gelir düzeyine sahip kesimlerden oluşmaktadır."

 

[Orion1]

Ekli dosyayı inceleyiniz.

DOSYA INDIR

Range("A1").Value = "Bölge halkının gelir " & LCase(Sayfa1.OptionButton1.Caption) & " düzeyine sahip kesimlerden oluşmaktadır."

 

[Deathworm]

Excelte oluyor fakat ben bunu userformun içinde yapmayı düşünüyorm hocam

 

[Orion1]

Excelte oluyor fakat ben bunu userformun içinde yapmayı düşünüyorm hocam

Bir tane uaerform hazırlayın.
3 tane optionbutton ekleyin.
Option buttonların captionlarına sayfadaki option buton captionları gibi yazın.
Option butonların click olaylarına benim yazdığım kod gibi kod yazın.
Yalnız Sayfa1. yazısını silin.İşlem tamamdır.Sayfa1 in sonundaki noktayı silmeyi unutmayın.