Çözüldü BUGÜNÜ YAZDIR

[mc_exrem]

Merhabalar

Eklediğim dosyada C1 hücresinde girişlerin, D1 hücresinde de çıkışların toplamları verilmektedir. (Kendi imkanlarımla basit bi şekilde yaptım düzeltilmesi gerekebilir). Sizden ricam bu toplamların sadece içinde bulunduğum günün toplamlarını vermesini ve sonrasında BU GÜNÜ YAZDIR butonu aracılığıyla sadece içinde bulunduğum günün verilerini yazmasını istiyorum. Çünki akşamları günlük çıktı alacağım. Bir de A sütununa veri girince aynı satırdaki E sütununa o günün tarihini atıyordu şu an atmıyor bunu da düzeltebilir misiniz. Teşekkürler yardımlarınız için. Saygılar

 

[Korhan Ayhan]

Merhaba,

Yazdır makrosunu aşağıdaki gibi değiştiriniz.

Sub Yazdir()
    Dim kopya As Long
    Dim myPrinter As String
    Dim printer_name As String

    kopya = [J1].Value
    
    ActiveSheet.Range("$A$2:$E$" & Rows.Count).AutoFilter Field:=5, Criteria1:=Format(CDate(Date), "dd.mm.yyyy")
    ActiveSheet.PageSetup.PrintArea = "$A1:$E" & Cells(Rows.Count, 5).End(3).Row

    printer_name = "Ne00: üzerindeki Zebra TLP2844 "
    myPrinter = Application.ActivePrinter
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name, Copies:=kopya
    
    Application.ActivePrinter = myPrinter
End Sub

C1 hücresine;

=ETOPLA(E4:E1000;BUGÜN();C4:C1000)

D1 hücresine;

=ETOPLA(E4:E1000;BUGÜN();D4:D1000)

Sayfanızın kod bölümündeki kodu da aşağıdaki gibi değiştiriniz. (E sütununa tarih yazılması için)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
    End If
End Sub

 

[mc_exrem]

Merhaba,

Yazdır makrosunu aşağıdaki gibi değiştiriniz.

Sub Yazdir()
    Dim kopya As Long
    Dim myPrinter As String
    Dim printer_name As String

    kopya = [J1].Value
   
    ActiveSheet.Range("$A$2:$E$" & Rows.Count).AutoFilter Field:=5, Criteria1:=Format(CDate(Date), "dd.mm.yyyy")
    ActiveSheet.PageSetup.PrintArea = "$A1:$E" & Cells(Rows.Count, 5).End(3).Row

    printer_name = "Ne00: üzerindeki Zebra TLP2844 "
    myPrinter = Application.ActivePrinter
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name, Copies:=kopya
   
    Application.ActivePrinter = myPrinter
End Sub

C1 hücresine;

=ETOPLA(E4:E1000;BUGÜN();C4:C1000)

D1 hücresine;

=ETOPLA(E4:E1000;BUGÜN();D4:D1000)

Sayfanızın kod bölümündeki kodu da aşağıdaki gibi değiştiriniz. (E sütununa tarih yazılması için)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
    End If
End Sub

ilginiz için çok teşekkür ederim. Cihaza bağlı 3 adet yazıcı bulunmakta. Bu işlem için kullanacağım yazıcı Samsung SCX-4x21 Series (USB003). Kod bölümündeki printer_name = "Ne00: üzerindeki Zebra TLP2844 " bu satırı printer_name = "Ne00: üzerindeki Samsung SCX-4x21 Series (USB003) " olarak düzeltmem yeterli mi acaba?

 

[Korhan Ayhan]

Linkleri inceleyiniz.

https://www.excel.web.tr/threads/yazici-secimi.176981/#post-970306
https://www.excel.web.tr/threads/yaziciyi-otomatik-secme.175327/page-2#post-959660

 

[mc_exrem]

Merhaba,

Yazdır makrosunu aşağıdaki gibi değiştiriniz.

Sub Yazdir()
    Dim kopya As Long
    Dim myPrinter As String
    Dim printer_name As String

    kopya = [J1].Value
 
    ActiveSheet.Range("$A$2:$E$" & Rows.Count).AutoFilter Field:=5, Criteria1:=Format(CDate(Date), "dd.mm.yyyy")
    ActiveSheet.PageSetup.PrintArea = "$A1:$E" & Cells(Rows.Count, 5).End(3).Row

    printer_name = "Ne00: üzerindeki Zebra TLP2844 "
    myPrinter = Application.ActivePrinter
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name, Copies:=kopya
 
    Application.ActivePrinter = myPrinter
End Sub

C1 hücresine;

=ETOPLA(E4:E1000;BUGÜN();C4:C1000)

D1 hücresine;

=ETOPLA(E4:E1000;BUGÜN();D4:D1000)

Sayfanızın kod bölümündeki kodu da aşağıdaki gibi değiştiriniz. (E sütununa tarih yazılması için)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
    End If
End Sub

@Korhan Ayhan Bey,

SAYFAYI YAZDIR butonuna tıklayınca satırları gizliyor ama GEÇERLİ TARİHTEKİ verileri üstteki verilerin altında hepsini yazmasını istiyorum. Aşağıdaki hataları veriyor. Yardım eder misiniz

 

[mc_exrem]

Konu GÜN SONU DEVRİ Başlıklı konu ile düzenlelerek devam edilmiştir. Soru kısmını Çözüldü olarak seçemiyorum. Düzeltebilir misiniz.