İki Dosya Arasında Bağlantı Kurma

[uhercan]

Değerli üstad arkadaşlar,
eklediğim dosyalar birinden diğerine bilgi aktarımını nasıl yapılacağı konusunda yardımcı olursanız sevinirim. dosyaların içinde açıklama var.
Kolay gelsin..

 

[Orion1]

Dosyanız ektedir.

Sub aktar59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
If sonsat < 4 Then Exit Sub
Range("P4:P" & Rows.Count).ClearContents
For i = 4 To sonsat
    If Dir(ThisWorkbook.Path & "\" & Cells(i, "B").Value & ".xlsm") = "" Then
        MsgBox Cells(i, "B").Value & ".xlsm" & vbLf & "Adlı dosya bulunamadı.", vbCritical, "DOSYA YOK"
        GoTo atla
    End If
    Cells(i, "P").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[" & Cells(i, "B").Value & ".xlsm]GENEL'!R9C12")
    Cells(i, "Q").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[" & Cells(i, "B").Value & ".xlsm]GENEL'!R10C12")
    Cells(i, "R").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[" & Cells(i, "B").Value & ".xlsm]GENEL'!R10C13")
    Cells(i, "T").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[" & Cells(i, "B").Value & ".xlsm]GENEL'!R11C12")
    Cells(i, "U").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[" & Cells(i, "B").Value & ".xlsm]GENEL'!R11C13")
    Cells(i, "W").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[" & Cells(i, "B").Value & ".xlsm]GENEL'!R12C12")
    Cells(i, "X").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & _
            "\[" & Cells(i, "B").Value & ".xlsm]GENEL'!R12C13")
atla:
Next i
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[uhercan]

Orion elinize sağlık

aynı şekilde ödenek tutarı, harcanan tutar, kalan tutar (proje ve seyahat olarak) hanelerini de aktarabilir miyiz?:yardim:

 

[Orion1]

aynı şekilde ödenek tutarı, harcanan tutar, kalan tutar (proje ve seyahat olarak) hanelerini de aktarabilir miyiz?:yardim:

2 nolu mesajda dosyayı güncelledim.

 

[uhercan]

2 nolu mesajda dosyayı güncelledim.

Üstad Orion1,
Tam istediğim gibi olmuş. Zahmetin ve emeğin için çok teşekkür ederim. Ellerin dert görmesin.:dua::dua2:
Kolay gelsin.

 

[Orion1]

Üstad Orion1,
Tam istediğim gibi olmuş. Zahmetin ve emeğin için çok teşekkür ederim. Ellerin dert görmesin.:dua::dua2:
Kolay gelsin.

Rica ederim.
İyi çalışmalar.