Butona değer atama

[muratgunay48]

Arkadaşlar, hocalarım. Butonla başka bir belgeyi açıyoruz, sorun yok. İstediğimiz sayfa da gidiyoruz.
Örnek adlı belgede
Sub Makro1()
Workbooks.Open Filename:="D:\deneme.xls"
Select."Sayfa1"
End Sub
Bu makroyu atadığımız butona yazı yerine, deneme adlı belgenin, Sayfa1 A1 hücresindeki rakamı nasıl atayabiliriz.
Umarım yetersiz bilgimle anlatabilmişimdir.
Örnek dosya koyamadım. Çok ama çok özür dilerim. Telefondan yazdığım için.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Merhaba,

Sayfanıza EKLE menüsünden bir şekil ekleyiniz ve aşağıdaki kodu butona atayınız.

Kod içindeki Wb_Path bölümünü kendinize göre revize ediniz.

Option Explicit

Sub Test()
    Dim Wb_Path As String, Wb_Name As String, Ws_Name As String
    Dim Cell_Referance As String, My_Link As String
    Dim My_Button As Object
    
    Wb_Path = "C:\Users\Desktop\"
    Wb_Name = "Deneme.xls"
    Ws_Name = "Sayfa1"
    Cell_Referance = "A1"
    
    My_Link = "'" & Wb_Path & "[" & Wb_Name & "]" & _
              Ws_Name & "'!" & Range(Cell_Referance).Address(True, True, -4150)
    
    Set My_Button = ActiveSheet.Shapes(Application.Caller)
    
    My_Button.TextFrame2.TextRange.Characters.Text = ExecuteExcel4Macro(My_Link)
    
    MsgBox ExecuteExcel4Macro(My_Link)
End Sub

 

[muratgunay48]

Merhaba,

Sayfanıza EKLE menüsünden bir şekil ekleyiniz ve aşağıdaki kodu butona atayınız.

Kod içindeki Wb_Path bölümünü kendinize göre revize ediniz.

Option Explicit

Sub Test()
    Dim Wb_Path As String, Wb_Name As String, Ws_Name As String
    Dim Cell_Referance As String, My_Link As String
    Dim My_Button As Object
   
    Wb_Path = "C:\Users\Desktop\"
    Wb_Name = "Deneme.xls"
    Ws_Name = "Sayfa1"
    Cell_Referance = "A1"
   
    My_Link = "'" & Wb_Path & "[" & Wb_Name & "]" & _
              Ws_Name & "'!" & Range(Cell_Referance).Address(True, True, -4150)
   
    Set My_Button = ActiveSheet.Shapes(Application.Caller)
   
    My_Button.TextFrame2.TextRange.Characters.Text = ExecuteExcel4Macro(My_Link)
   
    MsgBox ExecuteExcel4Macro(My_Link)
End Sub

Hocam, çok teşekkür ederim. Emeğinize sağlık.