Yazıcıdan çıktı aldıkça çalışma sayfasındaki bazı bilgilerin listesini tutmak .?

[cnksz]

ARKADAŞLAR MERHABALAR,

YÜKLEMİŞ OLDUĞUM RESİMDE DERDİMİ VE NASIL BİR ŞEY İSTEDİĞİMİ ANLATMAYA ÇALIŞTIM. AMACIM HÜCREYE GİRİLEN HER DEĞERİ DEĞİL, YALNIZCA YAZDIRDIKTAN SONRAKİ DEĞERLERİN LİSTESİNİ TUTMAK. https://yadi.sk/i/XaBuVWxub79vV

 

[Emir Hüseyin Çoban]

. . .

Ctrl + P ile yazdırmak yerine
Yazdırma işlemini de makro ile yaparsanız verimli sonuç alınabilir.

. . .

 

[cnksz]

O nasıl olacak biraz acemiyim de ...:s

 

[Emir Hüseyin Çoban]

. . .

Boş bir modüle aşağıdaki kodları yapıştırın. Daha sonra bir buton ekleyip kodları butona atayın.
Yazdırma ve arşivleme işlemini buton yapacaktır.

Yazdırma işleminden sonra başlıktaki eski verilerin temizlenmesini isterseniz. Yeşil satırların başındaki tırnak (') işaretini kaldırın.

Sub KOD_YAZDIR()
    Application.ScreenUpdating = False
    
    If WorksheetFunction.CountA(Range("C2:C5")) <> 4 Then
        MsgBox " Başlık Alanındaki Tüm Bilgiler Doldurulmalı", vbCritical
        Exit Sub
    End If
    
    Sheets("BİLGİ GİRİŞİ").PrintOut
    
    sat = Cells(Rows.Count, "K").End(3).Row + 1
    Cells(sat, "J") = sat - 1
    Cells(sat, "K") = Range("C5")
    Cells(sat, "L") = Range("C2")
    Cells(sat, "M") = "/"
    Cells(sat, "N") = Range("C3")
    
[COLOR="Green"]'    Range("C2") = ""
'    Range("C3") = ""
'    Range("C4") = ""
'    Range("C5") = ""[/COLOR]
    
    Application.ScreenUpdating = True
End Sub

Ekran Görüntüsü:

. . .

 

[cnksz]

yardımlarınız için teşekkür ederim.

problem şu ki ben tüm çalışma kitabını (toplam 27 çalışma sayfası) yazdırıyorum. verdiğiniz kod da yalnızca bilgi girişi yazdırılıyor. tümünü ekleyebilirmisiniz...

ondan bağımsız olarak,

buton daki yazdır komutunu kaldırıp, bilgilerin kaydedileceği yeri de ayrı bir çalışma sayfası ya bağımsız ayrı bir excel kitabı yapabilir miyiz ?