[ÇÖZÜLDÜ] istediğim sayfalar silinmesin

[alooo]

Arkadaşlar,
forum üzerinde bulduğum dosya, yapmak istediğim şeye kısmen uyuyor. Yani belirtilen listede istediğim sütuna göre sayfa ekleyip, veri aktarımı yapıyor fakat benim istediğim; sayfa oluşturup aktarım yaparken bir tek sayfa haricinde diğerlerini sildiğinden benim önemli sayfalarımı da silmeden bu işlemi yerine getirmesi.

Forumda bulduğum dosyayı aynen ekliyorum. Burada yapmak istediğim sadece "kalsın" dediğim sayfanın da silinmeden bu işlemleri yerine getirmesi. Tabii "kalsın" dediğim sayfa sayısı 3-4 olduğunu düşünürek soruma cevap alabilirsem sevinirim.

Yardımı bulunan herkese şimdiden teşekkür ederim.
Saygılarımla,

 

[tahsinanarat]

Dosyanız ekte

Silinmesini istemediğiniz dosyalar ardaşık olması halinde (Sayfa1,Sayfa2...)
burada 2.sayfadan büyük olanları yani Sayfa3 dahil sonrakileri siliyor, örneğinizde Sayfa1 ve Sayfa2 kalacağından;

Application.DisplayAlerts = False
While Worksheets.Count > 2
Sheets(3).Delete
Wend
Application.DisplayAlerts = True

şeklinde olmalı. Dosyanız ektedir.

 

[alooo]

teşşekkür ediyorum. Sağolun.