Sheet Veri AKTARMA

[kiziloguz]

Merhaba Arkadaşlar,

Firmamıza yeni sicil dosyaları bunlar için ise dosya sırtlığı hazırlayacağım. Tek tek isimleri yazdırmaktan ise ben ismini ve sicilini bir Sheet yazdırıp diğer sheete ise 10 ar 10 ar sırayla aktarılarak yazdırılmasını istiyorum. Ancak Amatörlük işte olmuyor. ekte dosyayı yolluyorum.

Şimdiden teşekkür ederim ilginize,

 

[Emir Hüseyin Çoban]

. . .

Tek seferde yazdırmak için

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("SIRTLIK")
Set S2 = Sheets("SİCİL")
s2son = S2.[a65536].End(3).Row

For i = 2 To s2son
For a = 1 To 20 Step 2
S1.Cells(5, a) = S2.Cells(i, "b")
S1.Cells(41, a) = S2.Cells(i, "a")
i = i + 1
S1.PrintOut
Next a
i = i - 1
Next i

Set S1 = Nothing
Set S2 = Nothing
i = Empty
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[kiziloguz]

. . .

Tek seferde yazdırmak için

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("SIRTLIK")
Set S2 = Sheets("SİCİL")
s2son = S2.[a65536].End(3).Row

For i = 2 To s2son
For a = 1 To 20 Step 2
S1.Cells(5, a) = S2.Cells(i, "b")
S1.Cells(41, a) = S2.Cells(i, "a")
i = i + 1
S1.PrintOut
Next a
i = i - 1
Next i

Set S1 = Nothing
Set S2 = Nothing
i = Empty
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

Bir sorun var ki hocam çıktılar sürekli aynı çıktıları veriyor sonraki kişileri getirmiyor maalesef :frown:

 

[Emir Hüseyin Çoban]

. . .

Aşağıda belirttiğim değişikliği yaparak deneyiniz.
S1.PrintOut komutunu bir alt satıra alın.

i = i + 1
Next a
[B][COLOR="Red"]S1.PrintOut[/COLOR][/B]
i = i - 1
Next i

. . .

 

[kiziloguz]

. . .

Aşağıda belirttiğim değişikliği yaparak deneyiniz.
S1.PrintOut komutunu bir alt satıra alın.

i = i + 1
Next a
[B][COLOR="Red"]S1.PrintOut[/COLOR][/B]
i = i - 1
Next i

. . .

Emeğine zamanına sağlık dostum oldu, Harikasın!

 

[kiziloguz]

Hüseyin Hocam Ya da ilgilenebilecek diğer arkadaşlar,

Üstad Hüseyinin vermiş olduğu makro tümünü tek tıkla yazdırıyor ancak benim isteğim her tıklamada yeni bir 10 lu grubun gelmesi ve sonrasında benim yazacağım başka bir makro ile yazdırmak bu konuda yardımcı olabilir misiniz?

Şimdiden Teşekkürler