• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan cnksz
  • Başlangıç tarihi Başlangıç tarihi
Katılım
25 Ağustos 2014
Mesajlar
9
Excel Vers. ve Dili
office 2007
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
 
. . .

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

. . .
 
. . .

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.

Kod:
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ü:
do.php


. . .
 
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 ?
 
Geri
Üst