TOPLU ÇIKTI ALMA

[mzsakall]

Merhabalar;

ekte bulunan dosyada kendi çabalarım ile bir şeyler yaptım ancak toplu bir şekilde çıktı almak istiyorum çıktı sayfasının a sütununa kaç adet veri yapıştırdığım farketmeksizin hepsini tek tek özel sayfasına yapıştırıp print edebilecek bir kod yazılabilir mi ?

şimdiden emeklerinize sağlık

 

[BaY_KaPTaN]

Aşağıdaki kod işinize yarayabilir

Sub MakroYazdır()
Range("A1").Select
For satir = 1 To [A2000].End(3).Row
    Selection.Copy
    Sheets("ÖZEL").Select
    ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("ÇIKTI").Select
    ActiveCell.Offset(1, 0).Select
Next satir
    Application.CutCopyMode = False
End Sub

 

[mzsakall]

çıktı sayfasındaki her hücreyi tek tek özel sayfasına kopyalayıp her hücreyi ayrı çıktı alması amaç bu formül çıktı sayfası print ediyor :/

 

[BaY_KaPTaN]

çıktı sayfasındaki her hücreyi tek tek özel sayfasına kopyalayıp her hücreyi ayrı çıktı alması amaç bu formül çıktı sayfası print ediyor :/

Kodu düzenledim.
İş dolayısıyla yoğundum, yazdır kodunu sona eklemişim.

 

[mzsakall]

elinize sağlık oldu çok teşekkürler

 

[BaY_KaPTaN]

elinize sağlık oldu çok teşekkürler

Rica ederim