Dim DOSYA_ADI As String
Dim DOSYA_YOLU As String
Dim Mutlu As Long, Say As Byte
DOSYA_ADI = TEXTBOX1.TEXT
DOSYA_YOLU = ThisWorkbook.Path & "\[& DOSYA_ADI &.xlsm]"
Mutlu = Sheets("BAKİYELER").Range("C65536").End(3).Row + 1
Sheets("BAKİYELER").Cells(Mutlu, "C") = Application.ExecuteExcel4Macro("'" & DOSYA_YOLU & "CARİ HAREKETLER'!R75C5")
Dim DOSYA_YOLU As String
Dim Mutlu As Long, Say As Byte
DOSYA_ADI = TEXTBOX1.TEXT
DOSYA_YOLU = ThisWorkbook.Path & "\[& DOSYA_ADI &.xlsm]"
Mutlu = Sheets("BAKİYELER").Range("C65536").End(3).Row + 1
Sheets("BAKİYELER").Cells(Mutlu, "C") = Application.ExecuteExcel4Macro("'" & DOSYA_YOLU & "CARİ HAREKETLER'!R75C5")
