Help! Issue with find row and update record

**Jo2710** · 09-18-2014, 06:45 PM

Hi

I have a form that users fill out and then ping the data into a database. This form can be updated so I'm trying to write a macro that finds the original record in the database then replaces it with the new record.

This is what I've got so far but when it gets to the end of the code I get 'Run time error 1004, Application-defined or object-defined error'.

The record I'm testing this on definitely exists in the database so I know that's not the issue but that's about as far as I get! I will have to build in something for if the record doesn't exist but just trying to get this part sorted first.

Please Login or Register  to view this content.

Can anyone see where I'm going wrong?

Thanks
Jo

**protonLeah** · 09-18-2014, 07:07 PM

1. Match is an Excel/VBA keyword and should not be used as a user variable.
2. Range(matchRow, 56) is incorrect syntax, "RANGE" expects a string value such as "Q1", "AA45", etc. Or even "C" & MatchRow.
Assuming that 56 is the number of a column, you would use:
tgt.Cells(matchRow, 56).Value = wb1.Sheets("Ref").Range("Data").Value