vlookup для комментария с изображением - PullRequest
Новая
       15

vlookup для комментария с изображением

0 голосов
/ 27 февраля 2019

Я застрял, пытаясь заставить следующее работать с моей электронной таблицей.

Я хотел бы, чтобы столбец F на листе поиска кодов ошибок CBSA заполнял комментарий и изображение из столбца H при ошибке CBSAКоды Excel.

Есть ли способ сделать так, чтобы всплывающее окно комментария автоматически помещалось в ячейку комментария, а не перемещалось?

Перекрестный пост ниже

Предлагается формула, но мне не удается изменить ее для работы с моей электронной таблицей.

https://www.excelforum.com/excel-programming-vba-macros/827771-vlookup-with-comment-picture.html#post5021490

Формула ниже 

Option Explicit

Private Sub Worksheet_Change(ByVal target As Range)
Dim cell As Range, vFND As Range

On Error GoTo ErrorExit
For Each cell In target
    If cell.Column = 1 Then          'only cells in column A
        Application.EnableEvents = False
        With Sheets("Sheet 2")
            On Error Resume Next
            Set vFND = .Range("A:A").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
            On Error GoTo ErrorExit
            If Not vFND Is Nothing Then
                vFND.Offset(, 1).Copy cell.Offset(, 2)
            Else
                cell.Offset(, 2) = "not found"
            End If
        End With

    End If
Next cell

ErrorExit:
Application.EnableEvents = True
End Sub
...