Bir Sayfadan 16 şarlı verileri Başka Sayfaya aktarımı

[kiziloguz]

Arkadaşlar öncelikle merhabalar,

Ben bir firmanın insan kaynakları bölümünde çalışıyorum. Firmamızda bazı kriterlere dahilinde 20 kişi silinip geri kalan personele fiş karşılığında kumanya dağıtıyoruz. Bu fişleri de ben hazırlayacağım. Ancak takdir edersiniz ki 500 kişinin tüm fişlerini yazmak zaman alacaktır.

Benim sizden ricam, ekte bulunan dosyayı inceleminiz ve bir sayfaya yazacağım verileri düğmeye atanacak bir makro ile diğer sayfada her kişiye bir fiş düşecek şekilde ilk 16 kişinin isimlerinin bölümlerinin ve sıra numaralarının eklenmesi ve tekrar basıldığında sonraki 16 kişinin aynı sayfaya aktarımını sağlamak. Bu sayede her bastığımda 16 lı olarak kişilerin fişlerini yazdırabilmek.

Şimdiden Teşekkür ederim

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub fişle()
Set s1 = Worksheets("alacaklar listesi")
Set s2 = Worksheets("fiş")
X = 1
Y = 3
Z = 0
For a = 1 To 3
For i = 3 To 8
s2.Cells(i + X, Y) = s1.Cells(i + Z, "C")
s2.Cells(i + X + 8, Y + 5) = s1.Cells(i + Z, "B")
s2.Cells(i + X + 8, Y + 8) = s1.Cells(i + Z, "A")
X = X + 11
Next i
X = 1
Y = Y + 12
Z = Z + 6
Next a
MsgBox "Bittim"
End Sub

 

[kiziloguz]

Hocam Ne kadar teşekkür etsem azdır aklına fikrine emeğine sağlık