Soru Bir Makro ile hesap edilen veriyi başka bir makroda çağırma

[ptcsite]

Arkadaşlar örneğin Bir makrom olsun;

Sub Macro1()

Dim a as integer

    for a to 30 step 1

         x = a + 4

    next a

End Sub

Daha sonra başka bir makrom olsun;

Sub Makro2()

Dim a as integer
Dim b as integer

    For b to 20 step 1
    
        y = a + b

Call ProgressBar.Progress((y / 50) * 100)

    Next b
    
End Sub

Burada aslında 2. makro bir progressbar a bağlanıyor o yüzden progressbarın % delik devamlılığını sağlamak için 2. makroya 1. makrodaki a non son değeri eklenmeli olacak.

 

[Cengiz Demir]

a değişkenini global olarak tanımlamalısınız.

Global a As Integer

Makro 2 deki. a değişkeni tanımlamasını silmeniz lazım.
Tam emin değilim ama a değişkenini de makro1 dışına alırsanız daha iyi olur.

Global a As Integer
Sub Macro1()
......
..