runtime error

Hi, I inherited a macro & it has worked in previous months but this month I am getting the data type mismatch error. I've done some digging & understand that is telling me its an unrecognized data type but I wanted to post the code to see if anyone sees somenthin obvious...theres a ton more code...

Hi all I'm struggling a bit with a Run-time error '6' Overflow. My code is only able to handle 32.767 cells so I assume the reason is a default Dim As Integer. If so I guees I only need to have Dim changed to Long but for some reason I can figure out how to do this in my For Each loop. And as...

In the attached spreadheet, I have a dynamic range defined which populates a dropdown https://dl.dropboxusercontent.com/u/63479593/Enterprise%20Release%20Project%20Dashboard.xlsm Dynamic Range Is =OFFSET(Projects!$C$1,1,0,COUNTIF(Projects!$C:$C,">""")-1,2) This populates a drop down in the...

Hello, I keep getting this windows script host error. Script: C\top 5 macro.vbs Line: 5 Char: 1 Error: Unknown runtime error Code: 800A9C68 Source: Microsoft VBScript runtime error Dim xlApp Dim xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook =...

I'm running an ADO query through Excel to insert up to 50k rows into a table. The query uses dSUM to get a running total for items by date, so it's likely that it is "calculation heavy". Even running directly in Access, it takes a moment to complete. When running it in Excel however, I get the...

I've created a macro that opens SAP, and downloads a number of different reports. It was working fine last week, but after an update to Windows 7 from xp (and excel 2007 to 2010), I now receive the following error during a loop in my code: Run-time error '619' The control could not be found by...

I'm running Access 2007 and have a table with several Excel file attachments (one attachment per record). Each record has a Type field to identify the various files. In VBA, I'm running a routine to save the Excel file to my hard drive. Here is an excerpt from my code: Set rs =...

I have been using this code as a macro to quickly highlight all items within a range under a certain value. i have just cut and pasted the code across several sheets and just changed the range of cells where it looks. cut and paste and change the range. over and over and over again. now im...

Hi, I have a problem with a vba project created some time ago. The project contains multiple userforms. On open a userform is shown, and based on some simple choices another userform is loaded. This is when the project gives the following error: Run-time error '21474178 (80010108)'...

Hi all I wrote some VBA code that navigates to a website, fills in search fields with data from a spreadsheet then takes relevent data from the website search results and places them back in the spreadsheet. The code includes the Internet Explorer "find" tool 'ExecWB 32, 0. Sometimes the...

hi all, I have created a userform and during runtime i am adding few controls (basically labels and multipages)to the userform. While i am running the code i am getting the "RunTime Error '-2147217848(80010108)' Automation error The object invoked has disconnected from its clients." When i...

Getting weird runtime error from code that should work: For x = 0 To (UserForm1.ComboBox1.ListCount - 1)If UserForm1.ComboBox1.List(x) = Userform1.ComboBox2 Then UserForm1.ComboBox1.RemoveItem (x): Exit For Next x Runtime error is as follows: Excel run-time error '-2147467259(80004005)'...

I'm trying to run a macro but I'm getting a run-time error - and it highlights the If..Then statement in the following code. Anyone know what its talking about when the error says "Object doesn't support this property or method"? Thanks in advance for any help, ieJason W Here's the code...

I'm trying to run a macro when the workbook opens. It was working fine, I'm not sure what changed. Code to run the macro: Private Sub Workbook_Open() Run "PopulateCB" End Sub Macro, which works when manually started: Private Sub PopulateCB() For i = 2 To Sheets.Count If Sheets(i).Visible =...

Hi Guys, I am trying to execute a simple find and replace statement... It needs to loops through all the cells in column H of the sheet called HIST. If it finds the value #N/A then it needs to replace it with the value 0.00 I have tried... Sub findrep() Dim target, cell As Range...

I have the following macro in a spreadsheet in 07 excel: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Not Intersect(Target, Range("D12:D36")) Is Nothing Then Application.EnableEvents = False Select Case...