Run-time error '424'

[xainthowell]

can someone help me with this error. Thanks

form_SSEN.xlsb
	AK	AL
1	PHOTO	SIGNATURE
2
Data

Private Sub cmdPhoto_Click()
    On Error Resume Next
    Dim imagepath As String
    imagepath = Application.GetOpenFilename(filefilter:="Picture files,*.gif;*jpg;*jpeg;*.png", Title:="Add Picture")
       
    If imagepath <> False Then
    Me.imgPhoto.Picture = LoadPicture(imagepath)
    Me.imgPhoto.Visible = True
    End If
    
   
End Sub

Private Sub cmdSave_Click()
   Dim LastRow As Long
   Dim PicPath As String
   
    namepic = Sheet2.Range("B2").Text
    SavePicture imgPhoto.Picture, ThisWorkbook.Path & "\" & namepic & ".jpg"
    PicPath = ThisWorkbook.Path & "\" & namepic & ".jpg"
   
    Data.Cells(LastRow, "AK").Value = PicPath
   
    ThisWorkbook.Save
    MsgBox "Data Saved", vbInformation
   

   
End Sub

 

[Legacy 143009]

You must assign a row value to LastRow.

 

[xainthowell]

You must assign a row value to LastRow.

how? sorry my knowledge in excel vbcode is very low I'm still learning bout it by watching YT. thanks

 

[Legacy 143009]

For example if you want the picture path in AK2 cell, then:


Private Sub cmdPhoto_Click()
On Error Resume Next
Dim imagepath As String
imagepath = Application.GetOpenFilename(filefilter:="Picture files,*.gif;*jpg;*jpeg;*.png", Title:="Add Picture")

If imagepath <> False Then
Me.imgPhoto.Picture = LoadPicture(imagepath)
Me.imgPhoto.Visible = True
End If


End Sub

Private Sub cmdSave_Click()
Dim LastRow As Long
Dim PicPath As String

LastRow = 2

namepic = Sheet2.Range("B2").Text
SavePicture imgPhoto.Picture, ThisWorkbook.Path & "\" & namepic & ".jpg"
PicPath = ThisWorkbook.Path & "\" & namepic & ".jpg"

Data.Cells(LastRow, "AK").Value = PicPath

ThisWorkbook.Save
MsgBox "Data Saved", vbInformation



End Sub

 

[xainthowell]

For example if you want the picture path in AK2 cell, then:


Private Sub cmdPhoto_Click()
On Error Resume Next
Dim imagepath As String
imagepath = Application.GetOpenFilename(filefilter:="Picture files,*.gif;*jpg;*jpeg;*.png", Title:="Add Picture")

If imagepath <> False Then
Me.imgPhoto.Picture = LoadPicture(imagepath)
Me.imgPhoto.Visible = True
End If


End Sub

Private Sub cmdSave_Click()
Dim LastRow As Long
Dim PicPath As String

LastRow = 2

namepic = Sheet2.Range("B2").Text
SavePicture imgPhoto.Picture, ThisWorkbook.Path & "\" & namepic & ".jpg"
PicPath = ThisWorkbook.Path & "\" & namepic & ".jpg"

Data.Cells(LastRow, "AK").Value = PicPath

ThisWorkbook.Save
MsgBox "Data Saved", vbInformation



End Sub

wow thank you, works for me