Bir değişkeni farklı bir yere geçirmek

[sakaryali]

Ã?rneğin

Private Sub CommandButton1_Click()
Dim sayi as Integer.
.
.
.
..
sayi
.
.
End Sub

Sub sayiartir()
.
.
.
sayi
.
.
.
End Sub

Mesela 1. Koddaki sayi değişkenini 2. koda aynı şekilde değişkenin değerini değiştirmeden nasıl aktarabilirim.
Diğer bir deyişle Turbo Pascal dilindeki Procedur mantığını Makrolarda nasıl kullanabilirim?

 

[veyselemre]

Þöyle dene

Dim sayi as Integer
Private Sub CommandButton1_Click()
.
.
.
..
sayi
.
.
End Sub

Sub sayiartir()
.
.
.
sayi
.
.
.
End Sub

veya

Private Sub CommandButton1_Click()
static sayi as Integer.
.
.
..
sayi
.
.
End Sub

Sub sayiartir()
.
.
.
sayi
.
.
.
End Sub

 

[sakaryali]

valla Allah razı olsun