Tarihlerin ve günlerin otomatik yazdırılması

[truvali27m]

Merhaba arkadaşlar ekli dosyada benim yaptırmak istediğim şöyle: çalışma kitabında 365 tane sayfa olucak yani 1 yıllık bir sayfa olcak ve ben bu sayfaların G2 hücresine 16.02.2009 gibi tarih, G3 hücresine ise PAZARTESİ gibi günü yazıyorum ve bunu 365 sayfaya tek tek yazmak çok uğraştırıcı oluyor.Bunu makro ile yapabilir miyiz acaba.Yani sayfaların hepsinin g2 ve g3 hücrelerine tarih ve günün otomatik olarak yazdırılmasını istiyorum.Sayfalar 01.01'den 31.12'ye kadar oluyor.Ekli örnekte 2 sayfa var.Yardım ederseniz çok sevinirim.Teşekkürler.

 

[truvali27m]

Merhaba arkadaşlar ekli dosyada benim yaptırmak istediğim şöyle: çalışma kitabında 365 tane sayfa olucak yani 1 yıllık bir sayfa olcak ve ben bu sayfaların G2 hücresine 16.02.2009 gibi tarih, G3 hücresine ise PAZARTESİ gibi günü yazıyorum ve bunu 365 sayfaya tek tek yazmak çok uğraştırıcı oluyor.Bunu makro ile yapabilir miyiz acaba.Yani sayfaların hepsinin g2 ve g3 hücrelerine tarih ve günün otomatik olarak yazdırılmasını istiyorum.Sayfalar 01.01'den 31.12'ye kadar oluyor.Ekli örnekte 2 sayfa var.Yardım ederseniz çok sevinirim.Teşekkürler.

dosyayı eklemeyi unutmuşum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle bağlayıp deneyebilir misiniz?

Sub TarihYaz()
On Error Resume Next
Dim Tarih As Date
Dim i As Integer
Dim Sayfa As String
Tarih = DateSerial(2009, 1, 0)
For i = 1 To 365
    Tarih = Tarih + 1
    Sayfa = Format(Day(Tarih), "00") & "." & Format(Month(Tarih), "00")
    Sheets(Sayfa).[G2] = Tarih
    Sheets(Sayfa).[G3] = Tarih
    Sheets(Sayfa).[G3].NumberFormat = "dddd"
Next i
End Sub

 

[truvali27m]

Merhaba,

Aşağıdaki kodları bir modüle bağlayıp deneyebilir misiniz?

Sub TarihYaz()
On Error Resume Next
Dim Tarih As Date
Dim i As Integer
Dim Sayfa As String
Tarih = DateSerial(2009, 1, 0)
For i = 1 To 365
    Tarih = Tarih + 1
    Sayfa = Format(Day(Tarih), "00") & "." & Format(Month(Tarih), "00")
    Sheets(Sayfa).[G2] = Tarih
    Sheets(Sayfa).[G3] = Tarih
    Sheets(Sayfa).[G3].NumberFormat = "dddd"
Next i
End Sub

Sayın Necdet Bey,
ilginize,bilginize ve emeğinize sağlık gerçekten de.Kodları denedim ve çok güzel çalışıyor,bir sorun yok yani.Çok teşekkür ederim.Bu sayfada başka yardımlarda isteyeceğim sizden sonra.kolay gelsin.

 

[Necdet]

Ben ya da diğer arkadaşlar yardım etmekten çekinmeyecektir.
Güle güle kullanınız.

 

[truvali27m]

Ben ya da diğer arkadaşlar yardım etmekten çekinmeyecektir.
Güle güle kullanınız.

Teşekkür ederim.Bir de yine bu örnekle ilgili öğrenmek istediğim sayfalarda devir yazan yerde formül var mesela ='16.02'!D45 gibi bunu 17.02 sayfasına yazıp önceki günün devrini aldırıyorum.Bunu 365 sayfada otomatik olarak nasıl yaptırabiliriz.yani her sayfa kendinden önceki sayfanın d45 hücresindeki değerini otomatik olarak alıp devir yazan yere yazıcak.

2.sorum ise (biraz fazla oldum ama ;-) kusura bakmayın.bunlar da çözülürse süper olcak ve uğraşmaktan kurtulucam.)
ben bu sayfaları baskı önizlemeden girip kenar boşluklarını,üst alt boşluklarını,sayfa yapısını,zoom oranını falan düzenliyorum çıktı alırken kağıda uysun diye,istediğim bunu ilk sayfada yapayım ben ya da nasıl oluyorsa diğer sayfalarda da yaptığım ayarlamaların geçerli olmasını istiyorum.

son sorum ise yine ilk sayfayı yapıp diğer 364 sayfayı makro ile otomatik olarak yan yana yaptırabilir miyiz.

ilgilenen ve ilgilenecek arkadaşlara şimdiden çok teşekkür ederim.hepinize kolay gelsin.

 

[truvali27m]

Teşekkür ederim.Bir de yine bu örnekle ilgili öğrenmek istediğim sayfalarda devir yazan yerde formül var mesela ='16.02'!D45 gibi bunu 17.02 sayfasına yazıp önceki günün devrini aldırıyorum.Bunu 365 sayfada otomatik olarak nasıl yaptırabiliriz.yani her sayfa kendinden önceki sayfanın d45 hücresindeki değerini otomatik olarak alıp devir yazan yere yazıcak.

2.sorum ise (biraz fazla oldum ama ;-) kusura bakmayın.bunlar da çözülürse süper olcak ve uğraşmaktan kurtulucam.)
ben bu sayfaları baskı önizlemeden girip kenar boşluklarını,üst alt boşluklarını,sayfa yapısını,zoom oranını falan düzenliyorum çıktı alırken kağıda uysun diye,istediğim bunu ilk sayfada yapayım ben ya da nasıl oluyorsa diğer sayfalarda da yaptığım ayarlamaların geçerli olmasını istiyorum.

son sorum ise yine ilk sayfayı yapıp diğer 364 sayfayı makro ile otomatik olarak yan yana yaptırabilir miyiz.

ilgilenen ve ilgilenecek arkadaşlara şimdiden çok teşekkür ederim.hepinize kolay gelsin.

arkadaşlar son sorduğum soruyu cevaplayacak yok mu?Gerçekten de çok işime yarayacak bu da çözülürse.Yardımlarınızı bekliyorum.Teşekkürler.

 

[Necdet]

Merhaba,

6. Mesajınıza yanıt vermeye çalışayım. Veriğim ilk kodları aşağıdaki gibi değiştiriniz.

Sub TarihYaz()
On Error Resume Next
Dim Tarih, OTarih As Date
Dim i As Integer
Dim Sayfa, OSayfa As String
Tarih = DateSerial(2009, 1, 0)
For i = 1 To 365
    Tarih = Tarih + 1
    Sayfa = Format(Day(Tarih), "00") & "." & Format(Month(Tarih), "00")
    Sheets(Sayfa).[G2] = Tarih
    Sheets(Sayfa).[G3] = Tarih
    Sheets(Sayfa).[G3].NumberFormat = "dddd"
    If i > 1 Then
        OTarih = Tarih - 1
        OSayfa = Format(Day(OTarih), "00") & "." & Format(Month(OTarih), "00")
        Sheets(Sayfa).[D5] = "='" & OSayfa & "'!D45"
    End If
Next i
End Sub

7. Sorunuz şöyle yanıt verilebilir :

Siz ilk sayfayı düzgünce hazıladıktan sonra sayfa ayarları ile de birlikte ilk sayfanın kopyasını üreten kodlar yazılabilir.

 

[truvali27m]

Merhaba,

6. Mesajınıza yanıt vermeye çalışayım. Veriğim ilk kodları aşağıdaki gibi değiştiriniz.

Sub TarihYaz()
On Error Resume Next
Dim Tarih, OTarih As Date
Dim i As Integer
Dim Sayfa, OSayfa As String
Tarih = DateSerial(2009, 1, 0)
For i = 1 To 365
    Tarih = Tarih + 1
    Sayfa = Format(Day(Tarih), "00") & "." & Format(Month(Tarih), "00")
    Sheets(Sayfa).[G2] = Tarih
    Sheets(Sayfa).[G3] = Tarih
    Sheets(Sayfa).[G3].NumberFormat = "dddd"
    If i > 1 Then
        OTarih = Tarih - 1
        OSayfa = Format(Day(OTarih), "00") & "." & Format(Month(OTarih), "00")
        Sheets(Sayfa).[D5] = "='" & OSayfa & "'!D45"
    End If
Next i
End Sub

7. Sorunuz şöyle yanıt verilebilir :

Siz ilk sayfayı düzgünce hazıladıktan sonra sayfa ayarları ile de birlikte ilk sayfanın kopyasını üreten kodlar yazılabilir.

Sayın Necdet bey çok teşekkür ederim gerçekten de.İşime yaradı bu formülü de otomatik yaptırmak.Kopyalamayla ilgili artık bişeyler yapıcam kendim.Kolay gelsin hepinize.