Problem with an offset

[floep]

Hi Guys,

I get an error for 'countc = cell.Offset(0, 5).Value' when I run this code. Somebody knows what could be the problem ?

With Worksheets("Mechanismen volgens object")
Set rng = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
End With

For Each cell In rng
countc = cell.Offset(0, 5).Value
If cell.Offset(0, 2).Value = "x" Then
s = s & countc & cell.Value & Chr(10)
End If
Next

[Die_Another_Day]

what error are you getting?

Die_Another_Day
floep wrote:
> Hi Guys,
>
> I get an error for 'countc = cell.Offset(0, 5).Value' when I run this
> code. Somebody knows what could be the problem ?
>
> > With Worksheets("Mechanismen volgens object")
> > Set rng = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
> > End With
> >
> > For Each cell In rng
> > countc = cell.Offset(0, 5).Value
> > If cell.Offset(0, 2).Value = "x" Then
> > s = s & countc & cell.Value & Chr(10)
> > End If
> > Next
>
>
> --
> floep
> ------------------------------------------------------------------------
> floep's Profile: http://www.excelforum.com/member.php...o&userid=36853
> View this thread: http://www.excelforum.com/showthread...hreadid=565995

[floep]

"Type mismatch"

[Tom Ogilvy]

try this

Dim countc as String

.. . .

countc = cell.Offset(0, 5).Text

--
Regards,
Tom Ogilvy


"floep" wrote:

>
> Hi Guys,
>
> I get an error for 'countc = cell.Offset(0, 5).Value' when I run this
> code. Somebody knows what could be the problem ?
>
> > With Worksheets("Mechanismen volgens object")
> > Set rng = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
> > End With
> >
> > For Each cell In rng
> > countc = cell.Offset(0, 5).Value
> > If cell.Offset(0, 2).Value = "x" Then
> > s = s & countc & cell.Value & Chr(10)
> > End If
> > Next
>
>
> --
> floep
> ------------------------------------------------------------------------
> floep's Profile: http://www.excelforum.com/member.php...o&userid=36853
> View this thread: http://www.excelforum.com/showthread...hreadid=565995
>
>