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? - 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
2 1279
My first thought would be, perhaps the cell in question contains a null, or an error, or even a number. Since you're comparing it to a string, the null or error would quite probably cause a problem. As for the number... maybe, maybe not. Anyway, I'd recommend you go into debug mode at the point where the error occurs, and examine the contents of Cells(I, 10).
An interesting side note is that unless this is the newer VB.Net syntax (which it certainly dodsn't look like), only XAxis() and Y are defined as Integer. All the rest (apart from Risks() which is String, of course) are defined as Variant, the default type. Were you aware of that?
I did wonder at first whether perhaps this meant that I was of the wrong type and thus producing the error. But the fact that you're placing a numeric value in it (@ line 6) probably squashes that idea.
kadghar 1,295
Recognized Expert Top Contributor
If the value of I is an integer between 1 and 65536 when you get to that line, it shouldnt give you a type mismatch, since it makes an implicit type conversion from a cell (actually a range) to a string. Anyway, explicit changing the type might be of help here: - If cstr(Cells(I, 1).value) <> "" Then
HTH
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: Arun Wadhawan |
last post by:
Hello
MY SQL Server is causing me this problem :
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'ident'
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
I am getting from...
|
by: LJgrnl |
last post by:
I've got a type mismatch error that's driving me nutty. Variable blnNoData
has the initial value False. If a recordset comes back empty (both .EOF and
..BOF are true) then blnNoData is set to...
|
by: Mike |
last post by:
I am getting a type mismatch error when I do a bulk insert.
---Begin Error Msg---
Server: Msg 4864, Level 16, State 1, Line 1
Bulk insert data conversion error (type mismatch) for row 1, column...
|
by: news.paradise.net.nz |
last post by:
I have been developing access databases for over 5 years.
I have a large database and I have struck this problem with it before
but can find nothing in help or online. Access 2000
I have a query...
|
by: amitbadgi |
last post by:
I am getting teh following error while converting an asp application to
asp.net,
Exception Details: System.Runtime.InteropServices.COMException: Type
mismatch.
Source Error:
Line...
| |
by: Brett |
last post by:
I have a form that calls a method within a DLL. By clicking a button on the
form, the DLL is instantiated and the SaveOutlookMessage() method invoked.
The DLL code copies messages from Outlook to...
|
by: Howard Kaikow |
last post by:
I'm doing a VB 6 project in which I am trying to protect against type
mismatch errors.
Is the process any different in VB .NET?
Here's what I'm doing in VB 6.
I have an ActiveX DLL.
The...
|
by: jodyblau |
last post by:
I have a database which works fine until I create and MDE file. Once I
create the MDE, when I open a particular form I get a "Type Mismatch"
error.
Because its an MDE file, I can't step through...
|
by: zz12 |
last post by:
Hello, is there a setting in IIS 5.0 that would quickly fix the following
error?:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
It's strange because some of our .asp pages were...
|
by: nckinfutz |
last post by:
hello, I am having a problem with an access database. this is not my database and I did not create it, nor am I very good at access. however, I am a network engineer and that is why this problem...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
| |
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The...
| |
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |