CommandButton Caption

[CenTay]

Selamlar arkadaşlar Kayıt isimli sayfanın A1 ve A3 hücrelerinde yazan ifadeleri CommandButton1'in Caption özelliğine alabiliyor muyuz, örnek ; A1 Ocak, A3 Ayşe Caption ; Ocak-Ayşe gibi teşekkürler arkadaşlar.

 

[Muzaffer Ali]

Merhaba.

CommandButton sayfada mı yoksa form üzerinde mi olduğunu belirtmemişsiniz.
Eğer sayfa üzerindeyse aşağıdaki kodu sayfanın kod kısmına kopyalayın.
A1 ve A3 te bir değişiklik yaparsanız kodlar otomatik çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1, A3")) Is Nothing Then
        CommandButton1.Caption = Range("A1") & " - " & Range("A3")
    End If
End Sub

 

[CenTay]

Merhaba.

CommandButton sayfada mı yoksa form üzerinde mi olduğunu belirtmemişsiniz.
Eğer sayfa üzerindeyse aşağıdaki kodu sayfanın kod kısmına kopyalayın.
A1 ve A3 te bir değişiklik yaparsanız kodlar otomatik çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1, A3")) Is Nothing Then
        CommandButton1.Caption = Range("A1") & " - " & Range("A3")
    End If
End Sub

Sayfada hocam, sağolasın teşekkürler.

 

[CenTay]

Hocam Userform üzerine olsaydı kod nasıl olurdu, belki lazım olur.

 

[Muzaffer Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1, A3")) Is Nothing Then
        USERFORM1.CommandButton1.Caption = Range("A1") & " - " & Range("A3")
    End If
End Sub

 

[CenTay]

Hocam sağolasın, sonuç alamadım, sanırım eksik bilgi verdim, özür dilerim.UserForm1 adı geçen sayfada bir düğme tıklanınca açılıyor, lütfen kusurum affola hocam.

 

[Muzaffer Ali]

Kod şu.
Bunun ne zaman nerede çalışmasını istiyorsanız oraya koyun.

USERFORM1.CommandButton1.Caption = Range("A1") & " - " & Range("A3")

 

[CenTay]

Hocam teşekkür ederim sorun kalmadı.