sütunları satıra çevirme?

[KaRaaLP]

merhaba

benim sorum

a1
a2
a3
a4
a5 ..... sütunlarındakileri
a1 b1 c1 d1 e1 satırlarına almak istiyorum.

bunu nasıl yapa bilirim.
ilginize şimdidne teşekkür ederim

 

[Orion1]

Merhaba.
B1 'e şu formülü girin.=A2
Diğerlerini sizi girin.

 

[KaRaaLP]

6000 satırdan fazla dan bahsediyorum korkarım ama o mümkün değil

 

[Ali]

6000 satırdan fazla dan bahsediyorum korkarım ama o mümkün değil

6000 satırı sütuna çevirdiğinizde 256 sütuna nasıl sığacak.

 

[KaRaaLP]

evet biliyorum
6000 sütunun tamanı satıra çevirmeyeceğimalt alta 17 satırı yanyana yapmak istiyorum
yani ilk 17 satır a b c d...... diye gidecek
sondan sonraki 17 yediler de a b c. d diyte devam eecek
umarım anlata bilmişimdir.

 

[Orion1]

Merhaba.
Aşağıdaki kodları bir modüle kopyalayıp çalıştırınız.
Baştan B-C-D-E-F sütunlarına sıralıyor.İşlem bitincede A sütununu siliyor.Böylece işlem gerçekleşiyor.
İyi çalışmalar.

Sub satirlara_listele()
Dim i As Long, sat As Long, satirsat As Long, sut As Byte
If MsgBox("Sütunlar Satırlara listelencek Listelemek İstiyormusunuz.?", vbYesNo) _
= vbNo Then Exit Sub
Range("B2:F65536").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
satirsat = 1
sut = 2
For i = 1 To sat
        Cells(satirsat, sut).Value = Cells(i, "A").Value
        If sut = 6 Then
            satirsat = satirsat + 1: sut = 2
        Else
            sut = sut + 1
        End If
Next i
Columns("A:A").Delete Shift:=xlToLeft
MsgBox "İşlem Tamam", vbOKOnly, Application.UserName
End Sub

 

[xxcell]

Aşağıdaki kodu yazıp çalıştırırsanız a sütununa girdiğiniz tüm satırları sütuna çevirir.
(örnek için a1:a6000 arasına 1 - 6000 serisini girip kodu deneyiniz )

Sub satiri_sutuna_cevir()

aktarilacak_satir = 1
aktarilacak_sutun = 2

For n = 2 To [a65536].End(3).Row
Cells(aktarilacak_satir, aktarilacak_sutun) = Cells(n, "a")
Cells(n,"a") = ""
aktarilacak_sutun = aktarilacak_sutun + 1
If aktarilacak_sutun > 256 Then
aktarilacak_sutun = 1
aktarilacak_satir = aktarilacak_satir + 1
End If
Next


End Sub