Veri aktarmada Hata

[takirti]

Ekteki örnekte sayfa2 den sayfa1e veri aktarmaya çalışıyorum. Fakat hata veriyor. Deneme yanılma yoluyla yapmaya çalıştığım için çözemedim. bu konuda yardım bekliyorum. Şifre 1'dir.

 

[takirti]

eklemeyi unutmusum

 

[Orion1]

Ekteki kodları kullanın.

Sub AKTAR()
    Dim k As Range
    Dim S1, S2 As Worksheet
    Dim X As Long
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    For X = 2 To 1500
    On Error GoTo Devam
    Set k = S1.[B:B].Find(What:=S2.Cells(X, 2), LookIn:=xlValues, LookAt:=xlWhole)
    If Not k Is Nothing Then
        S1.Cells(k.Row, 3) = S2.Cells(X, 3)
        S1.Cells(k.Row, 4) = S2.Cells(X, 5)
        S1.Cells(k.Row, 5) = S2.Cells(X, 4)
        S1.Cells(k.Row, 6) = S2.Cells(X, 6)
        S1.Cells(k.Row, 7) = S2.Cells(X, 8)
        S1.Cells(k.Row, 8) = S2.Cells(X, 9)
        S1.Cells(k.Row, 9) = S2.Cells(X, 10)
    End If
Devam: Next
    Set S1 = Nothing
    Set S2 = Nothing
 End Sub

 

[takirti]

Verdiğiniz Kod çok işime yaradı. Yardımlarınız için teşekkür ederim.

Birde veri gelmeyen yerlerin silinmesini istiyorum.
bu konuda bi makro örneği buldum ama tam işimi görmedi aslında.
başka bir formül düşünülebilinir mi acaba?

 

[eedtr]

sn Gizlen 2.sayfada aynı olan verileri toplayarak aktarabilirmi?