Sayfa' yı sabit olarak tanımlamak

[tamer42]

Merhabalar,
Bir modül (Modül) içerisindeki tüm procedürlerde kullanılmak üzere en üste aşağıdaki gibi sabit değerler tanımlayabiliyoruz.

 Const MyFile As String = "'C:\TEMP\[KODLAR.xls]"

 Set sh2 = Worksheets("text")

Bu şekildeki bir Worksheets tanımlamasını her procedür içerisine yazmak yerine; en üste yazarak tüm procedürlerde aynı şekilde kullanımı yapılabilirmi?

İyi Çalışamalar.

 

[Levent Menteşoğlu]

Tanımlamayı aşağıdaki gibi yapıp

Public Const sh2 As String = "text"

Kod içinde de aşağıdaki gibi kullanabilirsiniz.

Sheets(sh2).range(......)

 

[tamer42]

İlginize Teşekkürler,

aslında bu şekilde de çok fazla kısalmıyor, benim amacım kod içinde devamlı olarak

Sheets(......)

ifadesini yazmaktan kurtulmaktı, başka bir çözüm olamaz mı?

Şimdididen İyi Bayramlar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz. Burada sayfa adı s1 değişkenine atanmış olur.

public s1 as worksheet
 
sub auto_open()
Set s1 = Sheets("sayfa1")
end sub

Eğer sayfa adını bir userformda kullanacaksanız set ile başlayan satırı userformun initialize olayına yazabilirsiniz.