You are going to need a macro. This is a fiddly (although not difficult) job at best and lack of sufficient information here is a problem. No-one is going to write it for you (unless yo want to pay :D
To start you off, here are som "bare bones"
Code:
Sub PSEUDOCODE_UNTESTED()
Dim ToSheet As Worksheet
Dim ToRow As Long
'-
Dim FromSheet As Worksheet
Dim FromRow As Long
Dim FromCol As Integer
'-
Dim OrgName As String
Dim Inventory As String
Dim MyItem As String
'-
Dim FoundCell As Object
'---------------------------
'- query sheet
Set ToSheet = ThisWorkbook.Worksheets("query")
ToRow = 1
'---------------------------
'- data from combo boxes
OrgName = "1"
Inventory = "A"
MyItem = "1234"
'---------------------------
'- Set 'From' Column Number
Select Case Inventory
Case "A"
FromCol = 10
Case "B"
FromCol = 11
End Select
'---------------------------
'- get data
Set FromSheet = _
Workbooks("Book1.xls").Worksheets("Organisation" & OrgName)
'---------------------------
'- find (need to set column to Item column)
Set FoundCell = FromSheet.Columns(1).Find(what:=MyItem, _
LookIn:=xlValues, LookAt:=xlPart)
If FoundCell Is Nothing Then
MsgBox ("Could not find " & MyItem)
Else
FromRow = FoundCell.Row
ToSheet.Cells(ToRow, 1).Value = _
FromSheet.Cells(FromRow, FromCol).Value
' etc.
End If
End Sub
-----------------------
Regards BrianB
Most problems occur from starting at the wrong place.
Use a cup of coffee to make Windows run faster.
It is easy until you know how.
Query data and exporting data from one sheet to an
