Makro Yeni Çalışma sayfası ekleme / silme

[walabi]

Merhaba,

Birden fazla buton altında çalışacak bir düzenleme yapmaya çalışıyorum. Şöyleki farklı her butona bastığımda, öncelikle "Rapor" adında bir excel sayfasının olup olmadığını kontrol edecek, eğer varsa bu sayfayı silip yerine "Rapor" adında tekrardan yeni bir excel sayfası açacak ( devamında bu sayfaya veri aktarımı yapılıyor ) kod nasıl olmalı.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub rapor()
sayfa = "yok"
For i = 1 To Sheets.Count
    If Sheets(i).Name = "Rapor" Then
        sayfa = "var"
    End If
Next
If sayfa = "var" Then
    Application.DisplayAlerts = False
        Sheets("Rapor").Delete
    Application.DisplayAlerts = True
End If
Sheets.Add
ActiveSheet.Name = "Rapor"
End Sub

 

[walabi]

Aşağıdaki makroyu deneyiniz:

Sub rapor()
sayfa = "yok"
For i = 1 To Sheets.Count
    If Sheets(i).Name = "Rapor" Then
        sayfa = "var"
    End If
Next
If sayfa = "var" Then
    Application.DisplayAlerts = False
        Sheets("Rapor").Delete
    Application.DisplayAlerts = True
End If
Sheets.Add
ActiveSheet.Name = "Rapor"
End Sub

Teşekkürler Yusuf bey,