Optıon buton adını hücreden alabilir mi?

[potifar534]

Arkadaşlar hazırlamış olduğum 15 adet option buton var. Bunların her birinin adını sağ tık>metin düzenle ile değiştirebiliyoruz.

Ben bu buton isimlerinin Sayfa1'deki D3:R3 aralığındaki hücrelerden almak istiyorum. Yani birinci buton D3'ten, ikinci E3'ten, üçüncü F3'ten vd. şeklinde

Bu işlem yapılabilir mi?

 

[Haluk]

VBA kullanmadan olmaz ...

.

 

[Ömer BARAN]

Merhaba.

İstediğiniz olmazsa kırmızı kısmı Option Button olarak değiştirip deneyin.
.

[B][COLOR="blue"]Sub Makro1()[/COLOR][/B]
For brn = 1 To 15
    ActiveSheet.Shapes.Range(Array("[COLOR="Red"]Seçenek Düğmesi[/COLOR]" & " " & brn)).Select
    Selection.Characters.Text = Cells(3, brn + 3)
Next
[D3].Activate
[B][COLOR="Blue"]End Sub[/COLOR][/B]

 

[potifar534]

Öncelikle cevabınız için teşekkür ediyorum.

"Seçenek Düğmesi" ifadesi ile kod çalışabiliyor.

İKİ DURUM VAR:
1. Siz kodu aktif sayfadaki D3:R3 aralığı için oluşturmuşsunuz. Benim verilerim Sayfa1 D3:R3 aralığında bulunmaktadır. Option butonlar Sayfa2'dedir.
Sayfa2'deki 15 butonun adını Sayfa1'den alabilmem için kodu nasıl değiştirmeliyim?

2. Bu kodun kendiliğinden çalışma imkânı var mı? Yani belirtilen aralıktaki verileri makroyu çalıştır demeden kendiliğinden alması.

 

[Ömer BARAN]

Alt taraftan, nesnelerin bulunduğu sayfanın adına (Sayfa2) fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağ taraftaki bo alana aşağıdaki kodu yapıştırın.

Başka bir sayfadan Sayfa2'şe geçtiğinizde kod otomatik çalışarak Sayfa1 D2:R3 arasındaki verilere göre güncelleme yapar.
.

[COLOR="Red"]Private Sub Worksheet_[B]Activate[/B]()[/COLOR]
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
On Error Resume Next
For brn = 1 To 15
    ActiveSheet.Shapes.Range(Array("[COLOR="Red"]Seçenek Düğmesi[/COLOR]" & " " & brn)).Select
    Selection.Characters.Text = [B][COLOR="Blue"]Sheets("Sayfa1").[/COLOR][/B]Cells(3, brn + 3)
Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
[A1].Activate
[COLOR="red"]End Sub[/COLOR]

 

[potifar534]

Tam istediğim gibi çalıştı.
Elinize sağlık.
Çok teşekkürler tekrardan.

 

[Ömer BARAN]

Kolay gelsin.
.