Butonla sayfaları silmek

[ASLAN7410]

Merhaba hayırlı geceler.

Tablo isimli bir excel dosyam var, bu dosyanın ilk sayfanın adı VERİLER ismi olarak kayıtlı.

Benim istediğim VERİLER isimli sayfada oluşturulacak bir butona bastığımda VERİLER isimli sayfa hariç diğer bütün sayfaları butonla silmek istiyorum.

Forumda ve internette araştırdım böyle bir çalışma bulamadım.

Yardımcı olur musunuz.

 

[ASLAN7410]

Örnek dosya ekte.

 

[Ömer BARAN]

Dosyanıza bakmadım.

Aşağıdaki kod istediğiniz işlemi yapacaktır.
Kod'u boş bir Modül'e ya da VERİLER sayfasının kod bölümüne yapıştırın.
.

[B]Sub SAYFALARI_SIL_BRN()[/B]
Dim brn As Worksheet
Application.DisplayAlerts = False
For Each brn In Sheets
    If Not brn.Name = "VERİLER" Then brn.Delete
Next
Application.DisplayAlerts = True
[B]End Sub[/B]

 

[ASLAN7410]

Sayın Ömer Bey ellerinize sağlık, tam istediğim gibi olmuş, Allah razı olsun.

Hayırlı sabahlar, hayırlı çalışmalar diliyorum.

 

[ASLAN7410]

Sayın Ömer Bey aşağıdaki kod içerisinde yazan VERİLER kısmını Sheet(1) olarak değiştirdiğimde hata verdi

Sayfa adı değişebiliyor, bu kodu başka programlarda kullanmak için istiyorum.

Sheet(1)'e nasıl çevirebiliriz, yardımcı olur musunuz?

 If Not brn.Name = "VERİLER" Then brn.Delete

 

[Ömer BARAN]

Tıpkı VERİLER isminde olduğu gibi çift tırnak arasında yazarak denediniz mi acaba?

If Not brn.Name = "VERİLER" Then brn.Delete yerine
If Not brn.Name = "Sheet(1)" Then brn.Delete şeklinde yazarak deneyin.
.

 

[ASLAN7410]

Sayın Ömer Bey, sayfanın adı VERİLER değilde, GRAFİKLER diye değiştirdiğimde, bu sayfayıda siliyor en sondaki sayfayı bırakıyor ve aşağıdaki kodun brn.Delete kısmını sarıya boyuyor.

If Not brn.Name = "Sheet(1)" Then brn.Delete

İki tane ekran alıntısı resmi gönderiyorum, 1.si butona basmadan önceki resim, 2.si butona bastığımda vermiş olduğu hata mesajı.
.

 

[Ömer BARAN]

Kod'u;
-- düğmeyi eklediğiniz ve silinmemesi gereken sayfanın kod bölümüne veya
-- bir MODÜL'e ekleyerek
çalıştırıyorsunuz değil mi?

 

[ASLAN7410]

Sayın Ömer Bey kodu modüle yapıştırıp çalıştırdığımda, Ekran Alıntısı1'deki hatayı veriyor.

Kodu silinmesini istemediğim GRAFİKLER sayfasına yapıştırıp çalıştırdığımda aşağıda gönderdiğim ekran alıntısı hatasını veriyor.

Sub SAYFALARI_SIL_BRN()
Dim brn As Worksheet
Application.DisplayAlerts = False
For Each brn In Sheets
    If Not brn.Name = "Sheet(1)" Then brn.Delete
Next
Application.DisplayAlerts = True
End Sub

 

[ASLAN7410]

Sayın Ömer Bey ilk sayfa ismi ne olursa olsun, butona bastığımda ilk sayfa hariç diğer sayfalar silinsin istiyorum.

Bu sekilde istememim sebebi yapmış olduğum programları arkadaşlarla birlikte kullandığımız için ilk sayfa ismini değiştiriyorlar bu seferde kod hata veriyor.

 

[PLİNT]

Merhaba
Şöyle deneyebilirsiniz

Application.DisplayAlerts = False
For a = [COLOR="Blue"]Sheets.Count To 2[/COLOR] Step -1
Sheets(a).Delete
Next
Application.DisplayAlerts = True

 

[ASLAN7410]

Sayın PLİNT ellerinize sağlık tam istediğim gibi oldu, Allah razı olsun.

Hayırlı çalışmalar, hayırlı akşamlar diliyorum.
Ayrıca Sayın Ömer Bey'e de çok teşekkür ediyorum.