Sayfa silme

[miss_pert]

Merhaba arkadaşlar elimde bir tane excel dosyası var. Bu dosyada belirli sayfaların dışındaki tüm sayfaları makro koduyla nasıl silebilirim. Örneğin ekteki dosyada dosyalarım,listelerim, sonuc sayfaları dışındaki tüm sayfaların silinmesini istiyorum. Ama sayfa sayılarım değişiyor.

 

[cenk77ist]

Bİr DÖngÜ Yapacaksin Sirayla TÜm Sheetlerİ Tarayacak... Sonra DÖngÜ İÇersİnde Sheet İsİmlerİnİ If İle Kontrol Ettİrceksİn Sİlmek İstemedİĞİn İsİm İse Sİldİrmeyeceksİn Else İse Sİlecek..

1.)bunu Yapman İÇİn Gereklİ Kod Sİtede Mevcut.. Arayip Çok Rahatlikla Bulabİlİrsİn

2.) Daha Zor Olani.. Excel Helpİnİ Kullanarak Kendİn Yapmaya ÇaliŞabİlİrsİn

3.) En Zor Olani.. Burda Bekleyİp BaŞkasinin Senİn İÇİn Yapmasini Umman..

Sen 3 Ü SeÇmİŞ Gİbİ GÖrÜnÜyosun.. İyİ Bİr Excel ÖĞretmenİ Olman İÇİn 1 Ve 2 Alternatİflerİ Kullanmani Önerİrİm.. 3 Ten Hep Uzak Dur

Saygilar

 

[miss_pert]

...

Bu bir yardım forumu, ben sadece yardım istedim. Sen kişisel problemlerini buraya yansıtıyorsun. Ayrıca benim burdaki amacım bişiler öğrenmek ve birilerine yardımcı olmak. Oyüzden yazdıklarını kınıyorum.

ARkadaşlar hala problemimi çözemedim. Yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sayfasil()
Application.DisplayAlerts = False
For a = Sheets.Count To 1 Step -1
ad = Sheets(a).Name
If ad <> "dosyalar&#305;m" And ad <> "listelerim" And ad <> "sonuc" Then Sheets(a).Delete
Next
End Sub

Sn cenk77ist

Bence gereksiz yere bir çıkış yapmışsınız. Açıklamanızı kod yazarak yapsaydınız daha güzel olurdu. Eğer bu mantıkla düşünürsek sorulan soruların % 90 nına aynı cevabı vermemiz gerekirdi.

 

[miss_pert]

...

Teşekkürler Leventm gerçekten yapmak istediğim buydu. Bazen insan takılıyor bulamıyor böyle durumlardada birbirimizden yardım almak çok güzel birşey bence.

 

[cenk77ist]

Sayin Leventm,
%90 na cevap vermek zorunda değilsiniz forumu düzenli izliyorm benzer soruların cevabı forumda mevcut zaten , Mİssy E Yardim Etmİyorsunuz, AraŞtirma Yapmakda Önemlİ Bİr Becerİ Nette, Benzer Forumlar Yabanci Sİtelerdede Var HerİsteĞe GÖre Kod Yazilmaz Sİze İŞİnİzİ ÖĞretmek Gİbİ Olmasin Ama 5 Sene Sonra Mİssy Yerİnde SaydiĞini AnladiĞi Zaman 1 Ve 2 Nolu Alternatİfler Benİm İÇİn Çok Daha İyİ OlurmuŞ Dİyecek..

 

[Levent Menteşoğlu]

Üyelerin kendilerini geliştirmeleri açısından görüşlerinizde haklı olabilirsiniz. Ancak görüşleriniz doğru gibi görünsede bence eksik. Öncelikle bir konuda arama yapabilmek içinde arama kıstaslarının neler olabileceğinide bilmek gerekir. Sorun bu noktada başlıyor işte, önce bunu öğretmek gerekir belkide. Birde bizim forum yapımızdan kaynaklanan bir düzensizliğimiz sözkonusu buda soruların çok dağınık halde bulunmasıdır. Eğer soruları belirli başlıklar altında tasnif edebilsek sanıyorum aranan konuya ulaşılmasıda çok kolaylaşacaktır. İşte bunu nasıl yapabiliriz sorun burada. Bu konuda önerileriniz varsa paylaşmanızı rica ederim.

Peki tüm bunları yapsak sorun çözülecekmi? elbette hayır, sadece azalacak. Bakın forumda yüzlerce kez söylediğimiz ve forum kurallarının içinde yazdığımız halde hala özel mesajla soru sorulabildiği gibi "yardım pls" gibi başlıklar ile de soru sorulabiliyor.

Son olarak şunu belirteyim. Bir üye keşke şöyle yapsaydım diye pişmanlık duyarsa bu bizim değil onun kendi sorunu olacaktır. Biz böylesine bir hizmeti tamamen ücretsiz vererek zaten üzerimize düşeni fazlasıyla yapıyoruz diye düşünüyorum.

 

[ocamsul]

SN: leventm üsdat ve arkadaşlar ekde bir denemem var LıstBox a çalışmadaki mevcut sayfaları alıyorum, Ancak LıstBox da çek atmış olduklarımı silmesi lazım; tabiki örneğin DENEME1, DENEME2 ve DENEME3 sayfalarından benim belirliyeceğim bir yada birkaç sayfayı silmesinide engellemek istiyorum. bu konuda yardımlarınızı bekliyorum arkadaşlar.