Çözüldü Uzun Sütunu yanyana bölme

[uselessjunk47]

Merhaba arkadaşlar.
Excel'e bir işim düştü, beceremeyince de size işim düştü yardımlarınız için şimdiden teşekkür ederim. Sorum şu:
Çok çok uzun tek bir sütunda verilerim var. Ve ben bu verileri 12 şer satırlık yanyana sütunlara bölmek istiyorum. Yani tek sütundaki (A sütunu) 1-12 satır kalsın, 13-24 yan sütuna (B sütunu) geçsin, 25-36 C sütununa , 37-48 D sütununa.... şeklinde. Sütun çok uzun olduğu ve bu işlemi 80 den fazla excel dosyasında yapmam gerektiği için kes yapıştır gibi işlemler bile angarya ve zaman alıcı işlemlere dönüşüyor. Bunun kolay bir yolu olduğuna inanmak istiyorum. yoksa sırt boyun ağrılarım iyice azacak.

Yardımcı olursanız çok teşekkür ederim. + Hayır duası
Saygılar...

 

[çıtır]

Verilerinizin A Sütunu 1.Satırdan başladığı varsayılmışdır.Deneyiniz.

Sub bolyaz()
For say = 1 To Worksheets.Count
son = Sheets(say).Cells(653000, "A").End(3).Row
uz = WorksheetFunction.RoundUp(son / 12, 0)
i = 1
For sut = 2 To uz + 1
For sat = 1 To 12
Sheets(say).Cells(sat, sut) = Sheets(say).Cells(i, 1)
i = i + 1
Next sat
Next sut
Next say
End Sub

 

[Korhan Ayhan]

Çok uzundan kastınız veriniz 196.608 satırı geçiyorsa excelin sütunları size yetmeyecektir. Farklı bir çözüm yolu düşünmeniz gerekebilir.

 

[uselessjunk47]

@çıtır Evet tam da istediğim şeyi yapan makroyu yazmışsınız. Beni büyük bi angaryadan kurtardınız. Tüm samimiyetimle teşekkür ediyorum size. + Hayır duanızı da nacizane ettim, inşallah kabul olur

@Korhan Ayhan Yaklaşık 48.000 satır var her excelde. Çıtır isimli kullanıcı yardımcı oldu. Size de ilginiz için teşekkür ederim.

 

[çıtır]

@çıtır Evet tam da istediğim şeyi yapan makroyu yazmışsınız. Beni büyük bi angaryadan kurtardınız. Tüm samimiyetimle teşekkür ediyorum size. + Hayır duanızı da nacizane ettim, inşallah kabul olur

@Korhan Ayhan Yaklaşık 48.000 satır var her excelde. Çıtır isimli kullanıcı yardımcı oldu. Size de ilginiz için teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[niloo]

Verilerinizin A Sütunu 1.Satırdan başladığı varsayılmışdır.Deneyiniz.

Sub bolyaz()
For say = 1 To Worksheets.Count
son = Sheets(say).Cells(653000, "A").End(3).Row
uz = WorksheetFunction.RoundUp(son / 12, 0)
i = 1
For sut = 2 To uz + 1
For sat = 1 To 12
Sheets(say).Cells(sat, sut) = Sheets(say).Cells(i, 1)
i = i + 1
Next sat
Next sut
Next say
End Sub

merhaba, bende de aynı sorun var ve ben yapamadım. benim A sütununda 7885 satır var. ben bunları 66 satırlık olacak şekilde 120 sütuna bölmek istiyorum. yardımınıza çok ihtiyacım var. saygılarımla.

 

[çıtır]

12 olan rakamları 66 yapınız.
uz = WorksheetFunction.RoundUp(son / 66, 0)
For sat = 1 To 66

 

[niloo]

12 olan rakamları 66 yapınız.
uz = WorksheetFunction.RoundUp(son / 66, 0)
For sat = 1 To 66

onu size yazmadan önce denedim fakat şu uyarıyı verdi "run-time error 210042: application-defined or object-defined error

 

[çıtır]

Sayfa ismini sayfanıza göre düzenleyiniz.

Sub bolyaz()
son = Sheets("Sayfa1").Cells(653000, "A").End(3).Row
uz = WorksheetFunction.RoundUp(son / 66, 0)
i = 1
For sut = 2 To uz + 1
For sat = 1 To 66
Sheets("Sayfa1").Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
i = i + 1
Next sat
Next sut
End Sub

 

[niloo]

Sayfa ismini sayfanıza göre düzenleyiniz.

Sub bolyaz()
son = Sheets("Sayfa1").Cells(653000, "A").End(3).Row
uz = WorksheetFunction.RoundUp(son / 66, 0)
i = 1
For sut = 2 To uz + 1
For sat = 1 To 66
Sheets("Sayfa1").Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
i = i + 1
Next sat
Next sut
End Sub

şimdide bu uyarıyı verdi : run-time error 9. Subscript our range

 

[niloo]

şimdide bu uyarıyı verdi : run-time error 9. Subscript our range

kusura bakmayın benim sayfa adım sayfa1 olmadığı için olmamış. şimdi oldu çok ama çok teşekkür ederim.
Allah razı olsun @çıtır

 

[çıtır]

kusura bakmayın benim sayfa adım sayfa1 olmadığı için olmamış. şimdi oldu çok ama çok teşekkür ederim.
Allah razı olsun @çıtır

Estağfurullah.Rica ederim.Dönüş yaptığınız için teşekkür ederim.Allah(C.C.) Cümlemizden razı olsun.

 

[sankara]

makro kullanıldığımız zaman satır sayısını direk kopyalıyor içeriğini kopyalamıyor ve araya 4'er sütun koyarak yapıştırmak istiyorum.

For sut = 4 To uz + 1

olarak güncelledik ancak "i" değerini ve içeriğini nasıl alabileceğimizi bulamadık

 

[ferhan.ozturk]

Merhaba, yazdığınız kodu belirli sayılara göre değil de sütunlar içinde yer alan belirli isimlere göre ayırabilir miyiz? Örneğin, elimdeki veri listesinde X ve Y sütunlarında veri noktaları yer almakta ve her bir serinin başında X ve bir isim yer almakta. Her dizinin başında bulunan X satırından bir sonraki X satırına kadar olan kısımları ayrı ayrı kaydedebilir miyiz?

 

[ferhan.ozturk]

https://hizliresim.com/XjpVjL

 

[Korhan Ayhan]

Resim yerine örnek dosya paylaşırsanız çözüm üretecek kişilere kolaylık sağlamış olursunuz.

Dosyanızda veri bu şekilde ben bu şekilde olmasını rica ediyorum şeklinde örneklendirirseniz daha hızlı yanıt alabilirsiniz.

 

[ferhan.ozturk]

Merhaba, yazdığınız kodu belirli sayılara göre değil de sütunlar içinde yer alan belirli isimlere göre ayırabilir miyiz? Örneğin, elimdeki veri listesinde X ve Y sütunlarında veri noktaları yer almakta ve her bir serinin başında X ve bir isim yer almakta. Her dizinin başında bulunan X satırından bir sonraki X satırına kadar olan kısımları ayrı ayrı kaydedebilir miyiz?

Dosya aşağıdaki linktedir.

https://drive.google.com/file/d/1zhI3hv8jRMkyCJ5RQIIoVeO8MGpyf5LC/view?usp=sharing

 

[cenqawer]

Merhaba yukarıdaki işlemin yanyana yerine yeni safya açarak yapan bir makro varmı.