hate to be ungrateful cuz i'm really appreciating your help
but i'm stil getting an error 13- type mismatch
specifically at the last line
For i = 1 To dic.Count
If x(i-1) = 245 Then
counter = counter + 1
unknown = -1 * (y(i-1) - 1)
place = place + y(i-1)
Range("d" & place).Select
temp2 = "=countif(R[" & unknown & "]C[-3]:RC[-3],""azw"")"
Cells(counter, "g") = temp2
CELLS(COUNTER, \"H\") = Y(I-1) - TEMP2
thanks a bunch
--
narutard
------------------------------------------------------------------------
narutard's Profile:
http://www.excelforum.com/member.php...o&userid=25111
View this thread:
http://www.excelforum.com/showthread...hreadid=387584