Many execution of a query with different selections in the same work book

Question

Hi all,
I have a workbook with one query that show sales of a plant. User can select many plants, but he doesn't like it, too easy. In this way query shows all the plant in the same sheet and he want a sheet for each plant.
The most simply way to do this is making a query for each plant with a filter with the plant as a constant. Then I put all that queries in the workbook. But this is not too smart, right?
Any suggestion?

Answer 1

Hi,
    I will try and explain here, if you get stuck and do get back.
1) On Sheet1 Rename it to BEX01 and Add the Query that will return all Plants. Hide this Sheet
2) On Sheet2 Rename it to BEX02 and Add the Main Query. Hide this Sheet.
3) On Sheet3 Rename it to Main and Add a Command Button. Goto Properties and Change the Name to cmdRefresh and then do View Code and add following code. 
Private Sub cmdRefresh_Click()
           Call RefreshReports
End Sub
4) Add a Module to your VBA Project
5) Open Module1 and Add following code.
Option Explicit
Public Sub RefreshReports()
    Dim wksBEX01 As Worksheet, wksBEX02 As Worksheet, wks As Worksheet
    Dim lRows As Long, lRow As Long
    Dim sPlant As String, sName As String
    Dim fRng As Range
    sName = "Main"
    With ThisWorkbook
        Set wksBEX01 = .Sheets("BEX01")
        Set wksBEX02 = .Sheets("BEX02")
    End With
    wksBEX01.Activate
    wksBEX01.Range("A1").Select
    'This will refresh both the Queries All Plants and the Main one.
    If Run("SAPBEX.XLA!SAPBEXrefresh", True) <> 0 Then
        MsgBox "Refresh of All Queries Failed."
        Exit Sub
    End If
    'Lets say your All Plants Query, Lists all the Plants Starting in Cell A15
    'Then Do the following.
    lRows = wksBEX01.Cells(Rows.Count, 1).End(xlUp).Row
    For lRow = 15 To lRows
        sPlant = Trim$(wksBEX01.Cells(lRow, 1).Value)
        'Now Use this Plant to Set the Filter Value for the Main Query.
        'I am assuming that your Plant Charateristic will show up in A14 on the Worksheet.
        With wksBEX02
            .Activate
            'Adjust this according to where you insert the Query and which cell has correct info.
            .Range("A14").Select
            Set fRng = Selection
        End With
        'Call the API to Do a Select Filter Value.
        If Run("SAPBEX.XLA!SAPBEXSetFilterValue", sPlant, "", fRng) <> 0 Then
            MsgBox "Unble to Set Filter for Plant : " & sPlant
            Exit Sub
        Else
            'Here you can Now Copy the the Sheet to new Sheet. If filter value worked.
             Set wks = ThisWorkbook.Sheets.Add(After:=sName)
             wksBEX02.Cells.Select
             wksBEX02.Copy
             wks.Range("A1").Paste
             wks.Name = sPlant
             sName = sPlant
        End If
    Next
     'Save the workbook as new name else you will have to first delete all the old sheets.    
     Thisworkbook.SaveAs "Some New Name"
End Sub
Here I have just created a new Sheet for Each Plant. You can work on the EXCEL Part to take and do what you want with new Sheets.
Hope this gets you started.
Just a Suggestion. Don't hide the BEX01 and BEX02 sheets untill the code works correctly.
Datta