Ham Veri Düzenleme Makrosu

[yasin85]

Herkese Merhaba,

Ham verimiz mevcut bu veriyi düzenli bir hale gelmesi için makro ihtiyacımız vardır.

HAM_VERI sayfasındaki verilerin DATA sayfasındaki dosyadaki örnekte bulunan sıraya göre düzenlemeye ihtiyacımız vardır.

Yardımlarınızı bekliyoruz.

https://s6.dosya.tc/server2/3a9tfe/HAM_VERI.xlsx.html

 

[veyselemre]

Sub duzenle()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim sat&, sut&, satData&
    Set s1 = Sheets("HAM_VERI")
    Set s2 = Sheets("DATA")
    satData = 2
    s2.Range("A2:C" & Rows.Count).ClearContents
    For sut = 1 To s1.Cells(1, 1).End(xlToRight).Column Step 2
        For sat = 2 To s1.Cells(1, sut).End(xlDown).Row
            s2.Cells(satData, 1).Value = s1.Cells(1, sut).Value
            s2.Cells(satData, 2).Value = s1.Cells(sat, sut).Value
            s2.Cells(satData, 3).Value = s1.Cells(sat, sut + 1).Value
            satData = satData + 1
        Next sat
    Next sut
End Sub

 

[yasin85]

Sn. @veyselemre Bey,

Desteğiniz için çok teşekkür ederiz.