VBA Help needed to create a document based on user input thru UserForm

**krjoshi** · 12-19-2012, 10:52 AM

Folks,

I have a workbook with three sheets and one userform. The first sheet is contains the master data, and second and third sheets are the document templates. I want to copy values from the userform and paste into the templates and create as a single document in pdf format. Can you please help me to fix the issues? I have attached the excel file of what I'm trying to accomplish.

Thanks in advance for your expertise!

Joshi

**jaslake** · 12-19-2012, 04:58 PM

Hi Joshi

How do you get these answers?

Y answers.jpg

**krjoshi** · 12-19-2012, 10:17 PM

Hi John,
Thanks for your reply, I forgot to add a multi select ListBox for that. If I select fhe answer should be "Y" otherwise keep it "-".
Thanks,
Joshi

**jaslake** · 12-20-2012, 12:24 PM

Hi Joshi

When you've done so post back and I'll take another look at it.

**krjoshi** · 12-20-2012, 03:30 PM

Hi John,

I have placed a new listbox and attached the latest workbook as advised. Please help me to fix the this document developer.

Thanks in advance,
Joshi

**abousetta** · 12-31-2012, 10:12 AM

Hi Joshi,

I can't see how the fields in the userform are linked to the cells in the worksheet. Could you give us a list like so:

Textbox1 >> Sheets("MyFirstSheet").Range("A1")
Combobox1 >> Sheets("MySecondSheet").Range("B1")

that way we can help code this.

abousetta

**krjoshi** · 01-03-2013, 04:58 PM

hi Abousetta,

Please see the below list as advised.

Textbox1 >> Sheets("Hazard Management Review Form").Range("Q2" & “N23”)
Textbox2 >> Sheets("Hazard Management Review Form").Range("C2")
ComboBox1 >> Sheets("Hazard Management Review Form").Range("I4")
ComboBox2 >> Sheets("Hazard Management Review Form").Range("S4")
ComboBox3 >> Sheets("Hazard Management Review Form").Range("S5")
ListBox1 >> Sheets("Hazard Management Review Form").Range(“L11,L12,L13,L14,L15,L16,L17”),(”O11,O12,O13,O14,O15,O16,O17&O18”) & (”R11,R12,R13,R14,R15,R16,R17&R18”)
Textbox3 >> Sheets("Hazard Management Review Form").Range("A23")
Textbox4 >> Sheets("Hazard Management Review Form").Range("E23")
Textbox5 >> Sheets("Hazard Management Review Form").Range("I23")
ComboBox3 >> Sheets("Hazard Management Form").Range("A5")
Textbox2 >> Sheets("Hazard Management Form").Range("B5") & (Management Review Form").Range("C5") = offset data of Master_Data sheet column “C”

Thanks,
Joshi

**abousetta** · 01-15-2013, 09:53 AM

Hi,

Here is what you need in the userform:

Please Login or Register  to view this content.

Now the last one (offset data of Master_Data sheet column “C”) I couldn't code because I don't know that means.

Let me know if this works for you.

abousetta

**krjoshi** · 01-15-2013, 02:29 PM

Hi abousetta,

Thanks for your code, but the values inserting wrong places. Can you please check and help me to fix the issue.

Thanks,

**abousetta** · 01-15-2013, 02:45 PM

Hi,

I noticed one mistake, but if the results are different than what you expect then let me know more specific details. If you notice, I just translated the ranges and sources of the values you presented in post #7. Maybe double-check these ranges/ sources.

abousetta