otomatik yazdırma

[Erdem Akdemir]

ekteki dosyada ufak bir userform yardımıyla başlangıç ve bitiş sıra numaraları yazılarak, her şirketin adının ve bakiye bilgilerinin dökülmesini istiyorum.sayfa 2'de formüller yardımı ile yaptım ama uzun sürüyor

 

[bulentkars]

dosya ekte

Sub yazdır()
Dim i As Integer
For i = 1 To 62 ' satır sayısını değiştirebilirsiniz

Range("c1") = Range("c1") + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub

 

[Erdem Akdemir]

Sub yazdır()
Dim i As Integer
For i = 1 To 62 ' satır sayısını değiştirebilirsiniz

Range("c1") = Range("c1") + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub

Userform' ile nasıl yaparız

 

[bulentkars]

anladığım kadarıyla sayfa 1 de 64 te bıtıypr makro ıcnde For i = 1 To 62 ' satır sayısını değiştirebilirsiniz 62 sayısını değiştirebılırsınız.

 

[mami68]

Aradığınız böyle bir şeymi.

Evet budur diyorsan Güle güle kulanın.

İyi çalışmalar.