Error 429. EXTRA.System
Jul 13, 2007
I've got this code that I use to open the active session of a program I use (EXTRA! 8.0). When I try to code it to open a specific new instance of the program, I get a run-time error 429. When I debug, it's stopping on the line where I get the new instance. I've searched on this issue, but I still don't understand what the problem is.
Sub log_in()
Dim Sys As Object
Dim Sess2 As Object
Dim lngOldSysTimeout As Long
Set Sys = CreateObject("EXTRA.System")
If Sys Is Nothing Then
MsgBox Prompt:="EXTRA! not properly installed on this PC." _
& " Terminating execution.", Buttons:=16, _
Title:="E!PC Not Properly Installed"
Exit Sub
End If
Set Sess2 = GetObject("C:Program FilesExtra!sessionsCCS2.edp")
If Sess2 Is Nothing Then
MsgBox Prompt:="DLC.edp not found. Terminating execution." _
, Buttons:=16, Title:="E!PC Not Properly Installed"
Exit Sub
End If
End Sub
View 2 Replies
ADVERTISEMENT
Mar 3, 2009
The macro below will generate a System Error '-2147417848 (80010108)' when executed as shown below but only when there is a value in the 6th column that ends in .0006(or .00061). It will however run if no empty cells are present after the cell with .0006 in the 6th column (i.e. J = 1 to 6). This can be avoided by using the "On Error Resume Next". What is strange is if the value ends in anything other than .0006(or.0061) in the 6th column it will work fine (i.e. .00062 or .0005).
In a new workbook I have the following values in A1:B6
1125924.4684333.2496895-1217.935514LOFT -1785884.895
2422123847.627 221.0003 -482.8184125LOFT -1698521.0006
The Macro:
Sub Macro1()
'
'
'On Error Resume Next
Application.Calculation = xlCalculationManual
Set OldWb = ActiveWorkbook
Set NewWb = Workbooks.Add
Application.ScreenUpdating = False
For I = 1 To 2
For J = 1 To 7
NewWb.Sheets("Sheet1").Cells(I, J) = OldWb.Sheets("Sheet1").Cells(I, J)
Next J
Next I
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
View 9 Replies
View Related
Mar 16, 2012
Sub OpenCalendarForm()
frmCalendar.Show vbModeless
End Sub
When I run this I get this halt "System error&H80070057 (-2147024809). The parameter is incorrect. I havn't been doing VBA in a while as I am retired now but I have used this particular statement many times in the past and never had this error before. I have made sure there no typos. I open another workbook which has forms opening and copy pasted the the routine into my other workbook but I get the same error.
View 2 Replies
View Related
Jul 10, 2007
I am trying to copy 8 adjacent cells in a sheet and paste them on another sheet as a picture (using copy picture method). I could do that 3/4 times, but after that I started getting the insufficient system resources error.
View 7 Replies
View Related
Jan 6, 2010
I have created workbooks for four health regions to collect data, which then needs to be resubmitted via FTP, but with de-identified data. The end users have little to no excel experience, thus had to make it simple as possible. Created a button that runs the macro (below) to deidentify (clear) all cells where there could possibly be personal identifying information. Runs fine on my cpu, but one user (so far) has received the error noted in the title. Both running excel 2003 with SP3 (I have version 11.8169.8172, user has 11.8316.8221), I have XP professional SP2, user has XP professional SP3. Spent hours searching and reading suggestions online, to no avail.
View 3 Replies
View Related
Aug 23, 2007
I have just signed up to the forums as I am having a very specific problem. I have looked on google and used the search feature (on several forums!) and found very limited information that is useful to me. I am having trouble with a very simple few lines of code in a macro. The code looks like this:
Function startmarketIDs()
Dim targeturl, writerow, readrow, textmass, xmlHTTP
targeturl = "http://lite.betfair.com/ Events.do?s=00010913z"
Set xmlHTTP = CreateObject("Microsoft.xmlHTTP")
xmlHTTP.Open "GET", targeturl, False
xmlHTTP.send
MsgBox xmlHTTP.StatusText
textmass = xmlHTTP.responsetext
MsgBox textmass
End Function
My problem occurs at the line "textmass = xmlHTTP.responsetext". The responsetext command is obviously causing problems because if I remove it, the code executes without error and the "xmlHTTP.statustext" says "OK". With the responsetext command left in, the code generates the following error: Run-time error '-1072896658 (c00ce56e)': System Error: -1072896658. If I change the targeturl to www.betfair.com, the code executes fine and I get a message box (as desired) with the source code of the website displayed. Without meaning to sound like Im answering my own question (!!), perhaps there is something about the url or the way in which I am using the xmlHTTP object that is causing the issue, I wondered if someone would mind inspecting my code and perhaps pointing me in the right direction?
View 2 Replies
View Related
Aug 23, 2012
I've been using a macro successfully for the last couple of years, but this morning when I went to use it, it decided to fail. I have a workbook which contains various spreadsheets. The macro that has failed performs the following tasks:
1. It copies a list of email addresss from an external workbook to a sheet in the current workbook (still works)
2. It copies the referral sheet I want to send to a new file, and saves it with an appropriate filename to an appropriate folder (still works)
3. The macro then creates an email with a standard subject line, attaches the new worksheet and emails it to each of the addresses as above (broken)
The error message is from Microsoft Visual Basic. "Run-time error '1004': Mail system failure. Check your mail installation."
I'm guessing there is a setting somewhere in Excel that has changed as part of an update.
I've been through a number of the options in the developer menu to remove any obvious restrictions (& reopened excel afterwards), but so far it hasn't resolved the problem.
For what it's worth, here is the macro code.
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Run "PullInSheet1"
Dim oldbook As String
[Code] .......
In case you're wondering about the pullinsheet code, I'll add it below - but I probably grabbed it from this forum a couple of years ago (like some of the above) & just made some changes.
Code:
Sub PullInSheet1()
Dim AreaAddress As String
'''''' Sheet11.UsedRange.Clear
Dim ClRange As String
ClRange = "= 'L:ADMINEMPLOY SERVICES" _
[Code] ........
There are a couple of things I've wanted to do to improve the macro, but I couldn't justify the need to spend time working it out (since writing spreadsheets isn't really my job). Since it's broken at the moment, I can...
1. I'd like to create a subject line that reflects the name of the person being referred. For some reason though, anything other than text in the cell reference caused an error for me. eg, I tried using concatenate to create my subject line, but it didn't work.
2. I'd like the copied sheet to contain all of the formatting of the original sheet. Presumably there is a paste option that will do this and I just picked the wrong one.
The mailsystem we use is Groupwise 8. I couldn't find any settings in that program that have been changed, or that I could change.
I should change the extension from xls to xlsx in the code since I'm using Excel 2010 (but changing it doesn't fix the problem).
View 4 Replies
View Related
Mar 26, 2009
i've been scrolling through the Uerforms extra controls and just wondered if there is a comperhinsive list of them and what they actually do?
View 2 Replies
View Related
Oct 31, 2008
In the below example each of the items listed in Row A have an extra space before the word, is there an easy way of taking that space out i've tried text to columns, paste special. Not sure what else can be done ...
View 9 Replies
View Related
Aug 27, 2009
How do I trim an extra word. I downloaded a list with an address field and it has an extra city in the address. Ex. 908 Taylor St_Wake Forest_Wake Forest
How do I get rid of the duplicate state?
View 9 Replies
View Related
Aug 14, 2008
I have an excel spreadsheet with Extra columns that have no data in them. I want to delete this columns so that there is no horizontal scroll, but highlighting and right-clicking and choosing delete isn't working. Not sure why. How can I delete?
View 2 Replies
View Related
Apr 7, 2009
I have an excel sheet which contains the data in blue. In another sheet I have the same data but with an extra code (red). For my question I have put both in one sheet. My problem is that I need to combine the extra code info in the sheet with the blue data. Both the blue column and first red column are identical.
View 4 Replies
View Related
Feb 26, 2014
I'm using Excel for holding lots of numerical data. Another software program pulls the information from Excel and is used to evaluate the data. The problem I am having is that some of the worksheets in my workbook have extra rows, and by "extra" I mean over 1,000 extra, blank, empty, rows. This means that in the other software program, it pulls over thousands of blank cells that have to be deleted every time it is opened.
View 6 Replies
View Related
Apr 30, 2009
I finally got the perfect code that works for me, to list a folder with path name.
if I select any root like C:, D:, E:, an extra backslash is added. can this be fixed that, what ever folder or root drive I select only 1 backslash is added. here is the code
View 2 Replies
View Related
Feb 1, 2010
create a macro that will create csv files for each worksheet of a workbook. The Macro works great. But i do have a requirement where i do not need extra commas (,) in the CSV. When the CSV are created for each worksheet, it adds additional commas in the end and my shell script throws it away becuase of the additional commas.
I have attached 3 files -
csvtest.xls - this has the macro which creates individual csv files for EACH worksheet in the workbook........
View 4 Replies
View Related
Aug 28, 2012
I have values in cell like,
1,2,3 & 4
10,11
8,9,10,11,12
etc.
the formula to get min and max from this string
for the first value Min = 1 and max = 4,
for the 2nd value Min = 10, and max = 11
fo the 3rd one Min = 8 and max = 12
View 3 Replies
View Related
Feb 14, 2008
1) I work with dozen's of tabs within workbooks, adding rows (that are numbered) etc. When I'm done and want to save the file, I usually go through this routine to make sure I'm at the top of each page before closing the file:
Ctrl-Home, Ctrl-Page Up, Ctrl-Home, Ctrl-Page Up ...through all tabs.
2) I also have to "add" all the extra line numbers (by dragging the last number I had in "row A", and filling down). I need to add the newly added rows to the "print area". Any easy way to do that?
View 9 Replies
View Related
Apr 23, 2009
I am calling a procedure from a commandbar button using on action.
With oButton
.Caption = "&Progress Report"
.OnAction = 'this bit please
.BeginGroup = True
.FaceId = 576
End With
Private Sub ProcessingRequest(ByVal shtRequest As String)
End Sub
View 9 Replies
View Related
Jun 5, 2007
I've got the following code for the attached worksheet. My problem lies at the end of the code where I'm trying to determine the length of characters in column A. I get a zero value after the last row with an actual value.
aLen = Range("A1").End(xlDown).Row - 1
but that bypasses the problem, rather than fix it. By the way, if you run the code, make sure you only have the worksheet "1" in the workbook.
Sub Test()
Application. ScreenUpdating = False
Cells.EntireColumn.AutoFit
'Delete foot symbol from distances
Columns("E:E").Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
'Sort & Copy Multipule pages
Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("1").Copy After:=Sheets(1)
Sheets("1 (2)").Copy After:=Sheets(2)
Sheets("1 (3)").Copy After:=Sheets(3)....................
View 2 Replies
View Related
Mar 29, 2008
i am writing Attachmate Extra Macro from excel to Attachmate. I have problem with that macro . where can i post to get answer. it is like vba code .
View 4 Replies
View Related
Aug 6, 2009
the Ruler across the top that allows you to adjust the column widths (A B C D etc). Is it possible to insert another Ruler, further down the same page, to allow you to adjust the column width differently. if so how. On Excel 2007
View 2 Replies
View Related
Sep 2, 2009
I've created spreadsheet to look after scores & handicaps in a golf society. I'm trying to add extra spaces so that if new members join they can easily be added without me having to add all the extra rows,change formulas at the time.
However I'm getting stuck when trying to sort the table in 'Championship Leaderboard' sheet, basically I only want to sort actual playing members, not the ones marked 'Test'. I've only marked them as 'Test' whilst trying to do this, but they will be blank eventually.
Error values keep popping up, and as a result it won't sort. Trying to get rid of error values to equal 'zero' create problems elsewhere and I just seem to be going round in circles and getting nowhere.
Basically unless a new member is added i don't want anything to appear in the spreadsheet. But i don't want the formulas etc which are there in readiness to affect existing player entries and data
Is VBA the answer or can it be done with formulae etc,
View 6 Replies
View Related
Oct 4, 2009
I have some data in Cell A1 and B1, I want that data in combined in one cell but in diffetent lines.. For example if i have 123 in A1 and 456 in B1, I need it to show the result as below in C2
123
456
View 2 Replies
View Related
Nov 17, 2009
=IF(SUM(Q4)=0,"",MAX(0,G4-MAX(F4,Q4))/7) - to calculate number of days for year
=IF(SUM(TODAY()>G4),(G4-MAX(F4,Q4))/7,SUM(TODAY()-MAX(F4,Q4))/7) - to calculate number of days year to date
I am using this condition to calculate the length of a service which falls with in a specific review period, eg
Service starts 1 Feb 09 and finishes 30 April 09
The review period is 1 Mar 09 and finishes 31 May 09.
I would need to measure the number of days that fall within the review period, which would be 1 Mar 09 - 30 April 09
At the moment I am missing a condition which identifies whether to subtract from 'service end date' or 'review end date'.
View 6 Replies
View Related
Jan 21, 2010
using IF formula [ =IF(SUM(C3),LOOKUP(DATEDIF($C3,NOW(),"y"),(0,3,),(0,3,)),"")] holiday sheet after 5 years service employee get 3 days extra holiday trying to in E3 to add 3 days to holiday entitlement to take from 16 days to 19 days
View 2 Replies
View Related
Dec 4, 2012
My production spreadsheet has thousands of unwanted columns and I am unsure as to how they appeared. I want to delete them. I have tried selecting all of them and deleting them, but nothing happens. I have tried go to > blanks, but it freezes because there are so many columns.
Also, I tried to copy paste to a new sheet, but the formulas get messed up.
For a mental picture, the spreadsheet is approx 225 rows by 25 columns.
View 14 Replies
View Related
Jan 4, 2013
1st Quarter Goal23306.67%
2nd Quarter Goal00.00%
3rd Quarter Goal00.00%
4th Quarter Goal00.00%
The 306% cell has (B2+B3+B4)/7.5 in it to get that value. I need to dump any access percentage above 100% into the next quarters goal. so 2nd should be 100 and 3rd should be 100 and 4th should be 6.67.
View 8 Replies
View Related
Jul 10, 2013
I just have a grid with a bunch of numbers listed and they all have one extra space at the end of the number. I have another tab with the same numbers but they do not have that extra space. I am using a vlookup formula and it is not recognizing the numbers because of the extra space. Is there some way to get rid of the extra space with a formula instead of going through job by job?
View 5 Replies
View Related
Jun 20, 2014
Please refer to attached file.
Column A have data and i need VB Code (Not formula) to check each cell in column A and delete any spaces and make sure that there is no spaces after end of the text.
As an example you can see Cell cell A15 thru A22 have spaces after the text so need to delete those spaces
Book1.xlsx
View 3 Replies
View Related
Jul 21, 2014
I am looking for VBA code to remove extra commas from d column.
Missing
, , , 1617614,
, , , 1676652,
, , , , 1676664, 1676665, 1676666, , 1676668, , 1676670
, , 1591813,,,,
, , , 1591113,
View 9 Replies
View Related