Butonun ismini değiştirme

[altan147]

Buton ismini bir hücreye bağlayabilirmiyiz? Yani hücreyi butona bağ olarak yapıştırabilirmiyiz?

 

[gdemir]

yapabılırsınız



kod :
Private Sub UserForm_Initialize()
CommandButton1.Caption = Worksheets("Sayfa1").Range("A1")
End Sub

 

[altan147]

kodu sayfanın kod bölümüne girmem gerekmiyormu? Dediğinizi denedim fakat olmuyor

 

[dEdE]

Gerekmiyor.
Sayın gdemir'in kodu çalışıyor.Ã?rnek bu koda göre yapıldı.

 

[eyüppsen]

CommandButonunuz sayfada ise sayfanın kod sayfasına
Private Sub Worksheet_Activate()
CommandButton1.Caption = Worksheets("Sayfa1").Range("A1")

End Sub

 

[altan147]

Sanırım ben bir şeyi yanlış yapıyorum ekteki commandbutton da yanlış olan şeyi düzeltirmisiniz. Ayrıca ben butonları şimdiye kadar formlar menüsündeki düğmelerden yapıyorum. Onlar içinde aynı şey geçerlimidir?

 

[excellium]

şunu deneyin:

[vb:1:61f8c5dc61]Sub CommandButton1_click()
CommandButton1.Caption = Worksheets("Sayfa1").Range("A1")
End Sub[/vb:1:61f8c5dc61]

 

[eyüppsen]

Merhaba
Dosyanızı düzenledim.

 

[altan147]

Bu kod işe yarıyor fakat kod çalışmadığı zamanda yani buton tıklanmadığı zamanda ismin değişmesi gerek.

 

[eyüppsen]

göndeerdiğim dosyada sayfa açılınca kod çalışır aşağıdaki ile değiştirisen sayfada hücre seçilince çalışır
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Caption = Worksheets("Sayfa1").Range("A1")
End Sub

 

[excellium]

çalışmanıza örnek teşkil edecek bi dosya ilavesi yapabilirseniz, konu hakkında daha kısa ve kesin çözüm bulabileceğiniz inancındayım. Mümkün olan ki az önce belirtmiş olduğum konu, excel.web.tr'de bahsi edilmiş konuşmalar arasında yer almaktadır. kırmızı renk ile vurgulanmak istenen 'Ara' butonu bakmakta olduğunuz sayfanın en başında, zorlanmadan görebileceğiniz bir bölümde yer almaktadır. Tek cümlelik sorunuzu şahsen anlamamakla birlikte, yine de dosya ilavesi konusunda israr ettiğimi belirmek isterim.

 

[altan147]

Sayın eyüppsen,
Teşekkürler verdiğiniz kod çok işime yarayacak. Bu kodu düğmeler içinde kullanabiliyormuyuz. Düğmenin adını yazdım ama işe yaramadı.
Sayın excellium,
Verilen tüm kodlar çalışıyormuş fakat kodla adını değiştirecek hücreyi aynı sayfaya koyduğum için farkedememişim.
Ayrıca ara butonunun varlığından haberim var.Ve devamlı kullanıyorum.Konunun daha önce geçtiğini farketmedim. ya ben dikkatli kontrol edememişim, ya yanlış anahtar kelimelr kulanmışım. yada içerikle başlık arasında farklar var.
Teşekkürler.