Ham Veri Düzenleme Makrosu

yasin85

Altın Üye
Katılım
29 Haziran 2011
Mesajlar
256
Excel Vers. ve Dili
2019, Türkçe
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
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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

Altın Üye
Katılım
29 Haziran 2011
Mesajlar
256
Excel Vers. ve Dili
2019, Türkçe
Sn. @veyselemre Bey,

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