I write a macro code to use worksheetFunction in Database consulting and set
a criteria to look for inclusion that is:

VARIETY SUPPLIER Date PROCESS Date PROCESS
RED GRAPEFRUIT XXXX <27/10/2005 <07/12/2005


But it only accepts equal (0) or Unequal (<), greater than or less than are
not accepted.

The macro part that works this is as follows:

Counter = Workbooks("analisis de fruta 05-06").Sheets("Consult
Suppliers").Range("A5") + 1
Date_Inic = Workbooks("analisis de fruta 05-06").Sheets("Consult
Suppliers").Range("A3") - 1
Date_Final = Workbooks("analisis de fruta 05-06").Sheets("Consult
Suppliers").Range("A4") + 1
Workbooks("analisis de fruta 05-06").Sheets("Consult
Suppliers").Range("C6").Activate
Workbooks("analisis de fruta 05-06").Sheets("Consult
Suppliers").Range("C6").Select

For Count = 1 To Counter

Proveedor = ActiveCell.Offset(0, -1)
Worksheets("Referencia").Range("C7") = "RED GRAPEFRUIT"
Worksheets("Referencia").Range("D7") = Supplier
Worksheets("Referencia").Range("E7") = "<" & Date_Inic
Worksheets("Referencia").Range("F7") = "<" & Date_Final

Loads = Application.WorksheetFunction.DCount(Workbooks("an alisis de
fruta 05-06").Worksheets("Fruta Analizada").Range("FRUTA_TJA_05_06"),
"TICKET", Workbooks("analisis de fruta
05-06").Worksheets("Referencia").Range("C6:F7"))
TM_Fruta = Application.WorksheetFunction.DSum(Workbooks("anal isis de
fruta 05-06").Worksheets("Fruta Analizada").Range("FRUTA_TJA_05_06"), "REAL
TONS", Workbooks("analisis de fruta
05-06").Worksheets("Referencia").Range("C6:F7"))


If I attempt to insert "=" or "<=" it returns null or empty, therefore zero
in the variable content. How it can be worked out?

A. Silva