Çözüldü Makro farklı kapalı dosyadan veri hk.

Merhabalar,

asagıdaki kodumda Diğer_Not olarak göstermis oldugum yoldaki dosyanın acılmayarak verılerını getırmek ıcın nereyı duzeltmem gerekıyor ayrıca sıyah ıle koyulastırdıgım alanda da hata alıyorum herkese sımdıden cok tesekkurler


Sub Detay1()

Sheets("Detay ").Unprotect "2222"

Dim Sayfa1 As Worksheet
Dim Diğer_Not As Workbook
Dim Tablo As Range
Dim i As Long

Set Sayfa1 = Sheets("Detay")
Set Diğer_Not = Workbooks.Open("C:\Program Files (x86)\Raporlar\Dosyalarım\Diğer.xlsx", Password:="2222", ReadOnly:=True)
Set Tablo = Diğer_Not.Sheets("GenelNot").Range("A:A")


For i = 2 To Sayfa1.Range("A2").End(xlDown).Row
Sayfa1.Cells(i, 15) = Application.VLookup(Sayfa1.Cells(i, 4), Tablo, 1, 0)
Next

Set Sayfa1 = Nothing
Set Diğer_Not = Nothing
Set Tablo = Nothing

Sheets("Detay").Protect Password:=" 2222", AllowFiltering:=True

End Sub