- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
Arkadaşlar,
Aşağıdaki örnek kodlardan anlaşılacağı üzere bir modul içine başlıksız olarak (Sub.....End Sub'suz) sayfaları tanıtmak ve onlarda kodlar içierisinde kullanmak istiyorum. Ama bunu yapamıyorum. Nasıl çözüm bulabilirim?
Eğer böyle birşey mümkünse, onlarda kod içinde hep aynı sayfaları dim ve set ile tanımlamaktan kurtulmuş olacağım.
Aşağıdaki örnek kodlardan anlaşılacağı üzere bir modul içine başlıksız olarak (Sub.....End Sub'suz) sayfaları tanıtmak ve onlarda kodlar içierisinde kullanmak istiyorum. Ama bunu yapamıyorum. Nasıl çözüm bulabilirim?
Eğer böyle birşey mümkünse, onlarda kod içinde hep aynı sayfaları dim ve set ile tanımlamaktan kurtulmuş olacağım.
Kod:
Public s1 As Worksheet
Public s2 As Worksheet
Public s3 As Worksheet
#Const s1 = Worksheets("Sayfa1")
Public Const s2 = Worksheets("Sayfa2")
Const s3 = Worksheets("Sayfa3")
s1_son = s1.Range("A65536").End(3).Row
s2_son = s2.Range("A65536").End(3).Row
s3_son = s2.Range("A65536").End(3).Row
Sub test()
MsgBox s1_son
MsgBox s2_son
MsgBox s3_son
End Sub
