Makronun tersi....

[enteresan]

Hayırlı akşamlar,
aşağıdaki linkte Sayın Korhan AYHAN hocama ait çok güzel bir kod var ve bana bunun tersi işlemi yapan kod gerekiyor. Oraya da yazdım ama sanırım Korhan hocam görmedi. Bu linkteki kodun tersi işlemini yapabilecek bir kod yazabilirmiyiz.
Korhan hocamın yaptığı makro belirli bir sütun ve belirli bir satırda bulunan hücreleri tek sütunda alt alta yazdırmakta, benim istediğim ise alt alta yazılı olan hücreleri belirli bir aralıktaki satır ve sütunlar arasına yerleştirmek. Yani A1 ile A50 arasında bulunan sayıları C1 ile K20 arasındaki hücrelere sırasıyla yazdırmak istiyorum. (Bittiği yerde boşluk kalabilir)
Yardımcı olursanız sevinirim. Saygılarımla...

http://www.excel.web.tr/f50/yanyana-olan-sayylary-alt-alta-syralama-t98981.html

 

[apocalyt]

meraba..şu kodu denermisiniz..c1 ile k sütünu arasında verilerinizi gittiği satıra kadar dizicektir.

Sub deneme()
Dim x As Long, y As Byte, k As Byte

y = 1
k = 3
For x = 1 To Range("a10000").End(3).Row
Cells(y, k) = Cells(x, 1)
k = k + 1
If k > 11 Then
y = y + 1
k = 3
End If

Next x

End Sub

 

[enteresan]

meraba..şu kodu denermisiniz..c1 ile k sütünu arasında verilerinizi gittiği satıra kadar dizicektir.

Sub deneme()
Dim x As Long, y As Byte, k As Byte

y = 1
k = 3
For x = 1 To Range("a10000").End(3).Row
Cells(y, k) = Cells(x, 1)
k = k + 1
If k > 11 Then
y = y + 1
k = 3
End If

Next x

End Sub

Sayın apocalyt
çok teşekkür ederim...