Hücre açıklamasını çekme

[mehmetaltalt]

Merhaba arkadaşlar,

Uzun zamandır araştırıyorum bulamadım.

A exceli
A1 hücresi : abc makinesi
A1 hücre notu : (yurtiçi)

B exceli
='A!$A1

İle hücre notunu çekemiyorum. Bir sürü vba konu denedim ama user defined kodlar kapalı excelden çekemiyor. Yardımcı olur musunuz

 

[ÖmerFaruk]

Aşağıdaki kodu inceleyebilirsiniz.

Sub CopyCommentText()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceCell As Range
    Dim targetCell As Range
    Dim commentText As String
    
    Set sourceWorkbook = Workbooks("KaynakKitap.xlsx")
    Set sourceSheet = sourceWorkbook.Sheets("Sayfa1")
    Set targetWorkbook = Workbooks("HedefKitap.xlsx")
    Set targetSheet = targetWorkbook.Sheets("Sayfa1")
    

    Set sourceCell = sourceSheet.Range("A1")
    Set targetCell = targetSheet.Range("A1")
    
    If Not sourceCell.Comment Is Nothing Then
        commentText = sourceCell.Comment.Text
    Else
        commentText = ""
    End If

    targetCell.AddComment commentText
End Sub

 

[mehmetaltalt]

Hata veriyor maalesef yapamadım.

Kaynak dosya
H:\Uretim\ortak\abc.xlsx
Kaynak aralığı A1:BG400

Hedef dosya
H:\ortak\blabla\hedef.xlsm
Hedef aralığı A1:BG400

Şeklinde yapabilir misiniz rica etsem

 

[mehmetaltalt]

Ve bu kod dosyayı açmadan yapıyor değil mi ?