error "13" type mismatch

Hello all, I have problem with VBA macro in excel. I see error 13 type mismatch, after try to import data to excel sheet. First macro import data from several files from the specified folder (*.xls excel files), but it stop with error at: "If Target.Column = 1 And Target.Row > 1 And Target <>...

Hello everyone, I keep facing this pop-up window eventough the VBA code works well. Anyone can help what's wrong with my code? i'm kinda new to these codings. Private Sub Workbook_Open() Dim Issue As String Dim RowNrNumeric As Integer Dim RowNrString As String Dim CloumnNameIssue As String...

Hey, I'm trying to get the value (text) from one cell (works) and then find all other matching cells in the document and highlight them with color. The first part until Next MyCell works perfectly, my problem is that this code wouldn't find the word f.e. "After" if I'd search for "Aft" or...

Hi, I have a file with several scripts running in which users enter various code using barcodes and for the most part it work fine but the code reader sometimes write random stuff. I added a check to discard that stuff but there's an issue when it write something that excel cannot accept like...

Hi All, I have a button my protected excel sheet named " Delete line item" . This is the following code: Sub del() Call shtdeclaration rowval = InputBox("Which row would you like to clear", "QA_Matrix") If CInt(rowval) <> 0 Then Application.EnableEvents = False sht_Reactive.Unprotect...

I am trying to find the 6 rightmost letters in specific cells. Code is the following: toggleCheck = addMe.Offset(0, 17).value Set togGle = [RIGHT(toggleCheck,6)] Error 13 is on the Set line, both variables are dim as variant

I am trying to populate a ListBox with a dynamic range, but I get a mismatch error on the .rowsource assignment. Hoping someone can shed some light on how I am supposed to assign the dynamic range to the row source. Private Sub AddButton_Click() 'Add Item to Order Dim OrdSum As Worksheet...

Hi - I am a complete newbie to VBA, but my boss asked me to find a 1-click way for my less tech-savvy colleagues to modify a spreadsheet we receive regularly from a third-party. In column E is a list of currency values. I need to copy the original values from E to D, then replace the values in...

Hi, I am trying to make a macro that groups up rows and sums the amount of items that they have on a column, I made it so it works but after a few rows it just crashes and displays Error 13: Type mismatch. When I open the code it highlights this line The code is this one: I can't come up with...

Hey all, I have a macro that filters a table, and then fills out a few columns of another table with totals based on the filtered table. Most of the time, it works perfectly, and is tremendously much faster than a sumifs in the worksheet. Unfortunately, out of 160 iterations, it errors out...

I search for data (it's my Find Next macro) using the following line which works fine ONLY as long as the cursor is in column B. Otherwise i get an error, Run-time error "13" Type Mismatch. ActiveWorkbook.Worksheets("Contacts").Columns(2).Find(FTW, After:=Range(foundtxt)).Select How do...