Çalışma kitabınızda belirli bir sayfa varsa, onu nasıl silersiniz?
Bir çalışma kitabında belirli bir çalışma sayfası varsa, onu nasıl silebilirsiniz? Genellikle öncelikle bu sayfanın varlığını kontrol etmeniz ve ardından manuel olarak silmeniz gerekir. İşte size, Excel dosyasında belirtilen çalışma sayfası mevcutsa doğrudan silmenizi sağlayan pratik bir yöntem!
Bir çalışma kitabında belirli bir çalışma sayfası varsa VBA koduyla silme
Bir çalışma kitabında belirli bir çalışma sayfası varsa VBA koduyla silme
Aşağıdaki VBA kodu, çalışma kitabınızda belirtilen çalışma sayfası mevcutsa onu silmenize yardımcı olur. Lütfen aşağıdaki adımları uygulayın:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Çalışma kitabında belirli bir çalışma sayfası varsa silme
Sub Test()
'Updateby Extendoffice
Dim xWs As Worksheet
Dim sheetName As String
sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet1", , , , , 2)
Application.DisplayAlerts = False
Err.Clear
On Error Resume Next
Set xWs = Sheets(sheetName)
If Err <> 0 Then
MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
Exit Sub
Else
xWs.Delete
MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
End If
Application.DisplayAlerts = True
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın. Silinmesini istediğiniz sayfa adını girdikten sonra, varlığını kontrol etmenizi hatırlatan bir iletişim kutusu görüntülenecektir; ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın:
(1.) Sayfa mevcutsa hemen silinecektir; ekran görüntüsüne bakın:
(2.) Sayfa mevcut değilse, aşağıdaki ekran görüntüsünde gösterildiği gibi sizi uyaran bir iletişim kutusu açılacaktır:
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar