Dış veri bağlantılı excelde açıklama kutucukları eklenmesi hk.

[yakaryus19]

Merhabalar,
Dış veri bağlantılı, sorgu bulunduran bir excelim var. A sütununda "Malzeme kodu" ve B sütununda "Malzeme adı" yer almakta.
Birkaç tane özel olarak seçtiğim malzeme var, ve bu malzeme kodlarının olduğu hücreye açıklama eklemek istiyorum. Bu malzeme kodları her sorgu yenilediğimde tekrarlanıyor ve aylar geçtikçe sütun boyunca en az 100-200 kere tekrarlanabiliyor. Sürekli olarak açıklamaları kopyala yapıştır yapmak çile oluyor. Acaba her veri yenileme yaptığımda özel kodlardan biri listeye dahil olursa, o koda ait açıklamayı daha önce yaptığım açıklamadan kopyalayıp çekmesi mümkün müdür ? Cevaplarınız için şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Dış veri alma işleminden sonra kodu çalıştırıp deneyiniz.

Option Explicit

Sub Add_Comment()
    Dim My_Range As Range, Find_Code As Range, First_Address As String
    
    For Each My_Range In Range("F5:F7")
        Set Find_Code = Range("A:A").Find(My_Range.Value, , , xlWhole)
        If Not Find_Code Is Nothing Then
            First_Address = Find_Code.Address
            Do
                My_Range.Copy
                Find_Code.PasteSpecial xlPasteComments
                Set Find_Code = Range("A:A").FindNext(Find_Code)
            Loop While Not Find_Code Is Nothing And Find_Code.Address <> First_Address
        End If
    Next
    
    Application.CutCopyMode = False
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yakaryus19]

Korhan Bey,
Tam istediğim gibi oldu, teşekkür ederim emeğinize sağlık.