dosya içerisindeki Sayfa silinmesi

[abuitun]

Merhaba,
dosya içerisinde M-ali,M-hasan,M-kaan,sheet1, sayfalarım var
Koşulu olarak sadece M- olan sayfaları makro ile silebilirmiyim. ikinci olarak sheet1 içerisinde a1:a98 arasındaki hücreleri birlikte silsin.
Teşekkürler.
nice yıllara

 

[danersin]

Sayfaları bu şekilde silebilirsiniz.
[vb:1:e9bfa2578f]Sub Makro1()
For i = Worksheets.Count To 1 Step -1
If Left(Sheets(i).Name, 2) = "M-" Then Sheets(i).Delete
Next i
End Sub[/vb:1:e9bfa2578f]

2. soru için :?
sheets("sheet1").range("a1:a98").delete
yada .delete yerine .clear

 

[abuitun]

Sayın Danersin
Cevabınız için teşekkürler.
ikinci soruyu bende okuyunca anlayamadım.
Sorum aynı makro içinde silinmesini istemediğim sayfalar içerisindeki belirli hücrelerin silinmesi şeklinde?
yani m- li sayfaları silerken aynı dosyadaki örneğin ali sayfası içinde a1:a44)silinsin.
umarım açık yazabilmişimdir.Tekrar teşekkürler

 

[danersin]

Yukarıdaki koda 2 satır daha ekledim örnek olsun diye. açıklama içinde. (doğrudan buraya yazdım hata olmaz umarım)

Sub Makro1()
For i = Worksheets.Count To 1 Step -1

If Sheets(i).Name = "ali" Then Sheets(i).range("a1:a44").clear 'ali sayfasında a1:a44 temizler

If right(Sheets(i).Name,3) = "son" Then Sheets(i).range("a1:a44").clearcontents 'sayfa ismi son ile bitiyorsa a1:a44 te sadece içeriği temizler

If Left(Sheets(i).Name, 2) = "M-" Then Sheets(i).Delete


Next i
End Sub

 

[abuitun]

sheet silinme ile ilgili kodlar

Yardımlarınız için teşekkür ederim,
sizin verdiğiniz kodları kullandığımda
Yanlızca M- isimli sheet siliniyor. Benim M-ata,M-Ali vs gibi sheet lerin tamamını silmek istiyorum. verdiğiniz kod üzerinde çeşitli değişiklikler yaparak denedim ancak başarılı olamadı.
Soruyu belki baştan böyle sorabilirdim.
herşey gönlünüzce olsun

 

[danersin]

Verdiğim kod M- ile başlayan tüm sayfaları siliyor. :?

Yukarıdaki ilk kodu bir başka arkadaşta deneyebilirmi. Dosyada "M-" ismi ile başlayan tüm sayfaları(sheet) silmesi gerekiyor.

 

[abuitun]

sayın danersin,
çok özür dilerim sizin vermiş olduğunuz ikinci kodu kullandım, birinci kodu
kulanmadım.ilk verdiğiniz kodla sorun çözülüyor.
Tekrar teşekkürler.

 

[abuitun]

sheet silinme ile ilgili kodlar

Sayın Danersin,
aynı kod içerisine örnrğin M- yanında a- leride sildirmek istersek aynı kodla denedim olmadı tektek yani M ve a için iki ayrı makro yazılırsa oluyor.aynı makro içinde de yapılabilirmi.
aşağıda verdiğim makroyu bu makroyla birleştirebilirmiyim.
Yani iki atyrı düğmdede değil tek düğmede çözülsün.
Sub temizle()
soru = MsgBox("Tüm verileri sileceksiniz", Buttons:=vbQuestion + vbYesNo)
If soru = vbYes Then

End If
Range("C3:C6,H3:H6,D10:h49,L18:L49,c30:c43,m10:n49").Select
Selection.ClearContents
Sheets("ahmet").Select
Range("D311,b15:c65,f15:f23,F25:F29,f31:f53,I16:L70").Select
Selection.ClearContents
Sheets("ankara").Select
Range("f6:N26,F29:N49").Select
Selection.ClearContents
Sheets("DEVELOPMAN").Select
Range("G6:I35,K6:K35").Select
Selection.ClearContents
Sheets("mersin")Select
Range("E3").Select

 

[Levent Menteşoğlu]

If Left(Sheets(i).Name, 2) = "M-" Then Sheets(i).Delete

Yukarıdaki satırı aşağıdaki gibi değiştirerek deneyin.

If Left(Sheets(i).Name, 2) = "M-" or Left(Sheets(i).Name, 2) = "a-" Then Sheets(i).Delete

 

[abuitun]

sheet silinme ile ilgili kodlar

Sayın Levent bey,
sorun çözüldü çok teşekkür ederim.
Herşey Gönlünüzce olsun.