Satırdaki verileri belli bir sistemde sütuna çevirme

[sympathic]

şöyle bi listem var ve ben onu şuna çevirmem gerekli. Yardımcı olabilecek arkadaş var mıdır nedir bu işin yöntemi?

Dosya linki : http://s7.dosya.tc/server8/njno57/METRAJ.xls.html
ikinci dosya linki : http://s3.dosya.tc/server16/7zoztx/Sablon_Metraj.xls.html

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Oska II sayfasına verileri listeler.

Sub duzenle()

    Dim Sy As Worksheet, So As Worksheet, sat As Long, i As Long, j As Byte
    
    Set Sy = Sheets("Oska Yazılım")
    Set So = Sheets("Oska II ")
    
    Application.ScreenUpdating = False
    So.Range("A2:D" & Rows.Count).Clear
    
    sat = 2
    For i = 8 To Sy.Cells(Rows.Count, "D").End(xlUp).Row
        For j = 7 To 10
            If Sy.Cells(i, j) <> "" Then
                So.Cells(sat, "A") = Sy.Cells(i, "D")
                So.Cells(sat, "B") = Sy.Cells(7, j)
                So.Cells(sat, "C") = Sy.Cells(i, "F")
                So.Cells(sat, "D") = Sy.Cells(i, j)
                sat = sat + 1
            End If
        Next j
    Next i
    
    So.Select
    Cells.EntireColumn.AutoFit
 
End Sub

 

[sympathic]

Gerçekten harika büyük dertten kurtardınız Çok teşekkür ederim