Tabloyu Ardışık Tek Satıra Yazma

[AnavarzA]

Arkadaşlar görselde sarı tablodaki notları kırmızı satırdaki gibi sıralamak istiyorum. Bunun kolay bir yolu var mı?

 

[tugkan]

Tablonuz 2 sütun mu ve aşağıya kadar kaç satır iniyor?

 

[tugkan]

Hücrelerin B100'e kadar olduğunu varsaydım. Farklı bir durum varsa kodu güncelleyebilir veya tekrar mesaj yazabilirsiniz.
İstediğiniz işlemi gerçekleştirecek basit bir VBA makrosu aşağıdaki gibidir. Bu makro, Excel'deki B2 ve C2 hücrelerinden başlayarak, B100 ve C100'e kadar olan sayıları G2 hücresinden itibaren yan yana yerleştirir:

1. Alt + F11 tuşlarına basarak VBA editörünü açın.
2. "Insert" menüsünden "Module" seçeneğini seçerek yeni bir modül ekleyin.
3. Aşağıdaki kodu kopyalayıp modüle yapıştırın:

Sub YanYanaYaz()
    Dim i As Integer
    Dim hedefSutun As Integer
    hedefSutun = 7 ' G sütunu için

    For i = 2 To 100
        Cells(2, hedefSutun).Value = Cells(i, 2).Value ' B sütunundaki değeri G sütununa aktar
        Cells(2, hedefSutun + 1).Value = Cells(i, 3).Value ' C sütunundaki değeri bir sonraki hücreye aktar
        hedefSutun = hedefSutun + 2 ' Bir sonraki çift hücreye geç
    Next i
End Sub

Bu kodu çalıştırdığınızda, B2 ve C2 hücrelerinden B100 ve C100'e kadar olan sayılar, G2 hücresinden başlayarak yan yana dizilecektir.