Error 13 - Type Mismatch

[KG Old Wolf]

The code below works but I want to substitute the variables in red for the literals in blue. I can see the correct numeric values being obtained by the red variables. Yet, as soon as I substitute the red variables, I get an error 13 - type mismatch. The values in red are always numerics and are intended as displacement values for use by the offset.

I am still very new to VBA and may be missing something obvious. I tried DIM RR_Count as Integer but that gave me a different error.

Thanks for any thoughts or suggestions...

======================================================

'
' Fill Output Detail Fields
'
For BB = 0 To 15 Step 1
'
' RR holds the ROW ID from the selected record in Table_Input
RR_Count = Range("Table_Input").Offset(BB, 2).Value
'
' CC holds the COLUMN ID from the selected record in Table_Input
CC_Count = Range("Table_Input").Offset(BB, 3).Value
'
'
Range("K1").Offset(25, 0).Value = Range("Table_Input").Offset(BB, 5).Value
'
'
'
Next BB

 

[KG Old Wolf]

Solved -

I needed to put a sub-index in the line of code before the offset statement to limit the macro to a single cell within the range... i.e.

' RR will hold the ROW ID from the selected record in Table_Input
RR_Count = Range("Table_Input").Cells(1, 1).Offset(BB, 1).Value

I was inadvertently telling the macro to load all cells' data from the point of the offset cell to the end.