Descrição de uma folha para comentário de outra folha no Excel

Question

o que eu tenho um excel com entrada em uma folha e descrições de código em outro eu gostaria de criar automaticamente um comentário exibindo a descrição dos códigos de entrada ou isso é possível.

ex.

"sheet 1"                   -------------------
serial   | Symptom Code     |"Comment Box"    |
xx1234   | LX1, LC45 ------ |Machine Broken   | 
                            |Physical Damage  |   
                            -------------------    
"sheet 2"
Code     | Description
LX1      | Machine Broken
LC45     | Physical Damage

Espero que isso seja um bom exemplo do que eu estou procurando pela minha reputação não é alta o suficiente para inserir fotos se você puder me dar uma boa parada

    

Answer 1

Diga Folha1 como:

eFolha2écomo:

Em seguida, a macro a seguir pesquisará as descrições e as adicionará como Comentários às células da coluna B em Folha1

Sub CommentMaker()
    Dim sh1 As Worksheet, sh2 As Worksheet, N1 As Long, N2 As Long
    Dim s1 As String, s2 As String
    Dim i1 As Long, i2 As Long
    Set sh1 = Sheets("Sheet1")
    Set sh2 = Sheets("Sheet2")
    N1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row
    N2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row

    For i1 = 2 To N1
        s1 = sh1.Cells(i1, "B").Text
        For i2 = 2 To N2
            s2 = sh2.Cells(i2, "A").Text
            If s1 = s2 Then
                sh1.Cells(i1, "B").ClearComments
                sh1.Cells(i1, "B").AddComment sh2.Cells(i2, "B").Text
            End If
        Next i2
    Next i1

End Sub