Listeye göre Seri Yazma Makrosu

[meyill]

Bir Ad listem var. Sayfada "A5" hücresinde Ad listemdeki değer değişince sayfadaki bilgilerim ada bağlı olarak değişiyor. Adı değiştirip sayfaları tek tek yazdırmam zaman alıyor ve karışıklıklara sebep oluyor. Bir tek komut ile bütün listemdeki adlara bağlı olarak sayfaya gelecek bilgileri seri olarak yazdırabilir miyim? Bunun için bir makro kodu yazarsanız çok müteşekkir olurum.

İlginiz için teşekkür ederim.

 

[kemalist]

örnek dosya eklerseniz daha çabuk yardımcı olunacaktır

 

[meyill]

dosyam ektedir.

Dosya ektedir.

 

[askm]

Kolay gelsin. AP1 e =DÜŞEYARA(AO1;BB5:BC110;2) formulunu girin. Kodlarınızı da aşağıdaki gibi değiştirin.


Sub Yaz()
Dim i, y As Integer
i = 1

y = WorksheetFunction.Max(Range("BB5:BB101"), 1)
For i = 1 To y
[AO1] = i
[j6] = [AP1]
ActiveSheet.PageSetup.PrintArea = "$C$2:$AH$58"
'ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

 

[meyill]

Teşekkür ederim. eline sağlık

 

[meyill]

1. "Karne" Sayfasının kodlarını Makro() olarak kaydet.
2. Sonra "yazdır" makrosunun kodlarını aşağıdaki şekilde değiştir.

Sub Yazdır()
a = Sheets("liste").Cells(65000, 3).End(xlUp).Row
For b = 5 To a
Cells(6, "j") = Sheets("liste").Cells(b, 3)
Call Makro
ActiveSheet.PrintOut
Next
End Sub