Makrolar arası değişken değer aktarma

[Kardiyak]

Makro1 içinden Makro2 yi çalıştırıyorum. Makro2 bazı işlemler sonucunda bir kaç değer hesaplıyor ve işi bitince kapanıyor. Bu hesaplanan değişkenleri Makro1 de tekrar nasıl kullanabilirim. Şu an excel sayfasına yazdırıp buradan tekrar okutuyorum ama direk makro içinde bir çözümü olmalı.

sub makro1()
a= range("a1")+range("a2")
b=range("a1")*range("a2")

range("b1")=a 'bu satırı yazmak istemiyorum
range("b2")=b 'bu satırı yazmak istemiyorum

end sub

sub makro2()
call makro1

a=range("b1") 'bu satırı yazmak istemiyorum
b=range("b2") 'bu satırı yazmak istemiyorum

msgbox "toplamları: " & a & vbnewline & "çarpımları: " & b,vbinformation,"SONUÇLAR"
end sub

Yukarıdaki örnekte olduğu gibi değişkenleri sayfaya yazıp okumadan makrolar arası aktarmanın bir yolu var mı?

 

[programer]

Kodların en üstüne

Public a
Public b

şeklinde değişken tanımlayın.

 

[Kardiyak]

Kodların en üstüne

Public a
Public b

şeklinde değişken tanımlayın.

Teşekkürler.:bravo: modülün en üst satırına yazınca çalıştı. Bu kaadr basit bir şeyi bu zamana kadar öğrenememiştim. Sayenizde bunu da aştım.