Bİr Formdan DeĞİŞİk 300 Çikti Alinabİlİrmİ

[Turgaysendinc]

Merhaba

Benİm Bİr Formdan 300 Veya Daha Fazla Çikti Almam Gerekİyor
Fakat Hepsİnde Farkli Bİr Hat Numarasi Olmasini İstİyorum
Çok Fazla Bİlgİm Yok Ama Macro İle Yapilabİr Umarim

TeŞekkÜrler

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub Yazdır()
If MsgBox("Formları yazdırmak istiyormusunuz?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbNo Then Exit Sub
Set s1 = Sheets("data")
Set s2 = Sheets("form")
s2.Select
For i = 6 To s1.[b65536].End(3).Row
s2.[a3] = s1.Cells(i, "b").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
s1.Select
MsgBox "Bitti"
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Turgaysendinc]

Rİpek Bey

Çok TeŞekkÜr Ederİm Ama Aİt OlduĞu Ay Hafta Ve Vardİyayida Yazabİlİrmİyİz

 

[Recep İpek]

Kodları aşağıdaki şekilde değiştirebilirsiniz.

Not:Önceki mesajdaki dosyayı güncelledim.

Sub Yazdır()
If MsgBox("Formları yazdırmak istiyormusunuz?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbNo Then Exit Sub
Set s1 = Sheets("data")
Set s2 = Sheets("form")
s2.Select
s2.[k1] = s1.[b2]
s2.[r1] = s1.[b3]
s2.[z1] = s1.[b4]
For i = 6 To s1.[b65536].End(3).Row
s2.[a3] = s1.Cells(i, "b").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
s1.Select
MsgBox "Bitti"
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Turgaysendinc]

Çok TeŞekkÜr Ederİm İlgİnden Dolayi

Ellerİne SaĞlik Çok GÜzel Oldu Benİ BÜyÜk Bİr İŞ Sikintisindan Kurtardin

Bende ÖĞrenmek İstİyorum Ama Çok Zor Gelİyor Tekrar TeŞekkÜrler

 

[Recep İpek]

Bu forumu takip ederseniz, zamanla makroları öğrendiğinize kendiniz bile inanamayacaksınız.

Kolay Gelsin.