VBA Userform Vlookup and File open then print out

DipDip

Board Regular
Joined
Jan 23, 2015
Messages
57
Hi All,
First of all thanks in advance for helping me on this. I have created a Userform that has a few simple elements in it.

1. ComboBox1
2. ComboBox2
3. TextBox1
4. Okay, clear and close buttons

From ComboBox 1 you select the job role.
From ComboBox 2 you select the relevant file you want printed. This changes depending on your entry in the above.
In TextBox1, you input how many copies you want printed and then the idea is is that when you click okay, it opens the file and prints x copies of it.

I have managed to get two ComboBoxes working, and made them dynamic, so that when a new file is entered into the Locations sheet, it updates the selections possible from the ComboBoxes. I did this using the name manager, arrays and the following code:

Code:
Private Sub UserForm_Initialize()
'Populate Role combo box.
Dim rngRole As Range
Dim ws As Worksheet
Set ws = Worksheets("Data")
For Each rngRole In ws.Range("Role")
Me.ComboBox1.AddItem rngRole.Value
Next rngRole
End Sub


Private Sub ComboBox1_Change()
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
But from here I can't seem to figure out the rest. The Locations sheet looks kinda like this:

Role (A1)Template (B1)Destination (C1)
ReceptionFire Safety Sheetsc:\templates\reception\fire v4.xlsx
NursesPEG Chartc:\templates\Nurses\PEG chart.xlsx
MaintenanceMini Bus Weekly ChecklistC:\templates\maintenance\Mini Bus weekly checklist
ReceptionVisitor Log Bookc:\templates\reception\visitor log book.xlsx

<tbody>
</tbody>

So using an array formula and the name manager, this information is transferred and re-organised alphabetically so that it looks right in the ComboBoxes into a sheet called Data.

What I want is that when someone selects Reception in ComboBox1, then Fire Safety Sheets in ComboBox2, you can then type in 10 in TextBox1, click on the okay button and then it will open the corresponding file then print off 10 copies of it.

Can anyone please help me?
 

DipDip

Board Regular
Joined
Jan 23, 2015
Messages
57
Or can anyone please just help me with the opening a file from the C column? I'll work out the print stuff. It's this bit that's really giving me a headache
 

Forum statistics

Threads
1,081,543
Messages
5,359,431
Members
400,526
Latest member
Brook1083

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...
Top