Kitaptan kitaba veri kopyalama. İki kitapta açık.

[simetri.]

Merhabalar,

"Yeni" isimli ekteki açıklamam aşağıdaki gibidir.

Kod hususunda uzmanlaşmış değerli arkadaşların yardımlarını bekliyorum.

"B4" ten itibaren listelenen ay isimleri, her iki kitaptada sayfa isimleridir.

Komut düğmesine bastığımız zaman

Diğer kitabın ilgili sayfalarından "B2:I42" ile "M2:T42" aralığı kopyalanıp

bu kitaptaki aynı sayfaların aynı adreslerine yapıştırılacak.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Dim K1 As Workbook, K2 As Workbook
    Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
    Dim X As Byte, Sayfa As String
    
    Set K1 = ThisWorkbook
    Set K2 = Workbooks("Pers01.xls")
    Set S1 = K1.Sheets("Veri Al")

    For X = 4 To S1.Cells(Rows.Count, 2).End(3).Row
        Sayfa = S1.Cells(X, 2)
        On Error Resume Next
        Set S2 = K1.Sheets(Sayfa)
        Set S3 = K2.Sheets(Sayfa)
        On Error GoTo 0
        If Not S2 Is Nothing And Not S3 Is Nothing Then
            S3.Range("B2:I42").Copy S2.Range("B2")
            S3.Range("M2:T42").Copy S2.Range("M2")
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[simetri.]

Harikulade.

Ellerinize sağlık Sayın Korhan Hocam.