Display data on user input dialogue box.

[mysterious-dr-x]

Once again the internet has been entirely unhelpful with regards to my current issue.

I am creating a user input form so that information can be added to a secondary workbook from the first without having to do it all manually.

Now, the secondary workbook looks something like this, with the user input form inserting data into the next available row.

In the example above, 317 is the next available row (I should probably mention that this is currently in excel row 33, but this is not fixed).

Most of it works fine, there is only one thing I don't know how to do & that is to display the DCRC reference number (eg 317) in the indicated box in the form below.

Currently this is a user input box, but that can be changed if required. In addition I'd like to paste this number into a cell (lets say A1) in the primary workbook, although I suspect that this part will be much simpler.

This should be done upon opening the dialogue, or by clicking the "Find" button, either is fine by me.

Please let me know if you feel that you require any of the code that I already have.



Edit: As it turns out there are two things that I don't know how to do.

The 2nd is to make the submit button not just submit the information (which it does fine), but also to close the dialogue box..... how do I do this?

 

[mysterious-dr-x]

Glad to hear its working

Forgot to ask yesterday, or more specifically I didn't realise that I needed to ask ...... is there a way to make this work with .xlsm?

 

[tigeravatar]

mysterious-dr-x,

Yeah, just change the workbooks("Secondary Workbook Name.xls") to be the actual workbook name and file extension

~tigeravatar

 

[mysterious-dr-x]

mysterious-dr-x,

Yeah, just change the workbooks("Secondary Workbook Name.xls") to be the actual workbook name and file extension

~tigeravatar

I only asked as when I tried yesterday it didn't work, today however, it does. No idea what is different but as it turns out I didn't actually need to ask. Thanks for answering though.

 

[mysterious-dr-x]

Me.FileName.Text = ("J6" & " - " & "C8")

I know that this is wrong, it was only supposed to be representative..... How do I correct the part in brackets so that the display will read as the contents of those cells?

 

[tigeravatar]

Me.Filename.Text = Range("J6").Value & " - " & Range("C8").Value

 

[mysterious-dr-x]

Me.Filename.Text = Range("J6").Value & " - " & Range("C8").Value

Cheers for that.