Error Trapping When Reading From Another Workbook?
Jun 3, 2014
I'm using VBA to open several files and pull information from them into a workbook with the hopes of eventually outputting the information to a formatted text file that can be uploaded to a data transfer system that will fill out a form for me. The problem I am finding is that the workbook that I need to access has faulty VBA code that executes everytime the workbook is opened. I realize the easiest solution would be to fix the code that is faulty however the workbook that I am accessing is automatically generated for each product with the faulty code embedded requiring me to handle the error on the back end. Attached is my code and I attempted using error trapping to handle this issue but I've concluded that I either lack understanding of error trapping or the fact that the error is in a cascaded workbook complicates the error trapping code.
View 5 Replies
ADVERTISEMENT
May 1, 2007
IS there any code where I can use to error trap worksheet so that if any error occurs like runtime error 9 then it can be traped.
View 2 Replies
View Related
Aug 13, 2014
How can we "read" information from the VBE Error Trapping options (Break on All Errors/ Break in Class Module/ Break in Unhandled Errors) programmatically?
Background: I am developping a spreadsheet that needs to be sent around to distant users. Some of them might not have the default "Break on Unhandled Errors" setting), which would just make my programme fail or risk to fail...
This issue has been covered in the thread below, but the proposed solution doesn't work on my side (always returning the same output!): [URL] .....
Hint: it has been suggested to look into the registry, which the linked post does.
Ideally, I would love to be able to change the setting programatically, but that seem near to impossible in excel 2007 VBA (unless calling an external programme that closes and restarts excel after having changed the option?...)
View 10 Replies
View Related
Mar 21, 2007
I have a spreadsheet with about 200 lines or records and I have added a checkbox to the end of each record. I need to the code to check the checkbox on each line to make a decision on how to process the data, but I do not want to read in a True or False value for 200 check boxes in every step of the loop. I think I'm close but I can't get the following to work...
This is basically what I want:
For i = 1 to x Step 1
IF me.Shapes("Checkbox" & i).Value = True Then
'Perform Action
END IF
Next i
I get an error when I hit the IF me.Shapes..... line
"Object doesn't support this property or method."
View 9 Replies
View Related
Oct 5, 2006
I went to rerun an old macro that i ran fine before and it is now working not so fine and was wondering if anyone could lend me a hand in figuring it out because i know it's something stupid and simple.
this code
Workbooks("SUMMARY OF LSC.xls").Activate
Sheets("FACILITY DATA IN EUR").Select
For i = 2 To lastrowA
Sheets("FACILITY DATA IN EUR").Select
If Range("F" & i & "").Value = "Y" And Range("AR" & i & "").Value <> 0 Then
Sheets("FACILITY DATA IN EUR").Range("A" & i).Copy
Sheets(" lookups").Select
Sheets("lookups").Range("A" & lastrow1 + 1).Select
ActiveSheet.Paste
Sheets("lookups").Range("E" & lastrow2 + 1).Select
is giving me a Run-time error '13': Type mismatch and i have no idea why it would be. any suggestions? the variables are set to double.
the values in column F is either Y or N and in column AR is either 0.00 or a number like 11111.11.
View 6 Replies
View Related
Jun 19, 2006
when i run this code under a button on a sheet it works fine. but i would like to run when the workbook opens (but i get an error message
On Error Resume Next
Application. ScreenUpdating = False
Dim wb As Workbook
Dim ws As Worksheet
'create new work order number...
Set wb = Application.Workbooks.Open("c: empex_ExternalOrderNumber.xls")
Set ws = Worksheets("NumberIncrement")
'get new WO number from numberincrement.xls
If Err.Number <> 0 Then
MsgBox Err.Description & "...help"
Else
mynewnumber = ws. Range("b1").Value
Range("g5").Value = mynewnumber
wb.Close
End If
Application.ScreenUpdating = True
View 2 Replies
View Related
Jan 18, 2007
Since I practically never deliberately hit Control-2 through Control-5 -- and do hit them "more than never," I thought I'd grab them with the KeyPress event (or KeyDown?). Then it hit me that I'm not sure where it would go.
This is for every workbook so this would generically reside in personal.xls. ThisWorkbook doesn't seem like the right place; I want its scope to be ActiveWorkbook. Would it require a class module (actually, I already looked, and don't see any keyboard events under "App")?
View 9 Replies
View Related
Mar 23, 2007
I only want to do a "macro" in VBA that must do two things
record the keys pressed (during only 5 minutes)
and save the results in a text file
It is the only code in VBA I try to write
I found public documentation (legal stuff I mean)
about GetKeyState
I have snippets of code for save data as txt file
But I don't succeed in finishing the all code.
My purpose is to show to my daughter in law that if she doesn't respect rules
on the net, I'm able (but I don't want to really do it, it's just a threat) to know what she's doing.
If I want a real keylooger, I've downloaded one on the net.
I haven't done that and I don't want to.
I don't think a vba code with
the function getkeystate and Open file (an only that)
is a danger.
View 3 Replies
View Related
Oct 23, 2008
The below code validates values in a combined range. Values can be a 0 or a 3-digit combo of values 0 through 4. The problem is that whenever the Delete key is pressed to delete an acceptable value, the msgbox appears. How can the msgbox appear ONLY if a user tries to enter a wrong value--the cells can be, and are, left null regularly, so the msgbox is annoying.
View 3 Replies
View Related
Jan 9, 2009
I'm trying to trap the events of a user form in a class of mine. At the top of my class I have the standard:
View 2 Replies
View Related
Dec 11, 2012
how I could amend the following code so that my target worksheet includes file versions? The worksheet range "Folder" contains a string specifying the target folder and the worksheet range "IncludeSubFolders" is either TRUE or FALSE. I can trap FilePath, FileName, FileSize and DateModified fine but not File Version (I'm working with DLL libraries).
Code:
Dim iRow As Long
Sub ListFiles()
iRow = Range("DatabaseStart").Offset(1, 0).Row
Call ListMyFiles(Range("Folder"), Range("IncludeSubFolders"))
End Sub
[Code]......
View 1 Replies
View Related
May 15, 2009
I suspect I need a class module for this...
How do I trap the event when a user chooses to expand / collapse outlines (columns in this instance) on a worksheet?
Basicallly, when attempting to expand I want to prompt the user to enter a password and then unprotect the sheet. And if collapsing to prompt again and then protect the sheet. I have this bit covered, just not sure how to trap the event.
View 9 Replies
View Related
May 30, 2014
Trying to create a new workbook from another open workbook, then copying all the sheets that aren't called "Summary" to that new open workbook and then saving it. I get a subscript error on this line:
[Code]....
View 3 Replies
View Related
Nov 13, 2009
I'm using the following code to read in any number of CSV files into a single worksheet and concatenating them together
View 2 Replies
View Related
Mar 4, 2010
I'm trying to write code that looks at the range W(rowid):Z(rowid) and lists each cell value in a listbox. The row id is coming from the listindex of combobox1. I know the rowid part is correct and working because other operations in my worksheet are using it fine. Here's what I've written so far:
With Worksheets("DATA")
For I = 0 To 4
ListBox3.AddItem .Range("W" + I & rowid)
Next I
End With
View 9 Replies
View Related
Oct 23, 2008
The below code line is causing the workbook to debug then fail to open for 50% of users and i dont know why, has anybody got any ideas.
Could it be bacuase it cannot read the machines time or date ?
Code: If day is Sat or Sun, or if time is after 3pm it calls a macro.
Private Sub Workbook_Open()
If Weekday(Date) = 7 Or Weekday(Date) = 1 Or Time >= TimeSerial(15, 0, 0) Then
I cant test the machines its failing on as i'm working from home !
View 9 Replies
View Related
Jul 17, 2014
In sheet 1 data 123. In sheet2 there is also data 123. In sheet3 will automatically data that is same 123 after reading sheet1 & sheet2. Any data with figure that is same in sheet1 and sheet2 will be reading in sheet3.
View 4 Replies
View Related
Dec 1, 2008
the attached workbook, I am looking for M19, N19 & O19 to read from different locations depending on how many cells are called on when info is entered in P8.
View 10 Replies
View Related
Feb 6, 2014
I want to read all the folders names in a folder.
So for example c:win estfolder
And in test folder there are 5 more folders named test1,test2 etc.
I want to be able to give the path c:win estfolder and let VBA excel read all the names of the folders inside the folder testfolder.
I have found some methodes on the web, but those are for files like .txt etc.
View 3 Replies
View Related
Apr 18, 2009
The following code reads text one character at a time, and each character is determined either to be a blank space or to be any other character. If it's determined to be any other character, then the character is added to the active cell. If it's determined to be a blank space, then the active cell becomes the cell one column over. The idea is to have different words written in columns next to each other.
The sample text file I'm reading from reads: "text file". The file has only those two words. One space between them. No space before the first word, and no space after the second word. The following code compiles and runs. BUT the result is that the word "text" is in column k, not A. And the word "file" is in column J, not b.
View 2 Replies
View Related
Jan 11, 2010
I have a drop down list in my excel sheet that contains names of manufacturers. What i would like to do (using vba) is display some details of each manufacturer that will be copied from a different sheet.
So my question is, how can i read the string from the drop down list on one sheet and then copy a cell from another sheet.
View 8 Replies
View Related
Mar 5, 2012
I am building a data base. I have a tab where you fill out of a form and then click an activeX command button to write to the data base. I am wondering if there is a way to record how many times to button is pushed. Each time the button is pushed, I want to record the data from the form into a single row in the data base without writing over old data but I do not know how to read how many rows of data are already there.
View 9 Replies
View Related
Feb 7, 2007
I am using the find or search function but I need to read my text string from right to left (from the end of the string, instead of from the beggining). Is there a way to do this?
View 9 Replies
View Related
May 15, 2007
I have a table where sometimes cells are merged. To the right they are not merged, but I need to link to the value of the merged cell. How can I do it if I don't want to do it manually?
Example:
Say A1:A4 is merged, A5 is just normal. I want a formula using those values, say in B1:B5. Now just filling down the formula would reference A1, A2 and so forth. This is wrong.
View 9 Replies
View Related
May 28, 2008
Is it possible for VBA to read data from a clipboard so that it knows what sheet to paste the data to? Currently we run a financial tool and 2 reports are ran and I put in a bottom so users could easily just paste special values into the correct place. Sometimes the users forget if they copied the balance sheet data or income statement data and currently its not a big deal because there are no columns to the right of where it is pasting so it isn't screwing anything up and they just delete the data and paste it to the correct sheet.
I have thought of 2 approaches I am going to take, but started to wonder if one could read the data from the clipboard before the paste.
My 2 options would be:
Option 1. Paste data to newly created sheet and check if it is balance sheet or income statement and then move from newly created sheet to correct sheet and delete newly created sheet. The user wouldn't see any of this because I would disable screen updating.
Option 2. Learn how to use Undo within my VBA or keep the Undo cache with items in it as it typically clears when VBA is executed. That way if they paste it and it is wrong I can just undo the VBA paste.
Option 1 I am confident I can handle. Option 2 I can research and feel I could do, but if it comes a time when a sheet has data I do not want to paste over then this option is no good.
I would like to hear any comments or feedback on this and if it is possible to read data off the clipboard so it knows where to paste.
View 9 Replies
View Related
Jul 5, 2008
I need a little bit of help here ... I can read and process a .txt file from my Excel VBA program, but I am having trouble as follows :
The file I am reading contains a number of heading lines, followed by a number of data lines.
All of the data lines end in a date, so I can use the code ...
If IsNumeric(Right(MyDSRec, 1)) Then
... to pick up the data lines & ignore the heading lines. This is fine and works perfectly.
However, the .txt file that I receive is out of my control, and is prone to error, in that the data line occasionally has what I assume is a "Tab" character after the last date, which means that the line above does not recognise the last character as being numeric.
If you double click "06" at the end of each line on the example below, you should be able to see what I mean (in the .txt document, if I place the cursor at the end and press backspace, all characters at the end are deleted, back to the 06, so they are not individual spaces) ...
RAMSEY1129/0503/0603/0613/06
SHAKESPEARE 1102/0609/0609/0618/06
PREMIER603/0604/0605/0618/06
View 9 Replies
View Related
Jun 16, 2006
I am running into one of the strangest issues I have seen in a long time. I have a user defined type that I utilize in VB6 and write out to a binary file....
View 7 Replies
View Related
Jul 31, 2006
I am have a 4x2 table and would like to use the values in the table in numerous procedures. i feel the best way do to this is to record the table as an array and be able to 'paste' or call the array anytime i need to. However, i am unable to read the table into an array.
1. how the array works,
2. how i can read values into an array and
3. how can i 'paste' or call the array at a later stage.
View 4 Replies
View Related
Oct 12, 2006
how would you read consuctive dates as one
example
person is sick on 10/9/06 and on 10/10/06 . i want that to be read as one sick. now if the person is sick on 10/09/06 and then sick on 10/11/06 that would be read as 2 sicks.
what i need is the consective dates to read then one to read the dates that are not consectutive . giving a total for each one.
View 4 Replies
View Related
Jan 7, 2007
I'm trying to use the contents of a cell as a range in my code
Private Sub CommandButton3_Click()
Dim Target As Range
'the cell containing the contents i want
Range("P11").Select
Target = ActiveCell.Value
Range("P9").copy Target
End Sub
Does it read in the value as a string? If so how do i get around this?
View 2 Replies
View Related