Help finding colum with VBA
 

I need to be able to determine the column number for the date "1/1/2004" so
that I can substitute it into a range declaration used for a calculation.

The data comes to me in the following format:
Name Month Month Month Month 1/1/2004 Month
=======================================
Jeff 50 11 22 31 100 14
Bob 5 101 122 88 100 14
Jim 150 11 22 31 100 14

So the calculation I'm trying to build looks like this:
z = xlApp.ActiveSheet.UsedRange.Row - 1 +
xlApp.ActiveSheet.UsedRange.Rows.Count
Set xlRng2 = xlApp.Range(xlApp.Cells(4, 3), xlApp.Cells(z, 3)) 'Job
Family Column

y = xlApp.ActiveSheet.UsedRange.Column - 1 +
xlApp.ActiveSheet.UsedRange.Columns.Count
Set xlrng3 = xlApp.Range(xlApp.Cells(4, y), xlApp.Cells(z, y))

xlApp.Range("j27") =
xlApp.WorksheetFunction.SumIf(xlApp.Worksheets("Re source
Info").Range(xlRng2), "QA",
xlApp.WorksheetFunction.SumIf(xlApp.Worksheets("Re source
Info").Range(xlRng2).Offset(0, ColRef)))

Part of the problem here is that the "1/1/2004" COLUMN IS NOT ALWYS IN THE
SAME place each time I get the report. ANy help is appreciated

Help finding colum with VBA
 

Sub findcol()
x = Rows(1).Find("1/1/2004").Column
MsgBox x
End Sub

--
Don Guillett
SalesAid Software

"Jennifer" wrote in message
...
I need to be able to determine the column number for the date "1/1/2004"
so
that I can substitute it into a range declaration used for a calculation.

The data comes to me in the following format:
Name Month Month Month Month 1/1/2004 Month
=======================================
Jeff 50 11 22 31 100 14
Bob 5 101 122 88 100 14
Jim 150 11 22 31 100 14

So the calculation I'm trying to build looks like this:
z = xlApp.ActiveSheet.UsedRange.Row - 1 +
xlApp.ActiveSheet.UsedRange.Rows.Count
Set xlRng2 = xlApp.Range(xlApp.Cells(4, 3), xlApp.Cells(z, 3)) 'Job
Family Column

y = xlApp.ActiveSheet.UsedRange.Column - 1 +
xlApp.ActiveSheet.UsedRange.Columns.Count
Set xlrng3 = xlApp.Range(xlApp.Cells(4, y), xlApp.Cells(z, y))

xlApp.Range("j27") =
xlApp.WorksheetFunction.SumIf(xlApp.Worksheets("Re source
Info").Range(xlRng2), "QA",
xlApp.WorksheetFunction.SumIf(xlApp.Worksheets("Re source
Info").Range(xlRng2).Offset(0, ColRef)))

Part of the problem here is that the "1/1/2004" COLUMN IS NOT ALWYS IN THE
SAME place each time I get the report. ANy help is appreciated