Trying to compile a workbook, I keep getting a few errors. Here are the first two:
Function TotalAdder(RCell As Range)
'Begins Error Handling Code
On Error GoTo Helper
Dim xIndex As Long
xIndex = RCell.Worksheet.Index
nsheet = Left(Tname...
I have the code below in a workbook. When I close the workbook, it typically kills all other open workbooks of excel. However, excel has started opening a blank window (no loaded workbook) in a second window whenever opening any excel file. Anybody have ideas on both of these. Further, sometimes...
A user made this (and I just contributed) probably a year ago and I've been fighting a bug in it. I have a userform that inputs data (in a halfway pretty GUI) in appropriate cells on a sheet. The user is supposed to be able to input, say, 0900, 9:00, or any "theoretical" method...
I have a workbook that seems to cause errors with other workbooks. It seems random but usually the error is 9- subscript out of range
Ideas on this? Here's an example of code that kicked when I opened another workbook
Function PrevSheet(RCell As Range)
'Begins Error Handling Code
I'm popping an error when I hit the "X" closing a userform. Here's the code that should close it. Am I missing something obvious?
Private Sub Userform_QueryClose(cancel As Integer, closemode As Integer)On Error GoTo Helper
If closemode = 0 Then
I have this piece of error coding I've written. Userform18, when called upon, gives some info on how to further handle the error. Because I have hundreds of pieces of "error coding" (each one of them is idential but has a different ### assigned in the "with error codes [xxx]" piece, is it...
I have a userform that has decided that it is going to close excel each time I use it. I'm not sure where I've gone wrong in my coding and was hoping someone could double check it for me.
Private Sub CommandButton5_Click()'"next" page button
On Error GoTo Helper...
So I've got some simple error coding On Error GoTo Help
Help: resp = MsgBox "Sorry for the error! Would you like to see the help menu?", vbyesno
if resp = vbyes then Call userform17
if resp = vbno then exit sub
Anyway, I'd like to have a button in userform17 that...
So I've written this error coding. I was hoping someone could check it over and tell me 1. why userform18 won't show when running and 2. Is there coding I can put in userform 18 that would allow me to "screenshot" a highlighted string of code (the code that error'd) and screenshot (or save as a...
Have I written the following piece of code out correctly for handling errors?
The XXX for error code is my own reference sheet of "error codes" so I can see which of the 187 modules (talk about a mess...) has an error and the other error code should come from excel. I want this to allow the...
Private Sub Button1_Click() 'Set and instantiate our working objects
Dim Req As Object
Dim sEnv As String
Dim Resp As New MSXML2.DOMDocument60
Set Req = CreateObject("MSXML2.XMLHTTP")
Set Resp = CreateObject("MSXML2.DOMDocument.6.0")