1 sayfada sabit bir şablonum var.sadece b1 hücresi değişken.
2.sayfadaki A sütunundaki 900 veriyi sırayla 1.sayfadaki b1 yapıştırıp yazdıracak.(yatay A4 biçiminde)
900 veri olduğu için döngüyü for next ile kurarsam arada durdurmak için (hata ile karşılaşırsam diye) döngüden çıkmak yada durdurmak için bir kısayol eklenebilir mi ?
Sub yazdır()
Sayfa1.Activate
For a = 1 To 900
Sheets("sayfa1").Range("b1") = Sheets("Sayfa2").Range("a" & a)
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next a
End Sub
2.sayfadaki A sütunundaki 900 veriyi sırayla 1.sayfadaki b1 yapıştırıp yazdıracak.(yatay A4 biçiminde)
900 veri olduğu için döngüyü for next ile kurarsam arada durdurmak için (hata ile karşılaşırsam diye) döngüden çıkmak yada durdurmak için bir kısayol eklenebilir mi ?
Sub yazdır()
Sayfa1.Activate
For a = 1 To 900
Sheets("sayfa1").Range("b1") = Sheets("Sayfa2").Range("a" & a)
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next a
End Sub
Son düzenleme: