Sub Macro2()
'
' Macro2 Macro
'
Dim line1 As String
Dim line2 As String
Dim line3 As String
Dim line4 As String
Dim line5 As String
Dim year As Integer
line1 = Sheet2.Range("H4").Text
line2 = Sheet2.Range("H5").Text
line3 = Sheet2.Range("H6").Text
line4 = Sheet2.Range("H7").Text
line5 = Sheet2.Range("H8").Text
year = Sheet2.Range("I1").Value
Sheet1.Activate
Range("A1").Select
With Selection.ListObject.QueryTable
.Connection = _
"ODBC;DATABASE=saws;DESCRIPTION=Saw Connectioin;DSN=saw;OPTION=0;;PORT=0;SERVER=192.168.1.3;UID=wesco;"
.CommandText = Array( _
"SELECT saw_stock_0.Stock, saw_stock_0.Class, saw_stockbook_0.Season, saw_stockbook_0.Year, saw_stockbook_0.SkuDescription, saw_stockbook_0.Sku, saw_stock_0.Description" & Chr(13) & "" & Chr(10) & "FROM saws.saw_stock saw_stock_0" _
, _
", saws.saw_stockbook saw_stockbook_0" & Chr(13) & "" & Chr(10) & "WHERE saw_stock_0.Stock = saw_stockbook_0.Stock AND ((saw_stock_0.Product In (100,101,103)) AND (saw_stock_0.Class In ('C','CZ','E','EC','ECZ','EO','F','L','O','O" _
, _
"J','OZ')) AND (saw_stockbook_0.Year>=" & year & ") AND (saw_stockbook_0.Sku In (" & line1 & ")) AND (saw_stockbook_0.Counter<>27564) OR (saw_stock_0.Product In (100,101,103)) AND (saw_stock_0.Class In ('C','C" _
, _
"Z','E','EC','ECZ','EO','F','L','O','OJ','OZ')) AND (saw_stockbook_0.Year>=" & year & ") AND (saw_stockbook_0.Sku In (" & line2 & ")) AND (saw_stockbook_0.Counter<>27564) OR (saw_stock_0.Product In (100,101,10" _
, _
"3)) AND (saw_stock_0.Class In ('C','CZ','E','EC','ECZ','EO','F','L','O','OJ','OZ')) AND (saw_stockbook_0.Year>=" & year & ") AND (saw_stockbook_0.Sku In (" & line3 & ")) AND (saw_stockbook_0.Counter<>27564) O" _
, _
"R (saw_stock_0.Product In (100,101,103)) AND (saw_stock_0.Class In ('C','CZ','E','EC','ECZ','EO','F','L','O','OJ','OZ')) AND (saw_stockbook_0.Year>=" & year & ") AND (saw_stockbook_0.Sku In (" & line4 & ")) A" _
, _
"ND (saw_stockbook_0.Counter<>27564) OR (saw_stock_0.Product In (100,101,103)) AND (saw_stock_0.Class In ('C','CZ','E','EC','ECZ','EO','F','L','O','OJ','OZ')) AND (saw_stockbook_0.Year>=" & year & ") AND (saw_" _
, _
"stockbook_0.Sku In (" & line5 & ")) AND (saw_stockbook_0.Counter<>27564))" & Chr(13) & "" & Chr(10) & "ORDER BY saw_stockbook_0.SkuDescription, saw_stock_0.Description" _
)
.Refresh BackgroundQuery:=False
End With
End Sub
Bookmarks