Makro TuŞu İle Excel Dosyasindakİ Mevcut Sayfalari Sİlme

[taseraydin]

EXCEL DOSYASINDA HAZIRLANMIŞ SAYFALARIN BİR MAKRO TUŞU İLE (sAYFA1) HARİÇ DİĞER TÜM SAYFALARIN SİLİNMESİ İÇİN NASIL BİR MAKRO KODU YAZABİLİRİM BEN AŞAĞIDAKİ GİBİ UYGULAYABİLDİM ANCAK SAYFA İSİMLERİ FARKLI VE ÇOK OLDUĞU İÇİN BUNLARI TEK FORMÜLDE HEPSİNİN SİLİNMESİ GEREKİYOR İLGİNİZE VE YARDIMLARINIZA ŞİMDİDEN TEŞEKÜR EDERİM

Application.DisplayAlerts = False
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sayfa3").Select
ActiveWindow.SelectedSheets.Delete

 

[birol_mumcu]

merhaba;
yolgöstermesi açısından
Bir çalışma sayfasında tüm sekmeleri kaldıran ve verileri silen kod
kullanmadan önce dosyanızın yedeğini alın

Sub CleanUp()
Dim TheCell As Range
For Each TheCell In ActiveSheet.UsedRange
With TheCell
If .HasFormula = False Then
.Value = Application.WorksheetFunction.Clean(.Value)
End If
End With
Next TheCell
End Sub

 

[taseraydin]

teşekür

ilginize ve yardımlarınıza çok teşekür ederim.

 

[taseraydin]

macro çalışmadı

öernek dosyayı gönderiyorum ilgilenirseniz memnun olurum saygılara sevgiler

 

[seismic]

Makro Kaydet

Aşağıdaki kodları makro kaydet ile kaydettim ve bir defaya mahsus olmak üzere çalıştı.Eğer çalışma sayfalarından herhangi biri yada birkaçı eksik ise hata verecektir.Daha kolay ve sağlıklı bir yolu vardır mutlaka ama malum,usta değiliz


Sub Sil()

Sheets("Sayfa2").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5", "Sayfa6", "Sayfa7", "Sayfa8", _
"Sayfa9", "Sayfa10", "Sayfa11", "Sayfa12", "Sayfa13", "Sayfa14", "Sayfa15", "Sayfa16", _
"Sayfa17")).Select
Sheets("Sayfa17").Activate
ActiveWindow.SelectedSheets.Delete
End Sub


(Çırak bile olamadık ya neyse)

 

[Ali]

Sayfa1 hariç silmek istiyorsanız aşağıdaki gibi kullanabilirsiniz.

Sub sayfasil()
On Error Resume Next
Application.DisplayAlerts = False
a = Worksheets.Count
For i = 1 To a
Worksheets(i).Select
If ActiveSheet.Name = "Sayfa1" Then GoTo git
ActiveSheet.Delete
git:
Next
Application.DisplayAlerts = True
End Sub

 

[taseraydin]

teşekürler

Değerli SEISMIC yardımcı olamaya çalışmıssınız bu özverinize içten teşekkürler
Ali ilginize teşekkür ederim.Saygılar.