Alt alta yazılan verileri yanyana yazdırma (istediğim adette sütun)

[mimsami]

Merhabalar,

Elimde tek sütunda 500bin adet alt alta sıralanmış veri var. Bunları tek hamlede 75 er lik sütunlar halinde yanyana yazdırabilmem için nasıl bir yol izlemeliyim?

Teşekkürler.

 

[apocalyt]

verilerinizin a sütununda olduğu varsayılırsa aşağıdaki kodu bir modüle kopyalayıp dener misiniz ? verileriniz farklı bir sutundaysa
belirtiniz düzeltme yapalım..

Sub deneme()
Application.ScreenUpdating = False
y = 2
For x = 76 To [a600000].End(3).Row Step 75
Range("a" & x & ":" & "a" & x + 74).Copy
Columns.PasteSpecial
y = y + 1
Next x
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[mimsami]

O kodları yazan elleriniz dert görmesin.
Teşekkürler.

 

[apocalyt]

rica ederim..sizde saolun..

 

[hakantb]

sayın apocalyt
öncelikle size eteşekkür etmek istiyorum
5 ve daha büyük satırlar için yanyana yazılabiliyor. Ancak 4 ve daha küçük satırlar için yanyana yazılamıyor. Acaba neden?

 

[apocalyt]

sayın hakantb rica ederim..bildiğimce bişiler yapmaya çalışıyorum..ancak sizin sorunuzu tam anlıyamadım ??

 

[hakantb]

sayın apocalyt
Elimde tek sütunda 500bin adet alt alta sıralanmış veri var. Bunları tek hamlede 75 er lik sütunlar halinde yanyana yazdırabilmem için nasıl bir yol izlemeliyim? diye sormuş mimsami sizde çok güzel birşekilde cevap vermişsiniz.
benim sorduğum 75 lik sütunları 60 lık 50 lik 40 lık 30 luk .........7 lik 6 lık 5 lik yanyana yazdırılabilmektedir.Ancak 4 lük 3 lük 2 lik 1 lik yazdıramadığımı söylemek istemiştim. İnşallah anlatabilmişimdir. Bu arada bende bilgisayara yeni girebildim ilginize çok teşekkür ederim.