Ayın her günü için oluşturulmuş tabloya tarih ve günü otomatik verme

[m.ensar]

Merhaba üstadlar ekteki çalışma kitabında bir aylık yemek listesi var ve her gün için bir sayfa oluşturulmuş. istediğim B6 satırında bulunan tarih ve günü diğer sayfalara aynı yere otomatik atanması. örneğin sayfada B6 hücresine (veya sayfada herhangi bir hücreye) Ocak 21 yazdığımda diğer tüm sayfalarda ki B6 satırında bulunan tarih ve gün sırasıyla atansın.
İyi çalışmalar diliyorum..

 

[Necdet]

Merhaba,

Ayın gün adedi kadar sayfa var mı? yoksa ilk sayfadan diğer sayfalar da çoğaltılacak mı?

 

[m.ensar]

ilk sayfadan diğer sayfalar çoğaltılırsa çok daha güzel olur Necdet hocam ancak bu kitabı kullanan arkadaş her gün için bir sayfa oluşturmuş. ona extra bir kolaylık olur. çok teşekkür ediyorum ilginize

 

[Necdet]

Merhaba,

Örnek adlı bir sayfa oluşturdum.
Bu sayfanın B6 hücresindeki tarihi değiştirdiğinizde kodlar otomatik olarak çalışır. Sayfalar Belirtilen tarihten itibaren oluşturulur.
Örneğin 25.01.2021 derseniz bu tarih ve ayın sonuna kadar olan tarih itibariyle sayfalar oluşur.

Örnek Sayfasının kod bülümü :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B6]) Is Nothing Then Exit Sub
 
    SayfaYaz
 
End Sub

Aşağıdaki kodlar da bir modülde olmalı.

Sub SayfaYaz()

    Dim ShO As Worksheet, _
        Sh  As Worksheet, _
        Tar As Date, _
        i   As Integer, _
        Ay  As Integer

    Set ShO = Sheets("Örnek")
   
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
    End With
   
    For Each Sh In Worksheets
        If Not Sh.Name = "Örnek" And Not Sh.Name = "Sabitler" And Not Sh.Name = "Genel Toplam" Then Sh.Delete
    Next Sh
   
    Tar = ShO.Range("B6")
    Ay = Month(Tar)
   
    Do
   
        ShO.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Range("B6") = Tar
        ActiveSheet.Name = Day(Tar)
   
        Tar = Tar + 1
   
    Loop While Month(Tar) = Ay
   
    ShO.Select
   
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
        .EnableEvents = True
    End With
   
    MsgBox "Sayfalar Oluşturulmuştur......", vbInformation, "www.excel.web.tr"
   
End Sub

 

[m.ensar]

Necdet hocam harikasınız çok teşekkür ediyorum mükemmel bir çalışma olmuş

 

[Necdet]

Güle güle kullanınız.

Özelde verdiğiniz bilgiye göre "Genel Toplam" Sayfasının silinmesini önledim, ayrıca sayfa adlarını da 1,2,3.. gibi verdim.
Kodları yeniden kopyalayınız, orijinal dosyanıza uyarlayınız.

Not : Örnek sayfasındaki B6 hücresi birleştirildi. Kendi dosyanızda da buna dikkat ediniz.

 

[m.ensar]

Hocam cepten yazıyorum bilgisayar başına geçer geçmez deneyeceğim çok sağolun emeğinize sağlık

 

[m.ensar]

Necdet hocam emeğinize sağlık gayet güzel çalışıyor lakin B6 hücresine tarih girip sayfalar yeniden oluşturulduğunda genel toplam sayfasında ki formüller =#BAŞV!$C$10 şeklinde bozulmaya uğruyor. son olarak eğer mümkünse B6 hücresine 06.01.2021 yazdığımızda çarşamba diye gün belirtebilir mi? gün çok önemli değil ama bu formül bozulmasının önüne geçmenin bir yolu var mı?

 

[Necdet]

Merhaba,

B6 ve B36 hücresinin biçimini Özel Hücre Biçiminden İsteğe Uyarlanmıştan

gg.aa.yyyy gggg

şeklinde kullanırsanız, (ki eklediğim dosyada bunu görebilirsiniz) tarihi yazdığınızda günü de görünecektir.

