VBA Lost Access To IE And Stopped Working - Runtime 438 Error
Feb 17, 2013
I'm scraping a website for some data using the following program. The program was working as expected until I decided to add a save file element that was a copy paste of some code a friend gave me (attached below). Funny thing is the save file functionality works but now I can't get IE to load the webpage - I get a 438 Error. I'm thinking there's a problem with something in the references menu.
Code:
Sub GET_PVI()
Dim Days_in_Month(1 To 12) As Integer
Dim Name As String
[Code]....
View 2 Replies
ADVERTISEMENT
May 15, 2014
I have a Macro button in my Excel Spreadsheet, every time I close the spreadsheet it gives me this error "Microsoft Excel Stopped Working" .
I have attached Spreadsheet to show example : Inventory List.xlsm
View 2 Replies
View Related
May 3, 2006
I'm getting the error for the following piece of code.
Sub itconfandscratch()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Server_Name = "sturecord"
Database_Name = "Scratch" ' Enter your database name here
SQLStr = "SELECT stuname FROM dbo.sturec" ' Enter your SQL here
Set Cn = New ADODB.Connection
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & ""..............
View 2 Replies
View Related
Jul 16, 2014
The following script runs fine the first time I click the command button on an Access form but after I close the Excel workbook and click the command button again to edit a new spreadsheet, I get the follow error message:
Run-time error '1004': Method "Columns' of object'_Global failed.
It fails here:
Code:
Columns("H:H").Select
The script is being run from Access 2007 and is opening a spreadsheet in Excel 2007 (but using xls extension)
Code:
Private Sub IdahotoExcel_Click()
Dim dlg As FileDialog
Dim idahofile As String
[Code].....
View 5 Replies
View Related
May 3, 2012
This first macro works fine:
Sub UnhideHBPorCholesterolQ1toQ3()
'
ActiveSheet.Unprotect "password"
Rows("58:67").Select
[Code]....
why the second macro does not seem to work. I get a Run-time error that says "Unable to set the Hidden property of the Range Class".
View 1 Replies
View Related
Jun 22, 2008
I recently got a new laptop. I now have excel 2007 and vista. The debug step key, F8, does not work. It toggles out of excel when pushed. If I start the procedure in the debug menu, the SHIFT - F8 will step through though. Is there a setting I am missing? It must have somehting to do with VISTA since in the debug section it says to use F8.
View 3 Replies
View Related
Apr 18, 2012
I have been working on a workbook, and all of a sudden, my keyboard no longer worked in Excel. No shortcuts, no CTRL+C, no CTRL+V, no CTRL+S, no CTRL+A, no F12 to save, no letters, no numbers.... The only button that is working is my ALT key, and I use the other letter keys just fine to navigate after pressing ALT.... But that's it!
I have still been able to work on it because I can still write in Word, and I can still write more code in the Visual Basic window, and I can still click the buttons I create under the Developer... but it's still frustrating to not be able to type a thing in any of the cells, formula bar, or be able to use any of the shortcuts. And now when I tried to close it, I can still select everything else, and I can close this workbook, but it won't close Excel.
View 3 Replies
View Related
Aug 17, 2007
I have a simple macro that from Outlook Express sends emails, with the last code line to mimic ALT+S on the keyboard to send the message
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Yesterday I needed to install some new software that required at the end reinstalling of Microsoft Redistributable 2005. Not sure if for that reason but now the last line (the SendKeys) is not sending the email automatically anymore. What happens is:
-the email message windows pops up but is not being sent unless i do it manually (if i get rid of the two seconds pause ahead of that)
-have a VB error message that takes me before the SendKeys line (if I keep the two secs wait ahead of that)
It looks to me that either:
-the pc is not active anymore on the email message therefore the SendKeys doesnt work
-somehow the instruction finds the "door" shut by something else
-worse of all, the software has messed up with those send keys commands (tried to reinstall it but to no avail)
View 13 Replies
View Related
Dec 14, 2007
All my macros have suddenly started crashing Excel 2007 when I try to run any one of them. I can record a new macro but even that newly recorded macro will crash Excel.
Service Pack 1 was downloaded and installed by Windows Update two days ago and I had successfully run macros after SP1 was installed.
Today, it's a no go and I'm at a loss as to what may have caused this problem. I have not installed any software lately, other than the Windows updates on patch Tuesday.
This is on a Vista Home Premium machine.
When I try to run a macro, Excel crashes with this info:
View 11 Replies
View Related
Jan 16, 2012
why my Macros have suddenly stopped working for no apparent reason?
For Example - one macro would run when a Cell in Column A was selcted. It would trigger a macro to save the workbook.
I'm not giving details of what the specific macros do as it's more of a question as to why macros in a workbook just suddenly cease to function.
View 4 Replies
View Related
Feb 25, 2014
I use this formula in a depreciation schedule to determine months in service.
=ROUND(((DAYS360(G12,$Y$1,FALSE)/30)),0)
G12 is my start date and $Y$1 my end date. Every month I update this to the current period end date and up until now, it has recalculated.
Today, I changed $Y$1 from 1/31/2014 to 2/28/2014. The cells with that didn't update. For giggles, I entered in previous dates, and it worked fine.
Is it because 2/28/14 is a future date? I tried 2/24/14 with no joy...
View 1 Replies
View Related
Feb 20, 2007
What could make this line of code stop working. It has worked for weeks, and just yesterday it stopped working. :x
ActiveWorkbook.Sheets("Email").UsedRange.AutoFilter Field:=2
The sheet is unprotected, and events are enabled. I don't know of anything different than before. What do I look for that would not allow this code to run?
View 9 Replies
View Related
Aug 11, 2009
I made a spread sheet last year that used various COUNTIF formulas that referenced other cells. =COUNTIF(I40:ER40,"A") It worked perfect.
I copied that spreadsheet to use for this year. I cannot get this formula to work. I have reentered in various locations and forms, but to no avail. If I enter the data and then enter the formula, it works.
However, if I enter the formula first and then enter the data (which I will do over the course of the year) it does not work. I even tried to reconstruct all of this in a brand new spread sheet and it still is not working, although last year's spread sheet still works.
View 3 Replies
View Related
Dec 1, 2009
When the date changed today it stopped working and I cant see why as i have altered the dates that it looks at.
View 4 Replies
View Related
Sep 12, 2013
I've got a spread sheet at work that is shared between 4 people. It's password protected and its been protected so only four of us can edit it. It was working fine until yesterday for no reason the auto filter stopped working. The drop down arrows are still there but nothing happens when you click on them?
The sheet was made on excel 2003 but one of the users uses the newer excel which we will all eventually get.
View 2 Replies
View Related
Aug 3, 2012
This vlookup has been in this workbook for years. All of a sudden any of the cells that have formulas won't work without placing the cursor after the formula in the bar and hitting enter.
It is keeping a marco from running correctly.
View 2 Replies
View Related
Jan 15, 2013
I'm working on a macro that does the following:
1. Pull data from the internet
2. Perform calculations on the data
3. Graph the calculated values
- As I run the macro, Excel dies in step 3, where I graph the calculated values.
- It works about 5% of the time and gives me the "Excel has stopped working" error 95% of the time - I can't isolate any difference in the attempts
- I've located the area in the macro where it dies, but I can't identify the exact line since it seems to shift around in this area
- It works perfectly fine when I step through using F8
- I've attempted DoEvents and Application.Wait to debug. Application.Wait for 5 seconds allows the macro to work about 50% of the time and increases in efficiency the longer I wait
- Steps 1 and 2 work perfectly fine (I've used that code in many macros), so I'm pretty sure the issue is in the below code:
I'm running Windows 7, Office 2010
Code:
'Chart variables
Sheets("Summary").Select
Dim ChartRange As Range
[Code]....
View 4 Replies
View Related
Jul 31, 2012
I have been working on this application for the past couple weeks and I have this module of code that copy's a worksheet into a new workbook and changes everything into values. However I have added buttons onto this sheet and after running the code again it froze the program, in which I had to manually end. It gave an error afterwards however I don't remember what it said. Now everything I try to run or step through it, nothing happens. And I have turned Events and ScreenUpdating on.
I would also like to note that it won't allow me to perform actions like unhide sheets or unprotect them. The code has not been changed either so what has happened to disable all functionality.
[URL] .....
View 1 Replies
View Related
Jul 30, 2012
I have been working on this application for the past couple weeks and I have this module of code that copy's a worksheet into a new workbook and changes everything into values. However I have added buttons onto this sheet and after running the code again it froze the program, in which I had to manually end. It gave an error afterwards however I don't remember what it said. Now everything I try to run or step through it, nothing happens. I have turned Events and ScreenUpdating on.
View 2 Replies
View Related
Jun 10, 2013
I have created several reports containing pivot charts with slicers, pivot tables and data sets. Total file size is around 5MB. Need to do an update in my pivot table Like adding an additional grouping on one of my dimensions. As soon as I start doing so the Microsoft Excel stopped working error message pops up and my file crashes! Removing existing groupings seems for some reason to be impossible as well: nothing happens when I do this. Ahow to solve this without having to rebuild all my reports?
View 1 Replies
View Related
Aug 23, 2013
When I copy or cut, I usually get a dashed border around the cells I have copied (or cut), I can then right-click somewhere to paste, but at some point in time recently this functionality has stopped working. The format painter doesn't work either - the paintbrush icon stays pressed for about half a second, then just goes away and I can't paste my formatting.
An operation I often do in excel is to copy a date from one cell, then highlight a few cells elsewhere and press enter to paste the date into them. I also like to right click on a row and Cut, then past it further down my list to re-order things, but this won't work either.
I don't know what I've done to make it go away. If I restart my computer and open a workbook, then I can copy/paste at least once (maybe a few times) then it stops again.
This is caused by a Skype 'click to call' function, but I don't have that installed here. I have actually just tried installing it, so I could run through the uninstall (thinking there might be debris from something previously), but it made no difference.
View 2 Replies
View Related
Jan 25, 2008
We have an excel template with numerous VBA and Macros embedded within it, saved on a central drive. I am able to access this file ok, however, when I save it when it is reopened by either myself, or a colleague, we get the "File error: data may have been lost" message. Everyone else within my organisation can open the template, edit, and save and subsequently reopen the spreadsheet without any problems at all.
One thing I have noticed, which to me seems strange is that the files I save that have the "error" message are slightly smaller in size than the ones my colleagues save (350kb vs 417kb)
My IT department have tried unintalling Excel and reinstalling, and also rebuilding my profile, all to no avail. A trainer has sat with me to check I am not using the spreadsheet incorrectly (or differently to anyone else, and this is not the case).
View 9 Replies
View Related
Mar 23, 2004
I know, I know... should've backed it up... there exists no other copy of the file in question newer than it's initial creation two weeks ago (been working on it solidly since).
The data does appear to be there but, rather mixed up... does anyone know of any methods/tools/software that might be able to salvage as much of the data (needs to be in it's original structure as it's a cross match excersice) as humanly possible?
View 9 Replies
View Related
Jun 28, 2007
I have created some Excel files using Excel 2000 on Windows Server 2003. The Excel version is given as 9.0.6926 SP-3. When I open them using Excel 2000 in Windows 2000 after a few sheet deletions I get the error message "File Error: Data May Have Been Lost" when opening the files. The Excel version is given as 9.0.8948 SP-3 in Windows 2000 (why is it different to the version number in Server 2003? Could this be part of the problem?) It crashes on this line
If Sheets(3). Name <> "template" Then
with the error "Run time error 32809 Application defined or object defined error".
The template sheet is very hidden. When I try and unhide it I get the 32809 error again.
View 8 Replies
View Related
Dec 19, 2006
the spreadsheet needs to be copied to a directory called "C:downloads" as it contains a ODBC query to itself (In reality, this is a query to an External Oracle Database)
On loading, it should pop up a simple userform, with a combo and two command buttons, which when pressed takes you to a (hidden) tab that displays a pivottable.
All works well until I try to close /save when 60% of the time, Excel encounters problems and closes and will not load up the file the next time until either quit excel or disable macros. Messages include "file/path access error", "I/O Error" or get restarts excel.
On a casual run through, I expect you might report back that "All worked ok for me". Please can you give it a bit of a thrashing, comment out the userform show, save the file (frequently) becuase i assure you it will break ultimately!
This is a brand-new file and I've tried it on about 5 different PC running different versions of Excel and generally get the same result.
View 7 Replies
View Related
Jul 6, 2006
The code thats generating the error is the following:
For Y = 8 To 131
TmpDate = Empty
Range("A1").Value = "=" + Path + Sheet + "B" + CStr(Y)
TmpDate = Range("A1").Value
For Langd = 1 To Len(TmpDate)
TmpChar = Mid(TmpDate, Langd, 1)
If Not TmpChar = " " Then
TmpComp = TmpComp + TmpChar
End If
Next Langd
TmpDate = TmpComp
TmpComp = Empty
If Len(Dag) = 1 Then
Dag = "0" + CStr(Dag)
End If
Macro continues before the Next-statement...
(it might not be good programming, but I think it should work).
A little explanation to the code.
I have a spreadsheet located on the intranet that has values I need in my spreadsheet. These figures are sorted by date, so I search for the date to find the right figures.
The line Range("A1").Value = "=" + Path + Sheet + "B" + CStr(Y)
works prefectly. I can see the value in my spreadsheet in the cell A1. its the next line that causes the error "Type mismatch".
The value I get from the intranet spreadsheet looks similar to this:
"1 Jul 2006 " (note all the spaces).
What I do is just run it through a loop and cut of all spaces so it will look like this: "1Jul2006" to be sure I dont miss a space or anything.
Now to the funny part.
The error only happens at runtime on the first go.
If I chose to END the macro then and there, and then run it again from the top it works perfectly.
If I set a stopsign to debug the code, it works perfectly on the first go too.
Can anyone explain to me why that happens??
I know enough about programming to handle my syntax errors and so on, but I cant see anything wrong in this one...
Please note that this isnt the the entire code.
I'm building a report on 12 diffrent spreadsheet. The main macro is almost 2000 rows of code, and it call other Subs too (because of limitations in the VBA-editor. A macro cant to be too big), so its impossible for me to post the entire macro...
View 9 Replies
View Related
Mar 5, 2007
if I leave the inputbox blank I get an Excel error. I.e. it says that the formula I tried to type contains an error..... Is the Type:=8 not working properly here?
Dim Addr As Range
On Error GoTo Problem
Set Addr = Application.InputBox( _
Prompt:="Enter or Select a cell in the last record", _
Title:="Select Last Record:", Default:=Selection.Address, Type:=8)
If Addr Is Nothing Then Exit Sub
Edit: I guess I should mention that I am trying to retrieve a cell reference from the user via an input box. This cell reference will help me determine the last record in the spreadsheet.
View 9 Replies
View Related
Sep 18, 2007
In Excel 2003 I have made a model for evaluating co-workers. The model consist of a number of different questions regarding performance. At the top of the sheet, the user have to select som data from a drop down list, and depending on the answer (upward or downward), som of the questions in the sheets is hidden or shown. For this purpose I have created this string of VB-code in the sheet:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$5" And Target.Value = "Upward" Then
Rows("20:41").EntireRow.Hidden = True
ElseIf Target.Address = "$E$5" And Target.Value = "Downward" Then
Rows("20:41").EntireRow.Hidden = False
ElseIf Target.Address = "$E$5" And Target.Value = "" Then
Rows("20:41").EntireRow.Hidden = False
End If...........
View 3 Replies
View Related
Oct 30, 2008
He's the issue i'm getting with the code...
Public Sub Auto_Open()
wrkbkName = Application.ActiveWorkbook.Name
'this little snippet of code determine which branch the user is at
'based on the ip address
'if ip is like 192.168.1.xxx then we on welthsrvr
ipadrr = GetIPAddresses(True)
If Left(ipadrr, 9) = "192.168.1" Then
View 9 Replies
View Related
Dec 14, 2008
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("G9:BF94")) Is Nothing) Then
With Target
If Not .HasFormula Then
.Value = UCase(.Value)
End If
End With
End If
End Sub
However when ever I select more than one cell which already has text in it and press delete I get a runtime error 13 and the debugger highlights this line:
.Value = UCase(.Value)
View 9 Replies
View Related
