Fazla sayfaları silmek

[Halil Engin]

Herkese merhaba, excel çalışma sayfamda çoğunlukla bir defa kullandığım çalışma sayfaları (adları 18.512, 18.518, 18.519 gibi değişken, son basamağı artarak devam eden ve düzensiz olan sayfalar) ekliyorum. Bu sayfalar 20 adet olunca en eski olanını, yeni sayfa eklendiğinde otomatik silmek istiyorum. Bu durum için nasıl bir makro yazabilirim? Yardımlarınız için teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Foruma hoşgeldiniz. Aşağıdaki kodu ThisWorkbook kod bölümüne kopyalayınız.

Option Base 1
Private Sub Workbook_NewSheet(ByVal Sh As Object)
If Sheets.Count < 20 Then Exit Sub
Dim x As Byte, k As Byte
Dim s_adi(20)
Dim s_deg(20)
For Each syf In Sheets
    If IsNumeric(syf.Name) Then
        x = x + 1
        s_adi(x) = syf.Name
        s_deg(x) = CLng(syf.Name)
    End If
Next
k = WorksheetFunction.Match(WorksheetFunction.Min(s_deg), s_deg, 0)
Application.DisplayAlerts = False
Sheets(s_adi(k)).Delete
Application.DisplayAlerts = True
End Sub