Hi,

I'm new to the forum, please have some patience or correct me if i do something wrong

I'm working on an Excel sheet with a data import on a daily basis. In "Issue Overview" sheet, I import a list daily and add any new issues from the sheet, when compared with a data sheet.
(There are 800+ rows and i have about 73 columns of corresponding information of names, status, etc.)

I've made a userform, in which i want to select 1 ID from the list (combobox1), look it up from the list to display some basic important information. In addition to this, I also copy the list to a "comments" sheet. When a user updates a textbox field, it pushes the comment to this hidden "comments" sheet and the main sheet returns the comment via a lookup, which is also immediately fed back to the userform.

I'm looking for some help to:
  • Take a screenshot from columns I -> Q
    This range is for a single row, determined by the selection of the ID from ComboBox1
    Paste the row snapshot to the row corresponding to the ID from the "Comments" sheet
    Show this screenshot in the userform in Image1 when the Id selection is made.
    When the same ID is selected a day or two later, the picture should overwrite the existing one.
This provides me with a "live overview" on the status of the issue
The reason i need a picture is because rows 1 -> Q are conditionally formatted with coloured backgrounds to give a visual aid.

I have some existing code which is working to do this for my comments. It searches the ID and pastes the user input comment using the command 'Found.Offset(0, 1).value = TextBox4.Text'

Private Sub CommandButton1_Click()
   Dim Found As Range
    If Me.ComboBox1.value = "" Then
        MsgBox "Select valid ID. ", , "Missing Entry"
    Else
        Set Found = Sheets("Comments").Range("C:C").Find(What:=Me.ComboBox1.value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
        If Found Is Nothing Then
            MsgBox "Select a valid AIR ID ", "No Match Found"
        Else
           Found.Offset(0, -1).value = Date & ": " & TextBox4.Text & vbCrLf & TextBox2.Text
           Found.Offset(0, 1).value = TextBox4.Text
           ComboBox1_Change
        End If
   
End If
     'Update
End Sub
I'm currently missing the link on how i can apply a similar approach to a picture e.g. 'Found.Offset(0, 1).value = Image' then the userform Image 1 looks towards this page and column to reflect the picture

  .TextBox14.value = Format(Sheets("Comments").Cells(.ComboBox1.ListIndex + 3, 4), ";;")
  .Image1.Picture =
Appreciate any help,

Thanks.