TABLONUN YERİNİ DEĞİŞTİRMEK

[aoc]

TABLONUN YERÝNÝ DEÐÝÞTÝRMEK

Merhaba,

Ekte 1 nolu çalışma sayfasındaki pembe tabloyu kesip 2 nolu çalışma sayfasına koyarsam programın çalışması için kodun nasıl olması gerekiyor ?

Program pembe tablonun 1. çalışma sayfasında olmasına göre yapıldı.

Tşk.

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

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