Hello friends
I have a form that I prepared and I want to add to it an option to add an image in the "i" column (when I click on save)
I searched here in the forum for some solutions and I couldn't. Can anyone direct me?
This is the code for the save button
And this is the situation where I want to add the image
I have a form that I prepared and I want to add to it an option to add an image in the "i" column (when I click on save)
I searched here in the forum for some solutions and I couldn't. Can anyone direct me?
This is the code for the save button
Sub Save()
Dim frm As Worksheet
Dim database As Worksheet
Dim iRow As Long
Dim iSerial As Long
Set frm = ThisWorkbook.Sheets("Form")
Set database = ThisWorkbook.Sheets("Database")
If Trim(frm.Range("M1").Value) = "" Then
iRow = database.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
If iRow = 2 Then
iSerial = 1
Else
iSerial = database.Cells(iRow - 1, 1).Value + 1
End If
Else
iRow = frm.Range("L1").Value
iSerial = frm.Range("M1").Value
End If
With database
.Cells(iRow, 1).Value = iSerial
.Cells(iRow, 2).Value = frm.Range("I10").Value
.Cells(iRow, 3).Value = frm.Range("I12").Value
.Cells(iRow, 4).Value = frm.Range("I14").Value
.Cells(iRow, 5).Value = frm.Range("I16").Value
.Cells(iRow, 6).Value = frm.Range("I18").Value
.Cells(iRow, 7).Value = Application.UserName
.Cells(iRow, 8).Value = [Text(Now(), "DD-MM-YYYY HH:MM:SS")]
End With
frm.Range("L1").Value = ""
frm.Range("M1").Value = ""
End Sub
And this is the situation where I want to add the image
