silme kodunda hata.

[Ahmet TUNALI]

Herkese iyi çalışmalar,
Aşşağıda ki kodda MEV_ ve PRJ_ ile başlayan sayfalar silinmiyor.
MEV_A, MEV_B, PRJ_A ,PRJ_B vs gibi.
Diğer sayfaların bazılarında sadece satır siliyorum. Satır ve sütun silmelerde problem olmuyor ancak sayfa silme yapmıyor.

Sub Temizle()
soru = MsgBox("Tüm verileri sileceksiniz", Buttons:=vbQuestion + vbYesNo)
If soru = vbYes Then

End If

Sheets("Sayfa1").Select
Range("c6:T26,c29:T49").Select
Selection.ClearContents
For i = Worksheets.Count To 1 Step -1
If Left(Sheets(i).Name, 4) = "Mev_" Or Left(Sheets(i).Name, 4) = "Prj_" Then Sheets(i).Delete

Next i
End Sub
dosyada ekte
ikinci sorumda dosya ismini sayfa1 A1deki isimi atyabilirmiyiz. Makro ile.
Dosya ismi Denme sayfa 1 a1 de Karameşeçal Projesi yazılırsa dosya ismi "Karameşeçal Projesi "olsun.

 

[bmutlu966]

Sayfa isimlerinizin en başında birer adet boşluk var. Ayrıca kodlarda MEV_ ve PRJ_ leri küçük harfle yazmışsınız. Aşağıdaki kod satırını

If Left(Sheets(i).Name, 5) = " MEV_" Or Left(Sheets(i).Name, 5) = " PRJ_" Then Sheets(i).Delete

olarak değiştirin.

 

[Ahmet TUNALI]

Sayın bmutlu966,
İlginize teşekkür ederim.
kodunuz çalışıyor ancak her silme için onay istiyor.
Bu sayfayı kalıcı olarak silineck .Devam etmek istiyormusun.
sil iptal uyarısı geliyor.

 

[bmutlu966]

Kodlarınızın başına

Application.DisplayAlerts = False

sonuna da

Application.DisplayAlerts = True

kodlarını ilave edin.

 

[Ahmet TUNALI]

Sayın bmutlu966,
Teşekkürler, silme işlemini sorunsuz yapıyor.
Herşey gönlünüzce olsun.