Excel deki Karisik Dataları Kişi Kişi Satırlara yazmak

[otobus]

Degerli Üyeler

Aşağıdaki excel dosyasındaki karisil dataları (A ham durum)
B sayfasındaki formata getirmek istiyorum (B istenen durum)

Yardımı gececeklere simdiden tesekkurler

Örnek verdiğim datalar toplam datanın kucuk bir kısmı

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırın.

Option Explicit
 
Sub Düzenle()
Dim i, sat As Long, S1, S2 As Worksheet
Set S1 = Sheets("A ham durum")
Set S2 = Sheets("B istenen durum")
Application.ScreenUpdating = False
S2.Range("A2:I65536").ClearContents
sat = 1
    For i = 1 To S1.[A65536].End(3).Row Step 5
        sat = sat + 1
        S2.Cells(sat, "a") = S1.Cells(i, "a")
        S2.Cells(sat, "b") = Split(S1.Cells(i, "a"), "(")(0)
        S2.Cells(sat, "c") = Split(Split(S1.Cells(i, "a"), "(")(1), ")")(0)
        S2.Cells(sat, "d") = S1.Cells(i + 1, "b")
        S2.Cells(sat, "h") = S1.Cells(i + 3, "b")
        S2.Cells(sat, "ı") = S1.Cells(i + 4, "b")
        S2.Cells(sat, "e") = S1.Cells(i + 1, "d")
        S2.Cells(sat, "f") = S1.Cells(i + 2, "b")
        S2.Cells(sat, "g") = S1.Cells(i + 2, "d")
    Next i
S2.Columns("A:I").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

.

 

[otobus]

Üstad
bu mudur
budur
cok tesekkurler eline sağlık

 

[hamzasaricicek]

Güzel çalışma ömer hocam ellerinize sağlık..