satırlarda yer alan verileri 7 sütuna altalta aktarmak

[htunali]

Merhaba,

Dosyada boşluklarla ayrılmış veri gruplarını sütuna aktarmak istiyorum. İlk 8 satır 8 sütuna aktarılıp (transpose edilip) diğer gruplarda 8 sütundan oluşan ilk satır altına aynı şekilde aktarılmalı. Tüm sheeti bu şekilde sorgulayıp aktarmak istiyorum.Yardımcıolabilir misiniz nasıl bir makro yazmalıyım.

Soru : üye olun mesajı neden alınır?
Cevap A : Bulunulan yerde sinyal olmayabilir.
Cevap B : programda tanımsızdır.
Cevap C : Ayarlar yapılmamıştır.
Cevap D :
Doğru Cevap : 2
Soru Tipi 1

 

[htunali]

acil yardım lütfen

Arkadaşlar bana yardım edebilecek biri var mı?

Acil yardıma ihtiyacım var.

Teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("sheet1")
Set s2 = Sheets("sheet2")
For a = 1 To [a65536].End(3).Row Step 8
sonsat = s2.[a65536].End(3).Row + 1
s1.Range("b" & a & ":b" & a + 6).Copy
s2.Cells(sonsat, "a").PasteSpecial , Transpose:=True
Next
Application.CutCopyMode = False
MsgBox "Veriler aktarıldı."
End Sub