Sub AddRef(wbk As Workbook, sGuid As String, sRefName As String)

[mühendis^^]

Sub AddRef(wbk As Workbook, sGuid As String, sRefName As String)

Herkese iyi akşamlar, bilindik kod yazmada macro prosedürü Sub AddRef() şeklindedir ve macroyu başka bir makro içine çağırabilir yada butona bağlayabiliyoruz. Belki cevabı çok basit ama ben bu tarz değişkeni içinde tanımlanmış macroyu çalıştıramadım nasıl çalıştırılması gerektiği konusunda yardıma ihtiyacım var.
Teşekkürler diliyorum hayırlı ramazanlar olsun.

 

[Haluk]

AddRef isimli prosedüre ilgili parametreleri başka bir prosedürden gönderdiğinizde, AddRef prosedüründeki kodlara göre işlem yapılacaktır.

Yani; AddRef prosedürünün kendisini çalıştıramazsınız, o bir yardımcı prosedür.

Aşağıdaki ufak örneği inceleyin.... "Test" isimli ana prosedürü çalıştırdığınızda, parametreleri gönderdiğiniz "Hesapla" prosedürü çalışacaktır.

Sub Test()
    Dim x1 As Double, x2 As Double
  
    x1 = 100.25
    x2 = 500.36
  
    Call Hesapla(x1, x2)
End Sub
'
Sub Hesapla(val1 As Double, val2 As Double)
    Dim RetVal As Double
  
    RetVal = val1 * val2
    MsgBox RetVal
End Sub

Biraz daha değişik bir kullanım şekli ise; sözkonusu yardımcı prosedürü Kullanıcı Tanımlı Fonksiyon gibi kullanmaktır;

Sub Test2()
    Dim x1 As Double, x2 As Double, myVal As Double
   
    x1 = 100.25
    x2 = 500.36
   
    Call Hesapla2(x1, x2, myVal)
   
    MsgBox myVal
End Sub
'
Sub Hesapla2(val1 As Double, val2 As Double, RetVal As Double)
    RetVal = val1 * val2
End Sub

.

 

[mühendis^^]

Haluk bey teşekkür ederim açıklamanız ve ilginiz için konu anlaşılmıştır iyi akşamlar diliyorum.