Kod:
For Z = 1 To Sheets.CountKod:
If LCase(Sheets(Z).Name) <> "sayfa1" And LCase(Sheets(Z).Name) <> "liste" And LCase(Sheets(Z).Name) <> "şablon" ThenYoksa aşağıdaki kodu yukarıdaki kodun altına mi eklemem gerekiyor.
For Z = 1 To Sheets.CountIf LCase(Sheets(Z).Name) <> "sayfa1" And LCase(Sheets(Z).Name) <> "liste" And LCase(Sheets(Z).Name) <> "şablon" Then