Makroyu tüm sheetlerde döndürme

[hergelex]

Merhaba;

Elimdeki çalışma kitabında her açılışta makro çalışmakta ve içerdeki veriye göre 4,5 yada daha fazla sheet oluşturmakta ve bu sheetlerdede aynı işlemleri uygulamakta, ancak uygulanan madde sayısı çok fazla olduğundan tüm sheetler için çalışan bir döngü hazırlayamadım, ekte vermiş olduğum kod sadece "DİĞER" isimli sheet için hazırlanan kodlar, istediğim sadece DİĞER için değil her sheet için aynı işlmeleri yapsın.


Yardımlarınızı rica ederim.

 

[uzmanamele]

merhaba

bunu deneyiniz
For i = 1 To Worksheets.Count
Sheets(i).Select
.
.

 

[hergelex]

merhaba

bunu deneyiniz
For i = 1 To Worksheets.Count
Sheets(i).Select
.
.

Sheetlerin adı sheet1 sheet2 sheet3 diye gitmiyor, Diğer, Yeşil, Kırmızı, Mavi gibi isimler almakta.

 

[uzmanamele]

Sheetlerin adı sheet1 sheet2 sheet3 diye gitmiyor, Diğer, Yeşil, Kırmızı, Mavi gibi isimler almakta.

merhaba
kod içersindeki sheets(1) yazmasına bakmayın, kodları bu şekilde denedikten sonra karar verin.
burda sayfa adını değil index no yu kullanıyoruz.

 

[hergelex]

merhaba
kod içersindeki sheets(1) yazmasına bakmayın, kodları bu şekilde denedikten sonra karar verin.
burda sayfa adını değil index no yu kullanıyoruz.

"worksheet sınıfının select yöntemi başarısız" hatasını vermekte.

 

[uzmanamele]

merhaba

ek dosyayı inceleyiniz.

 

[hergelex]

merhaba

ek dosyayı inceleyiniz.

Sheet isimlerini değiştirdim, Ahmet, Mehmet diye isimler verdim kodu çalıştırdım ve aynı hata tekrar çıktı.

 

[Korhan Ayhan]

Selamlar,

Arada gizli sayfanız varsa hata mesajı almanız normaldir.

 

[Orion1]

Selamlar,

Arada gizli sayfanız varsa hata mesajı almanız normaldir.

Korhan beyin söylediği gibi.İşlerinizi sayfa seçmeden ve hücre seçmeden yaparsanız hiç bir zaman sorun yaşamazsınız.Hem seçme işlemi ile makronun çalışmasınıda yavaşlatmışsınız olursunuz.
Sizin durumunuz için tavsiyem gizli sayfayı sorgulamak.döngünün en altına atla diye bir paragraf koyun.

if sheets(i).visible=false then goto atla