Satırları Beş Satırda Bir Sütunlara dönüştürmek.

[cstberat]

Selam.Ekteki bordro örneği.
Her ay bodro bilgilerini kullanmak gerek ve excel olarak elimde mevcut oluyor.
Bir kişiye ait beş satır da bilgiler mevcut.Toplamda 625 kişi var, satır sayısıda 3125.Her beş satırı tek satıra çevirmek istiyorum.
ekte yapmak istediğimi örnek olarak gösterdim.
Şimdiden teşekkürler.

 

[tcenk]

Sub deneyelim()
Sheets("Sayfa1").Select
Dim a, b, c, satirsay As Integer
satirsay = (WorksheetFunction.CountA(Range("a1:a65000")))
For a = 1 To satirsay Step 5
c = c + 1
For b = 0 To 4
Range(Cells(a + b, 1), Cells(a + b, 10)).Select
Selection.Copy
Sheets("Sayfa2").Select
If b = 0 Then
Cells(c, 1).Select
Call yapistir
ElseIf b = 1 Then
Cells(c, 11).Select
Call yapistir
ElseIf b = 2 Then
Cells(c, 21).Select
Call yapistir
ElseIf b = 3 Then
Cells(c, 31).Select
Call yapistir
ElseIf b = 4 Then
Cells(c, 41).Select
Call yapistir
End If
Sheets("Sayfa1").Select
Next b
Next a
End Sub
Sub yapistir()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Sayfa2 açmayı unutma )))

 

[cstberat]

tcenk çok teşekkürler
çalışıyor.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak formüllü çözüm için ekteki örnek dosyayı incelermisiniz.

Çalışmanıza boş bir sayfa ekleyin. A1 hücresine aşağıdaki formülü uygulayın. İhtiyacınız kadar sağa ve alt hücrelere sürükleyin.

=KAYDIR(Sayfa1!$A$1;TAMSAYI(SÜTUNSAY($A$1:A1)/11+SATIRSAY(A$1:A1)*5-4)-1;EĞER(MOD(SÜTUN();11)=0;MOD(SÜTUN();11);MOD(SÜTUN();11)-1);;)

 

[cstberat]

Sayın Korhan a sütunundaki değerleri çift atıyor.
örneğin ad soyadı iki defa yakaladı. Formül için teşekkürler.
tcenk'in çözümü sorunsuz çalışmakta.