Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with an offset
Hi Guys, I get an error for 'countc = cell.Offset(0, 5).Value' when I run thi 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 Nex -- floe ----------------------------------------------------------------------- floep's Profile: http://www.excelforum.com/member.php...fo&userid=3685 View this thread: http://www.excelforum.com/showthread.php?threadid=56599 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with an offset
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with an offset
"Type mismatch" -- floep ------------------------------------------------------------------------ floep's Profile: http://www.excelforum.com/member.php...o&userid=36853 View this thread: http://www.excelforum.com/showthread...hreadid=565995 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with an offset
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Offset Problem | Excel Discussion (Misc queries) | |||
OFFSET PROBLEM | Excel Discussion (Misc queries) | |||
Offset VBA Problem | Excel Discussion (Misc queries) | |||
Help with OFFSET Problem Please | Excel Programming | |||
Offset Problem | Excel Programming |