Formül ile sayfa yazdırma

[kamenzü]

Merhaba,

2 sayfalık bir bir dosyam var.

sayfaların adları 09c ve 10a2

yapmam gereken şu;

09c sayfası j23 hücresinde yazan sayı kadar 10a2 sayfasından çıktı alınacak.

yani j23 hücresinde 3 yazıyorsa 10a2 sayfasından 3 adet çıktı alınacak.

Bu formül ile nasıl yapılabilir, olmaz diyorsanız makro ile nasıl yapılabilir?

 

[Seyit Tiken]

Sayfa yazdırma kodla oluyor | Örnek kodu kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = 0 Then GoTo 0
Sayfa2.PrintOut Copies:=Sayfa1.[a1]
0
End Sub