Sayfa Silme

[excelman]

Merhabalar;

Excel çalışma kitabımda sayfa isimleri şu şekilde;

Kayıt1,Kayıt2,Kayıt3,Kayıt4...diye devam ediyor.Bazen kullanırken yeni sayfalar ekliyorum o şekilde kaydediyorum.
*Çalışma kitabının açılışında sayfa isminde "Kayıt" ı kapsamayanları silmek istiyorum.

Bir türlü döngü yü kuramadım yardımcı olursanız sevinirim.

 

[momoli]

Anladığım kadarıyla kullanmadığınız sayfaları silmek istiyorsunuz.
Kulanmadığınız sayfalar isimlerinden belli ise Crl tuşunabasılı olarak mouse ile istenmeyen sayfaları tıklayarak işaretleyin. İşaretlemeniz bittiğinde parmağınızı Ctrl tuşundan çekip işaretlediğiniz sayfalardan birine (sayfa adı yazan yere) sağ tıklayıp çıkan menüden sili seçin. İşaretlediğiniz tüm sayfalar silinecektir.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:73841e8d2b]Sub auto_open()
For a = Sheets.Count To 1 Step -1
If Mid(Sheets(a).Name, 1, 5) <> "kayıt" Then
Application.DisplayAlerts = False
Sheets(a).Delete
End If
Next
End Sub
[/vb:1:73841e8d2b]

 

[excelman]

Kodlar çalıştı.
Teşekkürler sayın leventm.

 

[nkumas]

sayfalar neden silinmiyor?

ekteki dosyada adları rakam olan yani 1, 2, 3, .. olan sayfaları sheet1deki clear butonuyla sildirmeye calısıyorum.

Kod

Sub clear()
X = ActiveWorkbook.Sheets.Count
A = 1
For i = 1 To X
If Sheets(i).Name = A Then
Sheets(A).Delete
If Sheets(i).Name = A Then A = A + 1
End If

Next
End Sub

ama neden calısmıyor anlamadım.

yardımcı olabilir misiniz?

 

[veyselemre]

Sub clear()
    Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If IsNumeric(Sheets(i).Name) Then Sheets(i).Delete
    Next
End Sub

 

[nkumas]

tesekkur ederim ...