Iterating through cells problem

  • Thread starter Thread starter heenchi
  • Start date Start date
H

heenchi

Hi everbody!

I encounter a problem with a sub of mine. It generates a runtime error
Incompatible types in the line marked.
(This is a simplified version of the macro that generates the sam
error..)

Dim pTabell As Range
Dim id As Range

Set pTabell = Range("A6:H370")

If Union(Range("G27"), pTabell).Address = pTabell.Address Then
For Each id In pTabell.Columns(1) <----ERROR
If id.FormulaR1C1 = Range("G27").FormulaR1C1 Then
id.Offset(0, Range("G27").Column - 1).Value
Range("G27").Value
End If
Next id
End If


If I switch the For Each... line to
For Each id In Range("A6:A370") (Which is what I intend in th
previous code..)
then it works like planned.

Isn't the pTabell.Columns(1) and Range("A6:A370") addressing the sam
range?

What am I doing wrong?

/Henri
 
Hi Henrik,

Try changing:

For Each id In pTabell.Columns(1)
to :
For Each id In pTabell.Columns(1).cells
 
Back
Top