Error Number 13 Type Mismatch
Contents |
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn more about hiring developers macro type mismatch error 13 or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x
Run Time Error 13
Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it error 13 type mismatch vba only takes a minute: Sign up Excel VBA Run-time error '13' Type mismatch up vote 5 down vote favorite 3 I created a macro for a file and first it was working fine, but today I've been opening and restarting
Error 13 Type Mismatch Vb6
the file and macro hundreds of times and I'm always getting the following error: Excel VBA Run-time error '13' Type mismatch I didn't change anything in the macro and don't know why am I getting the error. Furthermore it takes ages to update the macro every time I put it running (the macro has to run about 9000 rows). The error is in the between ** **. VBA: Sub k() Dim x As Integer, i As Integer, a As Integer error 13 type mismatch vb Dim name As String name = InputBox("Please insert the name of the sheet") i = 1 Sheets(name).Cells(4, 58) = Sheets(name).Cells(4, 57) x = Sheets(name).Cells(4, 57).Value Do While Not IsEmpty(Sheets(name).Cells(i + 4, 57)) a = 0 If Sheets(name).Cells(4 + i, 57) <> x Then If Sheets(name).Cells(4 + i, 57) <> 0 Then If Sheets(name).Cells(4 + i, 57) = 3 Then a = x Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - x x = Cells(4 + i, 57) - x End If **Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - a** x = Sheets(name).Cells(4 + i, 57) - a Else Cells(4 + i, 58) = "" End If Else Cells(4 + i, 58) = "" End If i = i + 1 Loop End Sub Do you think you can help me? I'm using excel 2010 on windows 7. Thanks a lot excel-vba excel-2010 share|improve this question edited Feb 1 at 18:20 Christian Schneider 10.1k11431 asked Jan 16 '12 at 19:52 Diogo 36113 add a comment| 5 Answers 5 active oldest votes up vote 7 down vote You would get a type mismatch if Sheets(name).Cells(4 + i, 57) contains a non-numeric value. You should validate the fields before you assume they are numbers and try to subtract from them. Also, you should enable Option Strict so you are forced to explicitly convert your variables before trying to perform type-dependent operations on them such as subtraction
Forums Excel Questions Excel VBA Run-time error '13' Type mismatch Page 1 of 2 12 Last Jump to page: Results 1 to 10 of 16 Excel VBA Run-time error '13'
Run Time Error 13 Type Mismatch Excel
Type mismatchThis is a discussion on Excel VBA Run-time error '13' Type mismatch within
Error 13 Type Mismatch Vbscript
the Excel Questions forums, part of the Question Forums category; Hi! I created a macro for a file and first error 13 type mismatch access 2010 it was working fine, but today I've been oppening and ... LinkBack LinkBack URL About LinkBacks Bookmark & Share Digg this Thread!Add Thread to del.icio.usBookmark in TechnoratiTweet this thread Thread Tools Show http://stackoverflow.com/questions/8885506/excel-vba-run-time-error-13-type-mismatch Printable Version Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode Jan 16th, 2012,02:32 PM #1 diogoo New Member Join Date Jan 2012 Posts 4 Excel VBA Run-time error '13' Type mismatch Hi! I created a macro for a file and first it was working fine, but today I've been oppening and restarting the file and macro hundreds of times and I'm allways guetting http://www.mrexcel.com/forum/excel-questions/605786-excel-visual-basic-applications-run-time-error-13-type-mismatch.html the following error: Excel VBA Run-time error '13' Type mismatch I didn't change anything in the macro so dont know why am I gueting the error. Furthermore it takes ages to update the macro everytime I put it running (the macro has to run about 9000 rows). The error is in the in red part. VBA: Sub k() Dim x As Integer, i As Integer, a As Integer Dim name As String name = InputBox("Please insert the name of the sheet") i = 1 Sheets(name).Cells(4, 58) = Sheets(name).Cells(4, 57) x = Sheets(name).Cells(4, 57).Value Do While Not IsEmpty(Sheets(name).Cells(i + 4, 57)) a = 0 If Sheets(name).Cells(4 + i, 57) <> x Then If Sheets(name).Cells(4 + i, 57) <> 0 Then If Sheets(name).Cells(4 + i, 57) = 3 Then a = x Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - x x = Cells(4 + i, 57) - x End If Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - a x = Sheets(name).Cells(4 + i, 57) - a Else Cells(4 + i, 58) = "" End If Else Cells(4 + i, 58) = "" End If i = i + 1 Loop End Sub Do yo
Du siehst YouTube auf Deutsch. Du kannst diese Einstellung unten ändern. Learn more You're viewing YouTube in German. You https://www.youtube.com/watch?v=c_DOFZtNuJo can change this preference below. Schließen Ja, ich möchte sie behalten Rückgängig machen Schließen Dieses Video ist nicht verfügbar. WiedergabelisteWarteschlangeWiedergabelisteWarteschlange Alle entfernenBeenden http://software-solutions-online.com/excel-vba-strings-common-errors-when-using-strings/ Wird geladen... Wiedergabeliste Warteschlange __count__/__total__ VBA Run-Time Error '13' Type Mismatch EverydayVBA AbonnierenAbonniertAbo beenden758758 Wird geladen... Wird geladen... Wird verarbeitet... Hinzufügen type mismatch Möchtest du dieses Video später noch einmal ansehen? Wenn du bei YouTube angemeldet bist, kannst du dieses Video zu einer Playlist hinzufügen. Anmelden Teilen Mehr Melden Möchtest du dieses Video melden? Melde dich an, um unangemessene Inhalte zu melden. Anmelden Transkript Statistik 41.398 Aufrufe 13 type mismatch 16 Dieses Video gefällt dir? Melde dich bei YouTube an, damit dein Feedback gezählt wird. Anmelden 17 3 Dieses Video gefällt dir nicht? Melde dich bei YouTube an, damit dein Feedback gezählt wird. Anmelden 4 Wird geladen... Wird geladen... Transkript Das interaktive Transkript konnte nicht geladen werden. Wird geladen... Wird geladen... Die Bewertungsfunktion ist nach Ausleihen des Videos verfügbar. Diese Funktion ist zurzeit nicht verfügbar. Bitte versuche es später erneut. Veröffentlicht am 30.04.2014VBA Errors are always a pain. In this Video we review what commonly causes the run time error 13-~-~~-~~~-~~-~-Please watch: "Excel VBA Request a Video" https://www.youtube.com/watch?v=NO7Ew...-~-~~-~~~-~~-~- Kategorie Bildung Lizenz Standard-YouTube-Lizenz Mehr anzeigen Weniger anzeigen Wird geladen... Anzeige Autoplay Wenn Autoplay aktiviert ist, wird die Wiedergabe automatisch mit einem der aktuellen Videovorschläge fortgesetzt. Nächstes Video How to Fix R
I will explain some of the most common errors people encounter while working with strings. For more information regarding string commands please visit VBA Excel String Processing and Manipulation. You can download the codes and files related to this article here. Jump To: Type Mismatch (Run-time Error '13'), When Adding (Concatenating) Strings Application-Defined or Object-Defined Error (Run-Time error ‘1004') When Referencing Ranges Using the String Notation "A1:B1" Getting Incorrect Results When Adding (Concatenating) Strings in a Loop Type Mismatch (Run-time Error '13'), When Adding (Concatenating) Strings: You might be attempting to make the string "Data10" by adding the string "Data" and the number 10, and suddenly a msgbox shows up saying: Type Mismatch (Run-time Error '13'). The reason is that strings can only be added (Concatenated) with another string. You can't add a string with another data type. The following examples will all cause the Type Mismatch (Run-time error '13') exception: Sub Example1()
Dim strTemp As String
Dim intTemp As Integer
intTemp = 10
'Type Mismatch Error
strTemp = "Data" + intTemp
End Sub
Sub Example2()