veri aktarma

[arifbirgen]

Değerli arkadaşlar
örnekte veri aktarımı ile ilgili açıklama var.
Yardımcı olursanız sevinirim.

 

[mustafateknetas]

ekli dosyayı inceleyiniz.
beni takip et formatında bir makro ekledim. işinizi görür.

 

[N.Ziya Hiçdurmaz]

yanıt

Alternatif

Sub aktar()
Dim s2 As Worksheet
Dim sat, s As Integer
Set s2 = Sheets("Sayfa2")
s = 8
    For sat = Cells(65536, "a").End(xlUp).Row To 5 Step -1
        If Cells(sat, "a") <> "" Then
            Range(Cells(sat, "b"), Cells(sat, "d")).Copy
            s2.Cells(s, "b").PasteSpecial
            s = s + 1
        End If
        If Cells(sat, "a") <> "" Then
            Cells(sat, "b").EntireRow.Delete shift:=xlUp
        End If
    Next
End Sub

 

[arifbirgen]

Değerli arkadaşlar

Hocalarım daha önce yardımcı oldular.
Veri aktarma ile ilgili yine yardımlarınızı
bekliyorum.Sayfa1'deki sçiçim numaralarına göre
Sayfa2' deki aynı numaralı satırlara verilerin
aktarılmasını istiyorum.Yardımcı olursanız sevinirim.