Diğer modüllerde değişkenlerin aktarılması

[akavak]

Merhaba

Sub aktar()

Set S1 = Sheets("Ana Sayfa")
Set S2 = Sheets("ikinci")
.....
.....

For D = 1 To 50
Run "yeni"
Next D

End Sub


Sub Yeni()
S2.Cells(D, "C")="...."
End Sub

Yeni isimli programa geçtiğinde D değişkenine üstteki döngüdeki rakamın aktarılmasını nasıl yapabiliriz.
iyi çalışmalar

 

[Necdet]

Merhaba,

Aşağıdaki kullanıma dikkat ediniz. Kırmızı ile belirttim. D değişkenini Yeni Sub da Deger değişkeni olarak kullanabilirsiniz.

Sub aktar()
Set S1 = Sheets("Ana Sayfa")
Set S2 = Sheets("ikinci")
.....
.....
For D = 1 To 50
Run "yeni" D
Next D
End Sub

Sub Yeni(Deger as integer)
msgbox Deger
S2.Cells(D, "C")="...."
End Sub

 

[akavak]

Necdet bey ilginize teşekkür ederim öncelikle.

Programda S1 ve S2 kısaltmaları ve diğer değişkenleri de sonraki programda kullanmak istediğimde onlarda da değer kalmıyor. diğer programda kullanacağım tüm değişkenleri bu şekilde tanımlamak gerekiyor mu yoksa farklı bir yol var mı?

Sub Yeni(Deger as integer)
msgbox Deger
S2.Cells(D, "C")="...." Buradaki S2 yi tanımıyor
End Sub


iyi çalışmalar