Karışık Verileri Düzgün şekilde aktarma

[umit1907]

Merhabalar,

Logonun siitesinden çekmiş olduğum verileri liste şeklinde düzenlemek istiyorum ama bun makro ile hızlı bir şekilde yapabilirmiyim veya formülmü kullanmam gereklidir. ekteki örnek gibi en az 5.000 tane fatura oluyor aylık yardımlarınız için şimdiden teşekkürler.

 

[ÖmerFaruk]

Verdiğiniz örnek dosyada uygulanmak üzere, modül içine yerleştirip Sayfa1 aktifken çalıştırın
Edit. Dosyanızı da ekledim

Sub LogoListesi()
Dim Liste(), Veri As Variant
Son = Range("A" & Rows.Count).End(3).Row
Veri = Range("A4:I" & Son).Value
ReDim Liste(1 To UBound(Veri, 1), 1 To 7)
xx = UBound(Veri, 1)
For i = 1 To UBound(Veri, 1) Step 3
    x = x + 1
    Liste(x, 1) = Veri(i, 1)
    Liste(x, 2) = Veri(i + 1, 1)
    Liste(x, 3) = Veri(i + 2, 1)
    Liste(x, 4) = Veri(i, 5)
    Liste(x, 5) = Replace(Veri(i + 1, 7), " TRY", "") * 1
    Liste(x, 6) = Replace(Veri(i, 7), " TRY", "") * 1
    Liste(x, 7) = Replace(Veri(i, 9), " TRY", "") * 1
Next i
Sheets("İSTENİLEN").Range("A2:XFD" & Rows.Count).Clear
Sheets("İSTENİLEN").Range("A2").Resize(x, 7) = Liste

Sheets("İSTENİLEN").Range("A:C").HorizontalAlignment = 2
Sheets("İSTENİLEN").Range("D:D").HorizontalAlignment = 3
Sheets("İSTENİLEN").Range("E:G").HorizontalAlignment = 1
Sheets("İSTENİLEN").Range("A:G").VerticalAlignment = 2
Sheets("İSTENİLEN").Range("A:D").InsertIndent 1
Sheets("İSTENİLEN").Range("A:C").NumberFormat = "@"
Sheets("İSTENİLEN").Range("D:D").NumberFormat = "dd.mm.yyyy"
Sheets("İSTENİLEN").Range("E:G").NumberFormat = "#,##0.00"
Sheets("İSTENİLEN").Range("A:G").EntireColumn.AutoFit
For i = 1 To 7
    Sheets("İSTENİLEN").Columns(i).ColumnWidth = Sheets("İSTENİLEN").Columns(i).ColumnWidth + 1
Next i
End Sub

 

[Levent Menteşoğlu]

Merhabalar,

Logonun siitesinden çekmiş olduğum verileri liste şeklinde düzenlemek istiyorum ama bun makro ile hızlı bir şekilde yapabilirmiyim veya formülmü kullanmam gereklidir. ekteki örnek gibi en az 5.000 tane fatura oluyor aylık yardımlarınız için şimdiden teşekkürler.

Dosyanız ektedir.

 

[umit1907]

Eline sağlık abi.

 

[umit1907]

İkisideoldu Elinize sağlık abiler.