Satırlar Sütuna

[Leoncio]

Merhaba;

Ekte yaklaşık 10.000 satırdan oluşan dosyamın taslak çalışması mevcut. 2 Sayfadan oluşuyor. Asıl çalışmamdaki verileri gereken sayfasına aldırmak istiyorum. Konu ile ilgili yardımlarınızı bekliyorum arkadaşlar.

 

[Ali]

Aşağıdaki kodları denermisiniz.

Sub aktar()
Dim k
sonsatir = Sheets("asıl çalışma").Range("B65536").End(xlUp).Row
k = 3
For i = 2 To sonsatir Step 6
Sheets("asıl çalışma").Range("B" & i, "B" & i + 5).Copy
Sheets("gereken").Range("A" & k, "F" & k).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
k = k + 1
Next
Application.CutCopyMode = False
End Sub

 

[kulomer46]

Dosyanız hazır

Dosyanız ektedir..

 

[Leoncio]

Arkadaşlar, işlem tamam. Teşekkürler.