Excel dosyalarımın her birinde yaklaşık 250 kadar sonu 1 ile biten ve aynı sayıda sonu 2 ile biten sayfalar bulunmakta. Sonu 2 ile biten sayfaları silip sadece 1 ile bitenleri bırakmam gerekmekte. Bunu toplu şekilde halletmek mümkün müdür?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Toplu silme
- Konbuyu başlatan Serdarrk
- Başlangıç tarihi
Kusura bakmayın dosya boyutu biraz büyük olduğu için ancak ekleyebildim.
http://s7.dosya.tc/server3/b0z62y/01.02.2000-1.xls.html
http://s7.dosya.tc/server3/b0z62y/01.02.2000-1.xls.html
İlginiz için çok teşekkür ederim. Sizi bir konuda daha rahatsız edeceğim ama dosyayı indirmişken, dosya içindeki sayfaların sıralanışını görmüşsünüzdür. Bunları takvimsel bir sıralamaya koymak mümkün müdür? Örneğin 01.01.2000,02.01.2000.....31.01.2000 devamında 01.02.2000,02.02.2000...28.02.2000 şeklinde?
Başka bir kaynaktan aşağıdaki çözümü buldum. İhtiyacı olan arkadaşlar için ekledim.
Kod:
Sub erbag()
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name Like "*2000-2" Then Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub