Sayfa Numarası

[atbarus]

Sayın hocalarım merhaba, Excelde günlük imza çizelgem var. Bundan ben aylık toplu olarak tek seferde hafta içi çalışma günlerine çıktı alıyorum. Bunu yazdırırken yazdırma sayfasına 25 yazıyorum. Tarihi değiştirirek kendi otomatik yazdırabilirmiyim. Teşekkürler

 

[BaY_KaPTaN]

Anlamak için çaba gösterdim ama anlayamadım.
25 adet kopya içinmi 25 yazıyorsunuz yoksa tarihmi 25_?
Yazdığınız 25 tam olarak nedir_?
Örnek dosyanızı atabilirseniz daha faydalı olacaktır.

 

[atbarus]

Anlamak için çaba gösterdim ama anlayamadım.
25 adet kopya içinmi 25 yazıyorsunuz yoksa tarihmi 25_?
Yazdığınız 25 tam olarak nedir_?
Örnek dosyanızı atabilirseniz daha faydalı olacaktır.

Hocam beni mazur görün haklısınız. Ekte dosyayı gönderdim. Ben bundan Bir aylık Toplu olarak çıktı alıyorum. En üstte tarih var o tarihin her çıktıda bir sonraki günü yazdırmasını istemiştim. Olusada hafta sonlarını atlasın. Bunu yapabilirmiyiz acaba. Çok teşekkürler

İndir Yeni Microsoft Excel Çalışma Sayfası

Dosyayı indir Yeni Microsoft Excel Çalışma Sayfası

dosya.co

 

[BaY_KaPTaN]

Hocam beni mazur görün haklısınız. Ekte dosyayı gönderdim. Ben bundan Bir aylık Toplu olarak çıktı alıyorum. En üstte tarih var o tarihin her çıktıda bir sonraki günü yazdırmasını istemiştim. Olusada hafta sonlarını atlasın. Bunu yapabilirmiyiz acaba. Çok teşekkürler

İndir Yeni Microsoft Excel Çalışma Sayfası

Dosyayı indir Yeni Microsoft Excel Çalışma Sayfası

dosya.co

İnceleyiniz:
https://dosya.co/qov656ddfthu/YAZDIR.xlsm.html

 

[atbarus]

İnceleyiniz:
https://dosya.co/qov656ddfthu/YAZDIR.xlsm.html

Hocam istediğim bu değildi, Ben o listeden örnek vereyim, Mesela ocak ayı ilk mesai 02/01/2024 başlıyor. 22 Mesai günü var. 22 adet çıktı alacağım. Yazdır diyeceğim. 22 adet çıktı alacağım. Yazıcıya gönderdiğimde çıktıda her sayfada tarih bir sonrakini verecek.
Yada böyle olmuyorsa Excelde aynı tablodan kopyalayıp 22 sayfalık tablo yapıp tarihi değiştirecek formül varmı zahmet verdim kusura bakmayın

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu dener misiniz?
Dosyanızın bulunduğu dizine "Yazdır.pdf" isimli bir dosya oluşturur.

Sub kod()
Dim ay As String
Dim trh1 As Date, trh2 As Date, a As Date
Dim s1 As Worksheet, sh As Worksheet
ay = Application.InputBox("Ay giriniz. (Örnek: 01.2024)")
If ay = False Then Exit Sub
trh1 = DateValue("01." & ay)
trh2 = Application.EoMonth(trh1, 0)
Set s1 = Sheets(1)
Application.ScreenUpdating = False
For a = trh1 To trh2
    If Weekday(a, 2) < 6 Then
        s1.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Range("C1").Value = a
    End If
Next
Sheets(2).Select
For Each sh In Sheets
    If sh.Name <> s1.Name Then sh.Select False
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=ThisWorkbook.Path & "\Yazdır.pdf", _
            OpenAfterPublish:=True
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name <> s1.Name Then sh.Delete
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[BaY_KaPTaN]

Hocam istediğim bu değildi, Ben o listeden örnek vereyim, Mesela ocak ayı ilk mesai 02/01/2024 başlıyor. 22 Mesai günü var. 22 adet çıktı alacağım. Yazdır diyeceğim. 22 adet çıktı alacağım. Yazıcıya gönderdiğimde çıktıda her sayfada tarih bir sonrakini verecek.
Yada böyle olmuyorsa Excelde aynı tablodan kopyalayıp 22 sayfalık tablo yapıp tarihi değiştirecek formül varmı zahmet verdim kusura bakmayın

Yazdır butonu eklememişim.
Onuda ekledim.
Direk yazıcıya gönderir Haftasonu hariç
Deneyiniz:
https://dosya.co/2j6dd76hu10b/YAZDIR.xlsm.html

 

[atbarus]

Yazdır butonu eklememişim.
Onuda ekledim.
Direk yazıcıya gönderir Haftasonu hariç
Deneyiniz:
https://dosya.co/2j6dd76hu10b/YAZDIR.xlsm.html

çok teşekkür ediyorum hocam

 

[atbarus]

Merhaba,
Aşağıdaki kodu dener misiniz?
Dosyanızın bulunduğu dizine "Yazdır.pdf" isimli bir dosya oluşturur.

Sub kod()
Dim ay As String
Dim trh1 As Date, trh2 As Date, a As Date
Dim s1 As Worksheet, sh As Worksheet
ay = Application.InputBox("Ay giriniz. (Örnek: 01.2024)")
If ay = False Then Exit Sub
trh1 = DateValue("01." & ay)
trh2 = Application.EoMonth(trh1, 0)
Set s1 = Sheets(1)
Application.ScreenUpdating = False
For a = trh1 To trh2
    If Weekday(a, 2) < 6 Then
        s1.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Range("C1").Value = a
    End If
Next
Sheets(2).Select
For Each sh In Sheets
    If sh.Name <> s1.Name Then sh.Select False
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=ThisWorkbook.Path & "\Yazdır.pdf", _
            OpenAfterPublish:=True
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name <> s1.Name Then sh.Delete
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

çok çok teşekkürler

 

[atbarus]

Yazdır butonu eklememişim.
Onuda ekledim.
Direk yazıcıya gönderir Haftasonu hariç
Deneyiniz:
https://dosya.co/2j6dd76hu10b/YAZDIR.xlsm.html

Hocam ekteki dosyayı bunun gibi çalıştırır hale getirebilirmisiniz. Hücrelerle oynayınca çalışmıyor.

İndir YAZDIR(1)

Dosyayı indir YAZDIR(1)

dosya.co

 

[BaY_KaPTaN]

Hocam ekteki dosyayı bunun gibi çalıştırır hale getirebilirmisiniz. Hücrelerle oynayınca çalışmıyor.

İndir YAZDIR(1)

Dosyayı indir YAZDIR(1)

dosya.co

Hücre yerleri değişince haliyle ilgili hücrelere bakıp da göremiyor.

Dosyanız Burada:

İndir YAZDIR(1)

Dosyayı indir YAZDIR(1)

dosya.co