A1:A50000 arasındaki verileri başka sayfaya aktarmak

[taszulkuf]

merhaba arkadaşlar, A1 ile A50000 deki sayıları başka bir exel sayfasına 10'ar sutunlar şeklinde yerleştirmek istiyorum bana yardım edebilirmisiniz.

yani
A1: 1
A2: 2
A3: 3
A4: 4
A5: 5
A6: 6
A7: 7
A8: 8
A9: 9
A10: 10
.................A50000 : 50000
Ben bu sayıları başka bir exel sayfasına şu şekilde yerleştirmek istiyorum
A1 B1 C1 D1 E1 F1 G1 H1
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 17 19 20
şimdiden yardımcı olan tüm arkadaşlara teşekkürler

 

[zaferline]

teorik olarak mümkün ancak excel 2003, 256 sütündan oluşuyor
A1-A256 düşey aralığını seçerek A1-IV1 yatay aralığına yapıştırabilirsin.

yöntem: önce bir satır ekle A2-A257 düşey aralığını kopyala A1 seçiliyken özel yapıştır, "işlemi tersine çevir"i seç, "tamam"ı tıkla.

daha fazla sütün için exel 2007'ye geçmen gerkiyor. excel 2007, 16384 sütündan oluşuyor. yine de senin 50 binlere çok var

 

[taszulkuf]

arkadaşım ben A1 ile A50000 sutununda bulunan sayıları, 10 arlı şekilde sayfalamak istiyorum bunun mümkün olduğunu düşünüyorum. ancak makrolayamıyorum. bunu bana macrolayan bir arkadaşım yok mu?

 

[Orion1]

Ekli dosyayı inceleyiniz.
Yalnız sizin dosyanızda 50000 veri olacağından dolayı makronun çalışması dağa uzun olacaktır.
10 arlı gruplayarak sayfa2'ye aktarıyor.

Sub grupla()
Dim i As Long, k As Byte
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:J65536").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row Step 10
    sat = sat + 1: sut = 1
    For k = i To i + 9
        Sheets("Sayfa2").Cells(sat, sut).Value = Cells(k, "A").Value
        sut = sut + 1
    Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[Skorpiyon]

Sayın taszulkuf,

Sorunuza bir alternatifte benden.

Sub Düğme1_Tıklat()
Sheets("Sayfa2").Select
Range("A1").Select
a = 1: b = 1: c = 1
ilk:
Cells(a, b).Value = Sheets("Sayfa1").Cells(c, 1).Value
If b = 10 Then
b = 1
a = a + 1
c = c + 1
Else
b = b + 1
c = c + 1
If Sheets("Sayfa1").Cells(c, 1).Value = "" Then GoTo dur
End If
GoTo ilk
dur:
MsgBox "İşlem Tamam"
End Sub