sütunları satıra çevirme?

Katılım
12 Aralık 2005
Mesajlar
11
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
B1 'e şu formülü girin.=A2
Diğerlerini sizi girin.:cool:
 
Katılım
12 Aralık 2005
Mesajlar
11
6000 satırdan fazla dan bahsediyorum korkarım ama o mümkün değil
 
Katılım
12 Aralık 2005
Mesajlar
11
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
Kod:
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
 
Son düzenleme:
Katılım
25 Nisan 2007
Mesajlar
459
Excel Vers. ve Dili
2007
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
 
Son düzenleme:
Üst