Levent Bey; Koli eTiket basımı

[aoc]

Levent Bey,

Peki ekteki dosyada olduğu gibi tablo altındaki listeyi diğer çalışma sayfasına koyarsam yeni kodun nasıl olması gerekiyor ?

Teşekkürler.

 

[Levent Menteşoğlu]

Dosyanızdaki yazdir isimli kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:f7fc7edd24]Sub Yazdır()
For a = 24 To 33
[b4] = Cells(a, "a")
For b = 2 To 10
Cells(12, b + 2) = Cells(a, b)
Next
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$17"
ActiveSheet.PrintOut Copies:=2
Next
End Sub
[/vb:1:f7fc7edd24]