Satırı Sütuna Çevirme

[steppe]

B sütununda örnekteki gibi 100'lerce veri var.Bu verileri örnekteki gibi satırı sütuna nasıl çevirebilirim.Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Sub Duzenle()
 
'27.10.2013 Necdet YEŞERTENER
    Dim i   As Long, _
        j   As Long
 
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, "B").End(3).Row Step 2
        Cells(i - 1, "C") = Cells(i, "B")
        Range("B" & i).ClearContents
    Next i
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlandı....", vbInformation
 
End Sub

 

[steppe]

Necdet Hocam,
İlgin için teşekkür ederim.Örneği inceleyebilirseniz,isimlerin sağındaki c1,c3,c5,c7...hücrelerine şehirlerin gelmesini istemiştim.B2,B4,B6,B8.... hücreleri boş kalacak

B1 Ali
B2 İstanbul
B3 Mehmet
B4 Ankara
B5 Kemal
B6 İzmir
B7 Nesrin
B8 Bursa

şeklindeki verilerin

B1-Ali C1-İstanbul

B3-Mehmet C3-Ankara

B5-Kemal C5-İzmir

B7-Nesrin C7-Bursa

şeklinde olmasını istemiştim

 

[gulvadi]

Sub sutunucevir()
Dim i As Integer
For i = 1 To Cells(Rows.Count, "B").End(3).Row
If i Mod 2 = 0 Then
Cells(i - 1, 3).Value = Cells(i, 2)
Cells(i, 2) = ""
Else
End If
Next i
End Sub

 

[Necdet]

Boş kalacakmış ve yanına yazılacakmış. Ben yanlış anlamışım.

Eeee karmaşık anlatılınca sıralar karıştı tabi. Halbuki örnekteki iller isimlerin karışısına gelecek ve il silinecek deseniz anlaşılması daha hızlı olurdu.

Kodları tekrar düzelttim.

 

[steppe]

Gulvadi ve Necdet Bey,
Yardımlarınız için her ikinize de çok teşekkür ederim.

 

[baydeniro]

Paylaşım için çok teşekkürler.

 

[gulvadi]

Rica ederim, Çalışmalerında başarılar dilerim

 

[steppe]

A sütununda A1 den A500 kadar sıralı alt alta 100'lerce veri var.Bu verileri A1-B1-C1-D1-E1 şeklinde 5'şer 5'şer alt alta nasıl sıralayabilirim.

 

[Muhammet Okumuş]

Merhaba,

Sub Kopya()
Application.ScreenUpdating = False
If Range("A1") = "" Then Columns(1).Delete
Columns(1).Insert
sat = Cells(Rows.Count, "B").End(3).Row
For i = 1 To sat
son = Cells(Rows.Count, "A").End(3).Row + 1
Range(Cells(i, 2), Cells(i, 6)).Copy
Cells(son, 1).PasteSpecial (xlPasteValues), Transpose:=True
Next
Application.CutCopyMode = False
Range("A1").Select

End Sub

Kodu deneyiniz.

 

[Necdet]

A sütununda A1 den A500 kadar sıralı alt alta 100'lerce veri var.Bu verileri A1-B1-C1-D1-E1 şeklinde 5'şer 5'şer alt alta nasıl sıralayabilirim.

Merhaba,

Lütfen her değişik soru için ayrı bir konu açınız.