Satırı sütunlara çevirme

[steppe]

Forumda epeyce araştırdım örneğe uygun bulamadım.Örnekteki yüzlerce veriyi sütunlara nasıl dönüştürebilirim.

 

[suleyman242]

Forumda epeyce araştırdım örneğe uygun bulamadım.Örnekteki yüzlerce veriyi sütunlara nasıl dönüştürebilirim.

Böyle bir çalışma yaptım ama dosyayı incelermisin.

 

[steppe]

Teşekkür ederim iyi olmuş yalnız 4'er 4'er sütuna çeviriyor.Bir uyarı çıkıyor tamam deyince 4 satırı sütuna çeviriyor,tekrar uyarı çıkıyor tamam deyince bir 4 satır daha çeviriyor.
UYARI:Bu işlem birleştirilmiş hücrelerin bazılarının ayrılmasına neden olacaktır.Devam etmek istiyor musunuz?

 

[steppe]

Satırı sütuna çavirme

A1 deki veri A1'e
A2 deki veri B1'e
A3 deki veri C1'e
A4 deki veri A2'e
A5 deki veri B2'e
A6 deki veri C2'e gelecek şekilde sıralama

A sütununda aynı şekilde sıralanmış (ad ,şehir ve doğum yılı) olarak alt alta sıralanmış bir çok veri var.Bunları alt alta A,B,C sütunlarına nasıl sıralayalabilirim.Yardımlarınız için şimdiden teşekkürler.

 

[monelogg]

Merhaba, alternatif olarak şu kodları dener misiniz? Umarım işinizi görür.

Sub trns()
For i = 1 To [a65536].End(xlUp).Row
For j = 1 To [a65536].End(xlUp).Row
Range("A" & j & ":" & "C" & j) = Application.WorksheetFunction.Transpose(Range("A" & i & ":" & "A" & i + 3))
i = i + 3
Next
Next
End Sub

 

[steppe]

A sütununda aynı şekilde sıralanmış (ad ,şehir ) C sütununda aynı şekilde sıralanmış (doğum yılı,adres,telefon ) olarak alt alta sıralanmış bir çok veri var.Bunları alt alta A,B,C ,D,E sütunlarına nasıl sıralayalabilirim.

 

[monelogg]

Merhaba, şu kodları dener misiniz?

Sub trns()
For i = 1 To [a65536].End(xlUp).Row
For j = 1 To [a65536].End(xlUp).Row
Range("A" & j & ":" & "B" & j) = Application.WorksheetFunction.Transpose(Range("A" & i & ":" & "A" & i + 1))
Range("C" & j & ":" & "E" & j) = Application.WorksheetFunction.Transpose(Range("C" & i & ":" & "C" & i + 2))
i = i + 3
Next
Next
End Sub

 

[steppe]

monelogg kardeş,
İlgin için çok teşekkür ederim.Eline,beynine sağlık.