listeye göre filtreleyip sırayla yazdırma

[frtnamu]

selamlar değerli üstadlar

birinci sayfadaki a sütununu ,
diğer sayfada yer alan listedeki rakamları baz alarak ;
sırayla filtreleyip yazdırmak istiyorum

yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde denermisiniz.

Sub SuzYazdir()
 
Dim Sk As Worksheet, i As Long
 
Set Sk = Sheets("kriter")
Sheets("fitrelenip yazdırılacak").Select
 
For i = 1 To Sk.Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1").AutoFilter Field:=1, Criteria1:=Sk.Cells(i, "A")
    [COLOR=blue]ActiveSheet.PrintOut[/COLOR]
    Application.Wait Now + TimeValue("00:00:02")
Next i
 
Range("A1").AutoFilter Field:=1
 
End Sub

Not : Yazdırmayla ilgili deneme yapmadım.

.

 

[frtnamu]

çok teşekkürler Ömer Bey emeğiniz için
elinize sağlık