Soru Yeni sekme açmak

Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Deneyiniz.
Kod:
Sub test()
    Dim ad As String
    ad = ActiveSheet.Name & "_" & Format(Date, "dd.mm.yyyy")
    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Name = ad
End Sub
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
Hocam çok teşekkür ederim. Son olarak bu isimli sayfa var uyarısı vererek işlemi sonlandırmak için ne ekleyebiliriz ?
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Eski kodların yerine:
Kod:
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
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
Hocam iki adet tarih yazarak kaydetmeye devam ediyor.
 
Katılım
26 Nisan 2021
Mesajlar
178
Excel Vers. ve Dili
TR 2021
Altın Üyelik Bitiş Tarihi
27-04-2022
Kopyalanan sayfada yapıyor hocam çok çok teşekkür ederim.
 
Üst