makro ile sayfadan sayfaya veri aktarma

[Mesafe]

Merhaba,
bir sayfadaki verilerin bazı kolonlarını sıraları değişik olarak başka bir sayfaya aktarmak istiyorum

 

[askm]

Aşağıdaki kodu deneyin.

Sub ekle()
Dim s1, s2, s3 As Worksheet
Dim sonhucre, son As Long
    Set s1 = Sheets("giris")
    Set s2 = Sheets("rapor")
    
    s2.Cells.ClearContents
    s2.Cells(1, 1).Value = "ID No"
    s2.Cells(1, 2) = "T.C. Kimlik No"
    s2.Cells(1, 3) = "Adı Soyadı"
    s2.Cells(1, 4) = "Görevi"
    s2.Cells(1, 5) = "ürün1"
    s2.Cells(1, 6) = "ürün2"
    s2.Rows(1).Font.Bold = True
    
sonhucre = s1.Range("A65536").End(xlUp).Row



For i = 2 To sonhucre
son = s2.Cells(Rows.Count, "A").End(3).Row + 1
    s2.Cells(son, 1) = s1.Cells(i, 4) 'ID
    s2.Cells(son, 2) = s1.Cells(i, 2)  'T.C.
    s2.Cells(son, 3) = s1.Cells(i, 1)  'Adı
    s2.Cells(son, 4) = s1.Cells(i, 3)  'Görevi
    s2.Cells(son, 5) = s1.Cells(i, 7)  'ürün1
    s2.Cells(son, 6) = s1.Cells(i, 6)  'ürün2
    
Next i
    

End Sub

 

[Mesafe]

teşekkürler

 

[excell_28]

Veri aktarımını farklı dosyalardaki sayfalara nasıl aktarabiliriz
Kapalı dosyadaki bir sayfaya veri aktarabilir miyiz?

 

[askm]

Örnek excel dosyalarınızı eklerseniz bakmaya çalışırız. Ado ile veya makro ile.