Help finding colum with VBA

[Jennifer]

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("Resource
Info").Range(xlRng2), "QA",
xlApp.WorksheetFunction.SumIf(xlApp.Worksheets("Resource
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

[Don Guillett]

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

--
Don Guillett
SalesAid Software
donaldb@281.com
"Jennifer" <Jennifer@discussions.microsoft.com> wrote in message
news:4024A5D8-9025-4019-A167-538FF2C8250A@microsoft.com...
> 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("Resource
> Info").Range(xlRng2), "QA",
> xlApp.WorksheetFunction.SumIf(xlApp.Worksheets("Resource
> 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