Birden çok satırdaki verileri tek bir sütunda göstermek

[lejivaro]

Verilerim A1 den başlayıp G20 de bitmektedir. 20 satır ve 7 sütunlu veri. Yapmak istediğim verilerin A1 den başlayıp G20 ye kadar tek sütunda göstermektir. Yani önce A sütunu sonra B sütunu..... ve G sütunu alt alta olacak şekilde.
Kopyala yapıştır vb. önermezseniz seviniri. bunun gibi yapmam gereken çok fazla dosya var ve kopyala yapıştır ile tek tek uğraşmak istemiyorum.
Yardımcı olursanız sevinirim teşekkürler

 

[Ahmet ÖZGÜR]

Merhaba,

Örnek dosya eklerseniz daha hızlı çözüme ulaşırsınız.

 

[vardar07]

Merhaba. Öncelikle hoş geldiniz. Ahmet Özgür beyin yazdığı gibi konularınızı dosya ile desteklerseniz daha çok ilgi çeker ve hızlı cevap alma şansınız olur. Makro ile çözüm isterseniz aşağıdaki kodu kullanabilirsiniz.Kırmızı ile belirtilen yerleri kendi dosyanıza göre düzenleyiniz.

Sub aktar()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa2") '[COLOR="Red"]verilerin olduğu sayfa adı[/COLOR]
Set s2 = Sheets("Sayfa3") '[COLOR="red"]Verilerin listeleneceği sayfa[/COLOR]
a = 1
For k = 1 To 7
For i = 1 To 20
s2.Cells(a, 1) = s1.Cells(i, k)
a = a + 1
Next i
Next k
End Sub

 

[bzace]

Merhabalar,
Formül ile alternatif;

=İNDİS(A$1:G$20;MOD(SATIR(A1)-1;20)+1;NSAT((SATIR(A1)-1)/20)+1)

Daxe Syán