VBA - value is not pasting in master sheet

[shido]

Hi All,

I have userform to lookup for a value in "Database". If value found, then return values and paste into another sheet "IQuery". however, if value not found in "Database", then let the user to add empty fields.

After pressing add button, new data shall be saved in both sheet in the last available row. My VBA code is as follows. However i have attached a sample sheet for your test.

Please Login or Register  to view this content.

Issue i am facing is that new values are not adding in the "database", its only adding in one sheet. Can anyone help me to fix it please

Regards

Template-Vlookup-Userform-in-Code.xls

[jaslake]

Hi shido

Try this.

Please Login or Register  to view this content.

[shido]

Hi John,

Thanks for your time. Above code is only adding value in both sheets. I would also need to lookup ID in the "Database" and return the associated value if found.

Would you please mind if you fix above

1. lookup ID value in the "database" sheet, if found then paste it in the "IQuery" sheet.

2. if lookup ID is not found, then let the user add new data in "database" and "IQuery" sheet (as above)

Kind Regards,

[jaslake]

Hi shido

I think I see what you're trying to do...I'll look at it.

[shido]

Great.. Thanks.. looking forward to it

[jaslake]

Hi shido

You have multiple same ID's in Sheet IQuery (for example...1002, 1007, 1009). Why? What's the purpose of Sheet IQuery...to track changes?

I'd assume Sheet Database ID's should all be unique.

Please explain further what your end goal is.

[shido]

Hi John,

I am actually using "database" for saving my actual data. I am then using "userform" to lookup if value is existed in the "Database". if the value is existed in the "database" then return it in "IQuery".

I have separate VBA code which copy and clear IQuery rows and send it as email attachment. IQuery is used to save looked up values (can be multiple same IDs)

Lets say, purpose of this code is to searching data existing data, adding new data and send it to the user (separate VBA code, not included but works okay).

I hope i have answered your question.

[jaslake]

Hi shido

If I understand the issue, try this Code in the attached...

Please Login or Register  to view this content.

[shido]

Its perfect. This is exactly what i wanted. However, a minor addition, if you please do not mind to look into it.

Database tab: Along with adding new data, I would also like to copy formatting from previous row and convert ID to number. Currently, it is saving ID as text as seen in the following pic

lookup.jpg

Regards,

[jaslake]

Hi shido

Replace the Command Button Click Code with this...

Please Login or Register  to view this content.

[shido]

Perfect,

Thanks for your help John. i really appreciate your time.

[jaslake]

You're welcome...glad I could help. Thanks for the Rep.