Çalışma sayfası eklemek ama farklı

[safariyim]

Gönderdiğim örnektede belirttiğim gibi bir excel sayfasına bir aylık çalışma sayfası eklemek istiyorum. ekleyeceğim her yeni sayfa bir sonraki gün olsun yani ben yeniden adlandırmak istemiyorum böyle birşey mümkünmü

 

[leumruk]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub Ekle()
Application.ScreenUpdating = False
Ad = Sheets(Worksheets.Count).Name
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = CDate(Ad) + 1
End Sub

 

[safariyim]

Mustafa bey ekledim verdiğiniz kodu ama olmadı malesef yeni çalışma sayfası ekle dediğim zaman yada kopya oluştur dediğim zaman değişen birşey olmuyor benmi yanlış yapıyorum yoksa

 

[leumruk]

Eklediğim dosyanın ilk sayfasına buton ekledim. Sayfa oluşturmak için butona tıklamalısınız.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz. Normal sayfa ekleme yöntemlerinde otomatik olarak son eklenen sayfanın ismi bir önceki tarihe göre artarak oluşacaktır.

Uygulanan kod; (ThisWorkbook bölümüne uygulayın.)

Option Explicit
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim Sayfa_Adı As String, Tarih As Date, Gün_Sayısı As Byte
    Sayfa_Adı = Sheets(Worksheets.Count).Name
    Application.EnableEvents = False
    ActiveSheet.Move After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = CDate(Sayda_Adı) + 1
    Application.EnableEvents = True
    Tarih = Sheets(1).Name
    Gün_Sayısı = Day(DateSerial(Year(Tarih), Month(Tarih) + 1, 0))
    If Sheets.Count > Gün_Sayısı Then
    MsgBox "Bu çalışma kitabında en fazla " & Gün_Sayısı & " adet sayfa olabilir." & vbCrLf & _
    " Son eklediğiniz sayfa silinecektir.", vbCritical, "Dikkat !"
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    End If
End Sub

 

[safariyim]

Üstad eline sağlık istediğim olmuş ama biz soruyu eksik sormuşuz sayfanın içeriğininde aynı şekilde her yeni sayfada olması gerekiyordu burda sadece tarihler değişiyor ama boş fayfa ekliyor örneği ekte gönderdim ilgine teşekür ederim

 

[Korhan Ayhan]

Selamlar,

Bu durumda sayfa eklemek yerine "Taşı ve kopyala" menüsünü kullanarak sayfa eklemeyi deneyin.

 

[safariyim]

taşı ve kopyala menüsünde eklediğim zaman tarihler değişmiyor. tarihleri tek tek değiştirmek gerekiyor istiyorumki tarihler değişsin sayfanın içeriği olduğu gibi kopyalansın

 

[Korhan Ayhan]

Selamlar,

Bu durumda Mustafa beyin önerdiği kodu revize ederek kullanmanız gerekecektir.

Sheets.Add After:=Sheets(Worksheets.Count)

Üstteki kod yerine alttaki kodu kullanabilirsiniz.

Sheets(1).Copy After:=Sheets(Worksheets.Count)

 

[safariyim]

ekle butonu ile yapabilirseniz çok teşekürler çok işime yarayacak açıkcası

 

[Korhan Ayhan]

Selamlar,

Aynı anda yazdığım için gözünüzden kaçabilir.

#9 nolu mesajı inceleyin.

 

[safariyim]

korhan bey söylediğini yeri değiştirdim Sheets(1).Copy After:=Sheets(Worksheets.Count)
ama değişen birşey olmadı yine boş safya ekleniyor

 

[safariyim]

Korhan bey mustafa bey çok teşekürler istediğim oldu sonunda

Kod:
Sub Ekle()
Application.ScreenUpdating = False
Ad = Sheets(Worksheets.Count).Name
Sheets(1).Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = CDate(Ad) + 1
End Sub

bunu ekledim tarih değişiyor ama sayfanın içeriğinide kopyalıyor tam istediğim gibi çok teşekürler