A sütunu dolu hücreye göre referans

[igultekin2000]

Merhaba;
Bazen alınan veriler düzensiz oluyor. Genelde bu şekilde gelen verileri düzenlemem gerekiyor. Bunun pratik yolunu arıyorum.
Şöyle ki; A sütununda tarih, B sütununda açıklama, C sütununda tutar ve D sütununda bakiye oluyor. B sütunundaki açıklamaları tek satır haline getirmek istiyorum. Teşekkür ederim.

 

[ÖmerFaruk]

Aşağıdaki Kodu sayfa 2 içindeyken çalıştırın.

Sub YeniTablo()
Dim Sh As Worksheet, i As Integer, k As Integer
    Set Sh = Sheets("Sayfa1")
    Son = Sh.Range("B" & Rows.Count).End(xlUp).Row
    Cells.Clear
    Sh.Range("A1:D1").Copy Range("A1")
    k = 1
    For i = 2 To Son
        If Sh.Cells(i, 1) <> "" Then
        k = k + 1
        Cells(k, 1) = Format(Sh.Cells(i, 1), "dd.mm.yyyy") 
        Cells(k, 2) = Trim(Sh.Cells(i, 2)) 'Olası gereksiz boşlukları kaldırdım
        Cells(k, 3) = Replace(Sh.Cells(i, 3), " TL", "") * 1 ' Metin formundaki ifadeden " TL" ifadesi çıkartıldı
        Cells(k, 4) = Replace(Sh.Cells(i, 4), " TL", "") * 1 ' Metin formundaki ifadeden " TL" ifadesi çıkartıldı
        Else
        Cells(k, 2) = Trim(Cells(k, 2) & " " & Sh.Cells(i, 2)) 'Olası gereksiz boşlukları kaldırdım
        End If
    Next i
    Range("A:D").Columns.AutoFit
    Range("A:A").NumberFormat = "dd.mm.yy" ' A sütunu Tarih formatına çevrildi
    Range("C:D").NumberFormat = "#,##0.00 TL" ' C-D sütunları sayı + para birimi formatı düzenlendi
    ' Kolonlarda hizlama ve genişlikler ayarlandı
    Range("A:A").HorizontalAlignment = xlCenter
    Range("C:D").HorizontalAlignment = xlLeft
    Range("C:D").HorizontalAlignment = xlRight
    Range("A:D").Columns.AutoFit
    For i = 1 To 4
        Columns(i).ColumnWidth = Columns(i).ColumnWidth + 2
    Next i
End Sub

 

[igultekin2000]

Teşekkür ederim. Sorunsuz çalışıyor ve dizaynı da güzel olmuş. İyi çalışmalar.

 

[ÖmerFaruk]

Eyvallah.