Like this?
Sub SaveAsPDF()
fn = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")
If fn <> nfn Then
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fn
End If
End Sub
Like this?
Fill a value in textbox 1 and textbox 2 and press copy.
And please next time put your code between code tags
Do it like this < your code and at the end />
And next time post a representative example instead of a weak example
No clear.
Do you search on product, date or unit?
What do you mean by combobox cannot list repeated products, what is de difference between product A in unit 3 and product A in unit 7 and product A in unit 47??