Comparing two queries with VBA macro

Question

Hi,
I have a workbook woth 2 sheets. Every sheet has a BEx query (so 2 queries).
I need, for every column in the first query, to check if it is present in the second query, to generate a list with the NOT PRESENT values (or simply, marking the not present values).
I tried with Searching excel functions by column, but every query hs more that 30.000 rows, so it takes a long time.
I think I have to use an excel macro. I have been lookong for in the forum but my doubt is that I have to execute when the two queries has been refreshed.
How can I know when the two queries has been refreshed?
Is there any other way to do it?
Any idea of how to reference a query from the other?
I think the code shoud be in this way:
for every row in the first colum of 1st query
look in every row in the first column of 2nd query
mark in first query if not present.
If I put the macro in 1st query, how can I reference the 2nd one?

Answer 1

Hi Oscar, there are several ways to do this.
The easiest way would be:
1.  in the SAPBEXonRefresh subroutine (which you will find in the SAPBEX Module attached to your query-containing workbook), add code that looks something like this:
Set ws = resultArea.parent
if ws is nothing then exit sub
resultArea.name = ws.codename & "_results"
ws.Range("D2") = Date
if queryID = "SAPBEXq0002" then Call CompareQueries(queryID)
'make the query ID that of the second query
This will create named ranges in Excel so that you can easily locate the result tables later.  And, ensure that you know the date that each query was refreshed.  And, after the second query is refreshed, it will call your query comparison routine.
2.  In the comparison routine, you will need something like this:
set ws1 = Query1 'assuming that you have set the code name of the first query sheet as Query1
set ws2 = Query2 'assuming that you have set the code name of the second query sheet as Query2
'set ranges for the two result tables
set Range1 = ws1.codename & "_results"
set Range2 = ws2.codename & "_results"
'locate first and last Row and Column for result tables
firstRow1 = Range1.cells(1).row
firstCol1 = Range1.cells(1).column
numCells = Range1.cells.count
lastRow1 = Range1.cells(numCells).row
lastCol1 = Range1.cells(numCells).column
'do same for Range2
'locate the columns you want to compare
searchCol = 0
for j = firstCol1 to lastCol1
    if cells(firstRow1, j) like "some text here" then
        searchCol = j
        exit for
    end if
next j
if searchCol = 0 then
    msgbox "Did not find ""some text here"".", vbCritical
    exit sub
Else:
    set SearchRange = ws1.cells(1, searchCol).entireColumn
end if
for j = firstCol2 to lastCol2
    if cells(firstRow2, j) like "some text here" then
        searchCol = j
        exit for
    end if
next j
'do the search
for i = firstRow2 to lastRow2
    searchFor = cells(i, searchCol)
    matchRow = 0
    on error resume next
    matchRow = Application.worksheetfunction.match(searchFor, SearchRange, 0)
    if matchRow > 0 then
        cells(i, lastCol2+1) = "match found on row " & matchRow
    Else:
        cells(i, lastCol2+1) = "NOT PRESENT"
    End if
next i
- Pete