Excelde Satır içeriğindeki birden fazla veriyi ayırma

[İBRAHİMKKS]

Merhaba

Excelde 2 sayfam var 1. sayfada gelen fatura içeriğinde satır içerisindeki birden fazla şase numarası,motor numarası ve markayı 2. sayfada ayırarak rapor haline getirmek istiyorum.(sayfa 2 de hangi sütün nereye geleceğini belirttim.)Böyle bir çalışmayı formülle veya Makro ile yapılabilir mi?

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[İBRAHİMKKS]

Merhaba

Emeğinize teşekkür ederim ilave olarak yıl bilgisinide tabloya getirebilirmiyiz.

 

[dEdE]

Merhaba,
Yıl bilgisinden kastınız, Tablo sayfası G sütunundaki Model yılı ise koddaki; sat = sat + 1 satırından önce s2.Cells(sat, 15) = S1.Cells(i, 7) satırını ekleyiniz.

 

[İBRAHİMKKS]

Çok tşk ederim Uyguladım ve oldu

 

[dEdE]

Merhaba,
Özet sayfanızın daha düzenli olması için koda ek yaptım.
Dener misiniz?

Sub Rapor()
Set s1 = Sheets("TABLO")
Set s2 = Sheets("ÖZET")
sat = 2
s2.Range("A2:N" & s2.Rows.Count).ClearContents
For i = 2 To s1.Cells(Rows.Count, "B").End(3).Row
    sase = Split(s1.Cells(i, 4).Value, " ")
    moto = Split(s1.Cells(i, 5).Value, "//")
    For j = LBound(sase) To UBound(sase)
        s2.Cells(sat, 1) = s1.Cells(i, 3)
        s2.Cells(sat, 2) = s1.Cells(i, 11)
        s2.Cells(sat, 4) = sase(j)
        s2.Cells(sat, 6) = s1.Cells(i, 6)
        s2.Cells(sat, 14) = moto(j)
        s2.Cells(sat, 15) = s1.Cells(i, 7)
        sat = sat + 1
    Next j
Next i
For i = 2 To s2.Cells(Rows.Count, "N").End(xlUp).Row
    s2.Cells(i, "N") = Replace(s2.Cells(i, "N"), Chr(10), " ")
Next i
    Set Rng = s2.Range("N2:N" & s2.Cells(Rows.Count, "N").End(3).Row)
    For Each Cell In Rng
        Cell.Value = Trim(Cell)
    Next Cell
    Cells.EntireRow.AutoFit
    Cells.EntireColumn.AutoFit
MsgBox "Rapor Hazırlandı.", vbInformation, "BİLGİ"
End Sub

 

[İBRAHİMKKS]

Çok tşkler dahada iyi oldu elinize sağlık