435,396 Members | 2,501 Online + Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,396 IT Pros & Developers. It's quick & easy.

Nu 2 VB -- Type Mismatch Error

 P: 1 I inherited an Excel spreadsheet with a macro that is giving me a type mismatch error on the line with 'If Cells(I, 1) <> "" Then'. I believe the programming is looking for a variable when the accompanying spreadsheet only contains text. If this is true, how do I resolve? Expand|Select|Wrap|Line Numbers Dim Risks(20) As String Dim LH(20), Impact(20), Response(20), Trend(20), Change(20), NR(20), Del(20), XY(3, 3), XAxis(3, 3) As Integer Dim I, J, K, Flag, HI, MI, LI, RMax, Total, X, Y As Integer     I = 10 J = 1 Flag = 0 LI = 0 MI = 0 HI = 0   X = 1 Y = 1 While X <= 3     While Y <= 3         XY(X, Y) = 0         XAxis(X, Y) = 0         Y = Y + 1     Wend     Y = 1     X = X + 1 Wend     While Flag = 0       Sheets("Inputs").Select       If Cells(I, 1) <> "" Then               Risks(J) = Cells(I, 1)             LH(J) = Cells(I, 2)             Impact(J) = Cells(I, 3)               XY(LH(J), Impact(J)) = XY(LH(J), Impact(J)) + 1                 Response(J) = Cells(I, 4)             Trend(J) = Cells(I, 5)             Change(J) = Cells(I, 6)             NR(J) = Cells(I, 7)             Del(J) = Cells(I, 8)               I = I + 1             J = J + 1                                         Else               Flag = 1     End If Wend   Total = J - 1     RMax = 0   X = 1 Y = 1   While X <= 3     While Y <= 3         If XY(X, Y) > RMax Then             RMax = XY(X, Y)         End If Feb 25 '08 #1 