Veri aktarma ile ilgili sorun...

[manly]

Gönderdiğim dosya ile ilgili yardımcı olur musunuz?

Gerekli açıklamayı içerisinde yazdım. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, BUL As Range
    
    Set S1 = Sheets("BURAYI")
    Set S2 = Sheets("BURAYA KOPYALA")
    
    S2.Range("O2:AB65536").Clear
    
    For X = 2 To S1.Range("D65536").End(3).Row
        Set BUL = S2.Range("F:F").Find(S1.Cells(X, "D"), LookAt:=xlWhole)
        If Not BUL Is Nothing Then
            S1.Range("A" & X & ":N" & X).Copy BUL.Offset(0, 9)
        End If
    Next
    
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[manly]

Korhan hocam,

Bu kodu butona tanımladım. Hiç bir şey olmadı. Bir hata mı yaptım acaba..

 

[manly]

Bu kodu tam olarak nereye eklemem gerekiyor...

 

[Korhan Ayhan]

Selamlar,

Kodu boş bir modüle ekledikten sonra butona tanımlayın. Kod içindeki sayfa isimleri ile dosyanızdaki sayfa isimleri ve sütunlar aynı formatta ise kod çalışacaktır.

 

[manly]

Kodu boş bir modüle ekledim. Daha sonra butona bunu tanımladım ve oldu. Çok teşekkürler....

"Private Sub CommandButton1_Click()
AKTAR
End Sub"