Birinci sorunuzda Genel toplam sayfasından söz etmediğiniz için önerdiğim mantık burada çalışmamaktadır.
Bunu önlemenin yolu tarihleri bir önceki sayfanın değerini 1 arttırmakla çözülür.
Bunu bir kere yapmakla sorunu toptan çözmüş olursunuz.

Dolayısıyla 1. sayfadaki tarihte bir değişiklik yaptığınızda tüm sayfalara yansıyacaktır.

Örneğin 2. sayfanın B6 hücresi :

='1'!B6+1

ve diğer sayfalara da aynı yöntemi yani 3. sayfada

='2'!B6+1

şeklinde yazıp devam edebilirsiniz.

 

[m.ensar]

Merhaba,

B6 ve B36 hücresinin biçimini Özel Hücre Biçiminden İsteğe Uyarlanmıştan

gg.aa.yyyy gggg

şeklinde kullanırsanız, (ki eklediğim dosyada bunu görebilirsiniz) tarihi yazdığınızda günü de görünecektir.

Birinci sorunuzda Genel toplam sayfasından söz etmediğiniz için önerdiğim mantık burada çalışmamaktadır.
Bunu önlemenin yolu tarihleri bir önceki sayfanın değerini 1 arttırmakla çözülür.
Bunu bir kere yapmakla sorunu toptan çözmüş olursunuz.

Dolayısıyla 1. sayfadaki tarihte bir değişiklik yaptığınızda tüm sayfalara yansıyacaktır.

Örneğin 2. sayfanın B6 hücresi :

='1'!B6+1

ve diğer sayfalara da aynı yöntemi yani 3. sayfada

='2'!B6+1

şeklinde yazıp devam edebilirsiniz.

Hocam her sayfada
If Intersect(Target, [B6]) Is Nothing Then Exit Sub buradaki B6 yı yukarıdaki şekilde değiştiriyoruz doğru mu anladım?

 

[Necdet]

Merhaba,

Son önerimde makro yok. El ile B6 formüllerini düzenleyiniz. Sonuçta 1 kere yapacaksınız 31 adet sayfayı.
Sonra bir daha uğraşmayacaksınız.

 

[m.ensar]

Necdet hocam dediğinizi yapıyorum formülü el ile tüm sayfaların B6 satırına işliyorum ama değişen birşey olmadı. birde o şekil olsaydı yeni tarih girildiğinde sayfalar komple yeniden dizayn edildiğinden tekrar tüm sayfaların B6 satırına ='1'!B6+1 ='2'!B6+1 ='3'!B6+1 diye devam ederek girmek gerekmeyecek mi?

 

[Necdet]

Merhaba,

Ekli dosyayı inceleyin, Fikir versin diye sadeleştirdim.
Eğer doğru ise kullanabilirsiniz.

 

[m.ensar]

büyüksünüz hocam tek kelime teşşekkür ediyorum

 

[Necdet]

Rica ederim, güle güle kullanınız.

 

[Necdet]

Merhaba,

Biraz daha otomatik olmasını istedim.

Günlük sayfalardaki tarih "Genel Toplam" sayfasındaki AO3 hücresine bağlandı.
Bu hücre değiştiğinde tüm verilerin silinmesi sağlandı.
Teslim eden ve alanların verileri silinmedi. Bu verilerin silinmesi ya da yeni isim eklemek gerektiğindeki pratik yöntemi de söyleyim.
1. sayfa ile 31. sayfa Shift tuşuna basılı olarak tutulup seçildikten sonra tek bir sayfada değişiklik yapsanız bile tüm sayfalarda aynı değişiklik yansır.
Aynı yöntemle silme işlemi de gerçekleştirilmiş olur.

Yaptık madem tam yapalım dedim

 

[m.ensar]

Hocam eksik anlatılınca tabi işlerde eksik oluyor eklediğim sayfa da var olan X lerde sabitmiş az önce bildirdiler şimdi az yukarda verdiğiniz bilgi olmasa tek tek onları giriyordum 5. sayfa da idim hani bende excell konusunda çokta iyi değilim acizane tamir ve sistem kurulumu yapıyorum arada da bildiğim kadarıyla arkadaşlara yardımcı olmaya çalışıyorum bilemediğim yerde siz değerli hocalarımı yoruyorum. çok teşekkür ederim böyle daha mükemmel olmuş verdiğiniz toplu yazma ve silme tüyosu için minnettarım