runtime error 13

Hi there, Can somebody please help me refine my code so that when I delete cells in column C and D at the same time that I will not produce a run-time error 13 mismatch. Just because I have six other people using this sub and they have zero knowledge or VBA or resetting a sub. For context the...

Hi Everyone, I am a brand new member, although i have been using MrExcel for tips and information for a few years now. I am currently writing an excel macro to pull data from another workbook by finding the number 4 and using offset to pick the cells i want to copy and paste. The macro is...

Hi All, I'm grinding away at my first attempt at writing a code and I'm struggling with trying to input a date in a search field box. My current code results in runtime error 13: Type mismatch. Anyone more experienced able to shed some light for me? Kind regards, Ty The Website I'm...

Hi all, I've been using the below code to automatically enter today's date in column b when entering anything into column a - which has been working perfectly. Private Sub Worksheet_Change(ByVal Target As Range) ' If you update a cell in column A with a value and there is no date in the...

No idea what changed, but now this gets stuck at the Copy after line. Throws Runtime Error 13: Type Mismatch. Could someone let me know WHY and help me fix it??? Thanks in advance. : Sub OpenCopyOrange() '////Sub 1//////'////Sub 1//////'////Sub 1////// Application.ScreenUpdating = False...

Hello, My code is below and i am getting a run time error for a mismatch and have spent hours trying to figure out what is casuing it but i can't seem to figure it out Dim br, BL Dim u As Long Set BL = CreateObject("system.collections.arrayList") br =...

Hello people I have made following code but It was a time ago... I get error: Runtime error 13 : incompatible types see code below Sub CheckIND() 'IND=IND CHECK FIL;;;;;;;;;;;;;;;;;;;;;; For I = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).row If Cells(I, "J") = "IND"...

OK so I have a code where if there is a S in a column it will delete the row of the S and move the row over to another sheet, then if there is a D in the column it will simply delete the row indicated, but once I inserted the D part I am getting an error where if I put an S in the column I then...

The code below is supposed to look up the value of the number in a textbox named PCNumber and display a returned value in a label named PlayerName. This code works just as it is supposed to, except when the textbox is left blank. Private Sub PCNumber_Exit(ByVal Cancel As MSForms.ReturnBoolean)...

What I want is for the value of the active cell to determine the number of rows deleted - and then delete all duplicates. Here's my code: Sub test() ' ' test Macro ' ' Dim iRemove As Integer iRemove = ActiveCell.Value - "1" ActiveCell.Offset(1, 0).Rows("1:iRemove").EntireRow.Select...

The following macro works for worksheet with approx. 20,000 rows, however when I use this on a workshhet with approx. 95,000 rows I receive runtime error 13 (type mismatch). Could this be written in a better way?...Any advise? Sub Formatcorrectly() Dim I As Object...

Folks: I used a method to create an array that is actually a string, and captured account numbers (text values) like this: [CODE] strArray = "Array("111", "222", "333")" [End CODE] But I want to convert it to a variant like: [CODE] vntArray = Array("111", "222", "333") [End CODE] so that I can...

Hi, This is a follow up to a thread I've read here about values being entered into cells before being able to save the excel file. http://www.mrexcel.com/forum/excel-questions/433912-must-fill-cell-before-being-able-save.html The solution here is fine for one cell, but what I am trying to...

Hi everyone. I'm developing a program to simulate losses. The error appears on the line for the formula of n. Random = Rnd() r = ActiveSheet.Cells(11, 1).Value s = ActiveSheet.Cells(12, 1).Value n = WorksheetFunction.LogInv(Random, r, s) I badly need help. Thanks in advance.

I have an excel spreadsheet that has a list of names in Column A (rows 2 through 6). It has a list of categories in Row A (B through X). In my code I identified the person names with NameItem and the categories with CatItem and defined both as Variant in Module 1. I am struggling with why my...

Hi, i am new to VBA I am simply trying to add the rows in 2 colums into a rd column. i wrote columns(3).value= columns(1).value+ columns(2).value but it gives runtime error 13. Any help on this.....please reply soon....gotta make this work till tomorrow!! thanx in advance.