for each worksheet döngüsünde sayfa atlatma

[cgtyy90]

Merhaba

19 sayfalık bir dosyam var ve 3 tane sayfada (satışdata, diğer ve hesaplar) bu satırlardaki silme işlemini yapmasını istemiyorum bu sayfalara geldiğinde işlemin atlanarak devam etmesini ise bir türlü sağlayamadım

Aşağıda yaptığım denemelerden dolayı bozuk kodlar var onları açıklamaya çevirdim.

Bu şekilde 19 sayfalık bir döngüde for each döngüsü ile bazı sayfaları atlarak nasıl ilerleyebilirim.

Yardımınızı rica ediyorum.

Sub satir_temizle()
Dim silinecek As Integer
Dim ws As Worksheet

silinecek = InputBox("Hangi satır?", "Satır no giriniz!!")
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "satış data" Then

'ElseIf ws.Name = "diğer" Then

'ElseIf ws.Name = "hesaplar" Then


ws.Range("B" & silinecek, "C" & silinecek).ClearContents

 

[antonio]

If ws.Name <> "satış data" [B][COLOR="Red"]And ws.Name <> "diğer" And ws.Name <> "hesaplar"[/COLOR][/B] Then