tanımlamaları sadece makro içindeğil excel dosyası için yapmak

[eneskus]

merhaba;
excel makrolarının başında sekme tanımlaması yapılıyor örneğin
Dim LİSTE As Worksheet
Set LİSTE = Sheets("LİSTE")

vb tanımlamalar her makro için yapmak gerekmekte ve birden fazla makro olunca bu tanımlamalarda değişiklik olduğunda tüm makrolarda değişiklik yapılması gerekmekte.

Tanımlamayı bir şekilde öreneğin LİSTE = Sheets("LİSTE") tanımlamasını yaptıktan sonra tüm makroların içinde yeniden tanımlama yapmadan direk LİSTE.Range("A1").Select denildiğinde hata vermemesi için nasıl bir yol izlenmesi gerekmektedir.

Yardımcı olabilirmisniz. Teşekkürler.

 

[Murat OSMA]

Makrolar tek bir Modül içindeyse Modül'ün ilk satırına Dim LİSTE As Worksheet değişken tanımlamasını yazın.
Başka Modüllerdeki makrolarda da aynı işlem olacak ise; Dim yerine Public yazın.​

 

[eneskus]

Makrolar tek bir Modül içindeyse Modül'ün ilk satırına Dim LİSTE As Worksheet değişken tanımlamasını yazın.
Başka Modüllerdeki makrolarda da aynı işlem olacak ise; Dim yerine Public yazın.​

Cevabınız için teşekkürler.
Dim LİSTE As Worksheet işlemi tamam peki
Set LİSTE = Sheets("KAÇAK LİSTE") yazdığımda hata vermekte onu neşekilde yapmam lazım
yardımcı olabilirmisniz. teşekkürler

 

[Murat OSMA]

Esas hata vermese sorun olurdu.
Biraz düşünün bulacaksınız.​

 

[eneskus]

Esas hata vermese sorun olurdu.
Biraz düşünün bulacaksınız.​

düşündüm internette aradım ama bir türlü bulamadım ustam

denediğim:

Public LİSTE As Worksheet
Set LİSTE = Sheets("KAÇAK LİSTE")

Sub DENEME()
LİSTE.Select
End Sub

hata veriyor. yardımcı olabilir misiniz.
iyi çalışmalar kolay gelsin.

 

[Murat OSMA]

Bu şekilde deneyin..

Public LİSTE As Worksheet

Sub DENEME()
    Set LİSTE = Sheets("KAÇAK LİSTE")
    LİSTE.Select
End Sub

​

 

[eneskus]

Bu şekilde deneyin..

Public LİSTE As Worksheet

Sub DENEME()
    Set LİSTE = Sheets("KAÇAK LİSTE")
    LİSTE.Select
End Sub

​

teşekkürler. vermiş olduğunuz kodu bende dededim bu nedenle Dim LİSTE As Worksheet tamam demiştim

acaba Set LİSTE = Sheets("KAÇAK LİSTE") kodunu da tüm makrolar için yapabilme imkanız varmı şeklinde sormak istemiştim aynı Dim LİSTE As Worksheet şeklinde teşekkürler yarımcı olabilir iseniz sevinirim.

 

[Murat OSMA]

2. mesajı tekrar okuyun.​

 

[Kardiyak]

tavsiye olarak tanımlamalarınızı yeni bir macro içinde yapın, daha sonra bu makroyu diğer makrolarınız içinden çağırın. Bu şekilde sadece tanımlar makrosunu düzeltmeniz yetecektir.

Public LİSTE As Worksheet
sub tanımlar()
Set LİSTE = Sheets("LİSTE")
end sub

Sub DENEME()
call tanımlar
LİSTE.Select
End Sub