Newton/sqm
11-21-2016, 05:30 AM
I have been working on the same roblem for days now and no one could help me so far. I have a userform and the user inserts a certain identification number and some data associated with it. The code should find the ID in a table called "Tests_results", which is in the "Tests Results" Worksheet. As soon as the ID is found, the row is updated with the data metioned above. My code looks like:
Option ExplicitPrivate Sub CommandButton4_Click()
Dim Obj As Range
Set Obj = Sheets("Tests Results").ListObjects("Test_results").Find(SampleID.Value) 'error 438 in this line
With Obj
.ListColumns("Flammability Type ") = Me.ComboBoxFlamm.Value ' this is the data to be updated
.ListColumns("Avg-Smoke Density Pass Value (Ds)") = Me.ComboBoxSDpass.Value
end With
End Sub
I would really appreciate any help!
Option ExplicitPrivate Sub CommandButton4_Click()
Dim Obj As Range
Set Obj = Sheets("Tests Results").ListObjects("Test_results").Find(SampleID.Value) 'error 438 in this line
With Obj
.ListColumns("Flammability Type ") = Me.ComboBoxFlamm.Value ' this is the data to be updated
.ListColumns("Avg-Smoke Density Pass Value (Ds)") = Me.ComboBoxSDpass.Value
end With
End Sub
I would really appreciate any help!