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