Hello all, I am hoping you point me in the right path here. How do I open a workbook when a value in the listbox is clicked?
Thankyou
Hello all, I am hoping you point me in the right path here. How do I open a workbook when a value in the listbox is clicked?
Thankyou
Use the following -
'opening workbook
Workbooks.Open Filename:="c:\book1.xls"
'your code
'your code
'below code for saving and closing the workbook
Workbooks("book1.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Has this solved your problem Tunde011? If so, please mark this as solved, found at the bottom of this page, thanks.:)
Thanks for the code, although I already know how to open a workbook, I some how worked it out myself and this is for any other fellow that come across this in the future. When items on the Listbox are clicked, it opens the associated workbook
Private sub ListBox1_Click()
Dim i As Integer
For i= 0 To ListBox1.ListCount -1
If ListBox1.Selected(i) Then
' Provided your ListBox1 has an item called Apple
' i.e I had ListBox1.AddItem("apple") previously.
If ListBox1.List(i) = "Apple" Then
Workbooks.Open("C:\apple.xls"), ReadOn:=False
End If
If ListBox1.List(i) = "Google" Then
Workbooks.Open("C:\google.xls"), ReadOn:=False
End If
End If
Next i
End Sub
Thanks. Nice code there.
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.