for each

[kan-nas]

For Each sayfa In ActiveWorkbook.Sheets
Sheets(sayfa.Name).Select

Merhaba yukarıdaki kodlar ile tüm sayfaları seçip altına yazdığım kodlarla çalıştırıyorum ama bu For Each in her sayfada değilde sadece istediğim sayfalarda çalımasını istiyorum.

Yardımınız için

 

[hamitcan]

O zaman sayfa koşulu koyabilirsiniz. Mesela,

if sayfa.name<> "deneme" then

gibi.

 

[kan-nas]

Üstad sağolasın. Aslında bayağı basitmiş

 

[kan-nas]

For Each sayfa In ActiveWorkbook.Sheets

Sheets(sayfa.Name).Select

If sayfa.Name = "MASRAF" Or sayfa.Name = "K-Z PAYLAŞIM" Or sayfa.Name = "ÖNYÜZ" Then

GoTo 10

Else

Üstad denedim ama hata verdi.
Kodların yeri mi hatalı.
İsteğim sayfa adı :Masraf,K-Z PAYLAŞIM ve ÖNYÜZ olanlar taranmasın kodlar bunların dışındaki sayfalar için çalışsın.

 

[hamitcan]

Sayfaları ayrı ayrı belirterek yapmayı deneyin.

 If sayfa.Name = "MASRAF" THEN GOTO 10

 If sayfa.Name ="K-Z PAYLAŞIM" THEN GOTO 10

10: