Soru Yeni sekme açmak

[reosman]

Saygıdeğer hocalarım,

Excel'de çalıştığım sayfayı (Sekmeyi) verileri ile birlikte Yeni bir sayfa (Sekme) açarak bir butonla, mevcut sayfanında
adı ile birlikte başına veya sonuna günün tarihini yazarak nasıl kaydedebilirim. ?
Vereceğiniz cevaplar için şimdiden çok teşekkür ederim.

Örneğin yeni sayfa adı IZ_14.06.2021

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    Dim ad As String
    ad = ActiveSheet.Name & "_" & Format(Date, "dd.mm.yyyy")
    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Name = ad
End Sub

 

[reosman]

Hocam çok teşekkür ederim. Son olarak bu isimli sayfa var uyarısı vererek işlemi sonlandırmak için ne ekleyebiliriz ?

 

[Ömer]

Eski kodların yerine:

Sub test()
    Dim ad As String
    ad = ActiveSheet.Name & "_" & Format(Date, "dd.mm.yyyy")
    If varmi(ad) Then
        MsgBox "Bu İsimde Bir Sayfa Var", vbInformation
        Exit Sub
    End If
    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Name = ad
End Sub

Function varmi(adi As String) As Boolean
    On Error Resume Next
    varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function

 

[reosman]

Hocam iki adet tarih yazarak kaydetmeye devam ediyor.

 

[reosman]

Kopyalanan sayfada yapıyor hocam çok çok teşekkür ederim.