type mismatch error

I have been getting a type mismatch error with the following code. I believe it is happening within the 'if' statement. Sub Hold() Dim c As Range Set c = Range("C2000:C2050") Dim r1 As Long Dim r2 As Long Dim x As Long Dim i As Long For x = 2 To c.Cells.Count...

I have the following code that upon exit from Textbox87 first checks to make sure the user input a date in the correct format and that it is a valid date. Then it checks to see if it is a past date or a future date. I receive a Runtime Error 13 Type Mismatch error only if a nonsensical date...

I created a code for exporting calendar appointments from outlook. It runs perfectly for me, however we get code 13 error on one of my collegue's computer who is supposed to use the macro. The error is at the "Next" line, and she uses the same outlook version as me. Can anyone please help me...

I have an array of product specs, declared as type Variant. The 5th column is the price. I am trying to find product pairs according to a set of criteria, including pairs both priced above 6. I am getting runtime error 13, type mismatch in the colored part of below code excerpt: Dim ws As...

Hit type mismatch error at the saveas filename row , and i believe its because there is a mixture of string and integer for the variable in the filename. Can anyone advice on this? Dim prd as string, dept as string, yrs as integer prd=ThisWorkbook.Sheets("Main").Range("I10").value...

Hi everyone. I'm busy creating an application form for our company that will change based on the selections a user makes. I have VBA code that the MrExcel community helped me with a while ago that works fine with hiding/showing tick boxes. The first selection the user makes is to pick from a...

Hi All, Greetings, I am new to this forum or any online forum to be precise. In case I do or say something wrong please bear with me. I am new to excel and trying the below code to copy data after filtering to a new sheet(if you could tell me how to paste in the new workbook will be...

Good day, I'm getting this error on this tab that I duplicated and I'm not sure what the problem is. It worked fine until the change in sheet name and duplicating the tab, now neither the original tab or this one works properly. It was meant to detect if a cell has a value in it (it's a date)...

Code which I had in another (very similar) Excel project suddenly doesn't work, very simple code. Purpose is to set the min and max value for the X axis of a chart. There is only one chart on the sheet, I tried to loop through all charts in case I had the chart identified incorrectly somehow...

Hello, I have the following code, which opens up a dialogue box and allows the users to select 1 or more files at once. If the user does not select any files (i.e. they hit cancel), I want the macro to end. The code below works if the user does not select any files, however, if they do I get a...

Hi All! I am trying to put this worksheet function =IFERROR(VLOOKUP(SUBSTITUTE(E2,"/","-"),Master!$E:$E,1,FALSE),VLOOKUP(E2*1,Master!$E:$E,1,FALSE)) Into some VBA code that just drops the formula into a cell and copies it down the length of the data set. For some reason it is throwing me a...

Hi! I'll have a problem in VBA. The formula works fine as it is =SUMIFS(aa1tax;aa1date;">="&B8;aa1date;"<="&EOMONTH(B8;0))+SUMIFS(aa2tax;aa2date;">="&B8;aa2date;"<="&EOMONTH(B8;0)) even when i add a new sheet in the formula =SUMIFS(aa3tax;aa3date;">="&B8;aa3date;"<="&EOMONTH(B8;0)) But when a...

Hi all. I have a userform with 3 TextBoxes (ones having an issue anyway) to adjust the value in the respective cells on an Employee Information worksheet. The Balance is shown as a label.Caption using Application.VlookUp for the employee shown in a ComboBox called Reg2. Reg9, Reg10 and Reg11...

Hi, I am trying to get the date from last Column and trying to pass if statement Dim FstDate as Date Dim LstDate as Date Dim DateRng as Range Dim WS1 as worksheet, WS2 As Worksheet Set WS1=Sheets("Result") Set WS2=Sheets("Counter_Values) Set DateRng=WS2.Range("D2:D30000")...

Hi, I get a type mismatch error for the following Sub DeleteEmptyRows()On Error Resume Next range("A:A").Select Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub Regards, Hasib

I have a line of code which has worked fine for two years: Workbooks.Open Filename:="\\Grove7\docs\processing data.xls" but it has now stopped working. The file opens (i can see it in the background) but triggers a "Runtime Error -13 - Type mismatch" error and stops the VBA program I...

Hiya. I am having fun learning this vba stuff! But, I'm stuck. My Book contains businesses and address info, like this: <style>table { }tr { }col { }br { }td { padding-top: 1px; padding-right: 1px; padding-left: 1px; color: black; font-size: 12pt; font-weight: 400; font-style: normal...

I am trying to do a dynamic "Hide Rows" function where if a certain cell in a row has any value a number "1" will populate the A cell of that row, an example would be if cell B11 has value A11 will be equal to "1"... What I had the macro doing was hiding all rows where A = "" The code had been...

Hi all, Complete newbie here, but coming across an issue with my VBA code and I'm not sure how to fix! The only VBA code on this spreadsheet is below, which I am using for popping up message boxes when certain cell values are changed or selected from the data validation drop down. It works...

Hello everyone, I'm trying to create a macro to auto fill a form for me. There is a field called agent name. It requires one to place the agents ID, click find, and select them from a list. I am using their ID, so the "list" actually only contains one value. Even though its the only agent...