Makro ile Sayfa1 den alıp Sayfa2 ye alt alta sıralama

Katılım
6 Ekim 2006
Mesajlar
149
Excel Vers. ve Dili
2013
Aşağıda yazılı makro aynı sayfa 4 ve 58 sütun arasını alıyor BK7:BX sütuna yapıştırıyor. Yapmak istediğim
bordro sayfası L3 ten başlayıp 5 er sütun kopyalayıp bordrodöküm sayfasına f7 ye alt alta yapıştıracak bordro sayfası L3 ten başlayıp L200 e kadar her satır için yapacak.

Sub Yeni_Makro()

Dim i As Long, j As Byte, s As Byte, a As Byte, b As Byte, c As Byte
Dim x, y, sut As Byte, sat As Long, son As Long

x = Array(5, 1, 1, 1, 4, 2)
y = Array(5, 3, 4, 1, 5, 1)

sut = 63: sat = 7: son = 212

Application.ScreenUpdating = False
Application.Calculation = xlManual
Range("BK7:BX" & son + 4).ClearContents

For j = 4 To 58
For i = 7 To son Step 5
s = 0
For c = 0 To UBound(x)
For b = 1 To x(c)
For a = 1 To y(c)
Cells(i + a - 1, sut + b + s - 1) = Cells(sat, j).Formula
j = j + 1
Next a
Next b
s = s + b - 1
Next c
sat = sat + 1: j = 4
Next i
If i > son Then MsgBox "İşlem Bitti.": Application.Calculation = xlAutomatic: Exit Sub
Next j

End Sub
Aynı sayfa içinde kayıt yapıyordu şimdi ise bordro sayfadan alacak bordrodöküm sayfasına alt alta yapacak selamlar
 

Ekli dosyalar

Üst