Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










VBA Error Code 400?


What does this code mean? I can't come up with any listing that includes it.


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Error Code 9
Within the workbook i have a variable declared as

Public ResultsSheet As String

in the workbookopen event I assign a value

ResultsSheet = "Search Results"

and in the Private Sub CommandButton1_Click()

I attempt to make the hidden sheet visible

Sheets(ResultsSheet).Visible = True

Now this works for eveyone except one person, when it fails with subscript out of range error 9.

If i email the workbook back to myself it all works fine

View Replies!   View Related
Error Code 424
am using the code posted below and i get an Error code 424.

Dim i As Long
Dim Ans As Variant

Application. ScreenUpdating = False
If Not Intersect(Target, Range("E4:E7")) Is Nothing Then
If (Cells(i, "e").Value) > "0" Then
MsgBox "Calls In Queue " & Ans = ActiveCell.Offset(0, -1).Value
End If
End If
Application.ScreenUpdating = True

End Sub

View Replies!   View Related
On Error Code
I have made a simple spreadsheet with different values going down one column. I would like to randomly select any value in that column and have that value show up in another cell on the same spreadsheet. How do I do this?

View Replies!   View Related
VBA Code Error '1004' "Application-defined Or Object -defined Error"
In one worksheet i have created the following code, which adds date to
specific column when data is entered in colum A.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Target.Offset(0, 10).Value = Now()
End If
End Sub

The problem is that when trying to delete a whole row, error message pops-up.
Run-time error '1004' Application-defined or object -defined error. When click "End" actually everthing is ok, the row has been deleted, but was just wondering what is causing that error.

View Replies!   View Related
Code Interrupts Without An Error
I've been having a problem that I'm afraid will be hard to explain.

I have a project with multiple userforms. When one particular form is loaded, after executing all the code in UserForm_Activate(), it acts as if I had set a break point on the line where I opened that form, except instead of the red circle breakpoint icon, its a yellow arrow and the highlighted text is highlighted in yellow. Theres no error message or anything, and when I hit f5 again, it continues with no problem until the form is reloaded.

So for example, on form1, I have:

Me.Hide
Form2.Show .............


View Replies!   View Related
Code That Only Returns A #NAME Error
I have this code that only returns a #NAME? error. I'd love it if someone could take a look and let me know what you think might be going on. If it factors into it, D1:D4 each contain one of the following: USD, AUD, GBP, MX and E1:E4 contain the corresponding exchange rate. Also, J7:AJ41 contain a function that returns a number. Let me know if you need more information. I just can't figure why this is not working.

Sub newtabs()

Dim x As Range
Dim Curr As String
Dim Rate As Double

For Each x In Sheets("Cash Flow Detail - WkCount").Range("D1:D4")
Curr = x.Value
Rate = x.Offset(0, 1).Value
Sheets("Cash Flow Detail - WkCount").Select
Sheets("Cash Flow Detail - WkCount").Copy After:=Sheets(2)
Sheets("Cash Flow Detail - WkCount (2)").Name = Curr
Cells(7, 10).Select
ActiveCell.FormulaR1C1 = "=IF(activecell.offset(RC7)=" & Curr & ",('Cash Flow Detail - WkCount'!RC*" & Rate & "),0)"
Selection.Copy
ActiveCell.Range("a1:aa35").Select
ActiveSheet.Paste
Next
End Sub

View Replies!   View Related
Overflow Error In VBA Code
I worked a while on getting a macro to do what I needed in VBA. I am sure it is not the most efficient way of doing it, but its all I know. The only problem I am now encountering is getting an "Overflow" error and I can not fix it.

Sub CodeRateChange()
'Keyboard Shortcut: Ctrl+t

'Vlookup of PC to get PG
Sheets("CODE").Select
For I = 1 To 1000
If Left(Cells(I, 1), 1) = "P" Then
Cells(I, 2) = Application.WorksheetFunction.VLookup(Cells(I, 1), Range("Hierarchy"), 2, False)
End If
Next I
'Calculate Base Sales Dollars
Sheets("CODE").Select
For I = 1 To 1000
If Left(Cells(I, 1), 1) = "P" Then
Cells(I, 39) = (Cells(I, 3) * Cells(I, 15))
Cells(I, 40) = (Cells(I, 4) * Cells(I, 16))....................


View Replies!   View Related
Getting And Else With Out If Complile Error On The Below Code
I im getting and else with out if complile error on the below code...

Sub test()
Dim a, rng As Range
Set rng = Range("a1:d100")
For Each a In rng
If a.Value = "" Then a.ActiveCell.Select
With Selection
.ColorIndex = 6
.Pattern = xl.Solid
End With

View Replies!   View Related
On Error - Vba Code As A Message
I would like to get some information when a vba code is in error.

Can we create a sub that we can refer to when a vba code is in error. Something as:

On Error goto "name of the sub"

In that sub, I would like to write in sheet1 , cell a1 the name of the sub in which the code is in error.

In cell a2, i would like to write the line in error in the VBA code.

finaly i would like to show a msgbox ("Contact your admin")

and then close the file

View Replies!   View Related
VBA Code Spell Error
I was modifying some code in a script and now every piece of code that was like this:

View Replies!   View Related
Code Returning Error 400
I have the following code that opens a series of workbooks on a given day, However, if one of the workbooks has been renamed or is missing the code gives a "400" error and stops, is there a way of having the code retry the next workbook if it comes to an error?

View Replies!   View Related
Code Causes Error 1004 Then Continues
I have some code I have created to set page breaks. Depending on a previous option, my report will be either 3,6,9,12, or 15 pages. The info on each page varies in length, but I use table headers to separate the data onto different pages so none of the tables are split into more than one page.

My problem when the code gets to a certain line, it gives me error 1004. I will hit "Debug", then I hit continue and the code finishes. I don't understand why I am getting an error on this line, and why I don't have to fix anything to get it to finish running.

Here is the

View Replies!   View Related
Error In Loading DLL On Access Of VBA Code
Over the weekend I did some edits to an Excel file on my home computer. This morning I did some edits to the file on my work computer. When I try to access the VBA code, I get the message "Error in loading DLL", which is error 48.

View Replies!   View Related
Runtime Error Code 1004
I am converting Excel Templates which were developed in office 97 to Excel 2003.The templates are running fine in office 97 ,but when I run the same template in off 2003 I get the error "Run time Error Code 1004 : Application or Object Defined " and when I tried to debug the cursor is pointing to a cell which contains a formula which add multiple cell values.Can any one throw some light on this why the template which works fine on office 97 is not working in office 2003?

View Replies!   View Related
Result Error After Modifying Code
The following codes work well but when I have changed the following condtion ,

If cel = Tgt.Range("A2") Then
to

If cel "" Then

I got worng result, can anybody help me to correct it?



Option Explicit
Sub test()
Dim sh As Worksheet, Tgt As Worksheet, i As Long, j As Long
Dim d, a
Dim c As Range, Rng As Range, cel As Range

Set Tgt = Sheets("Report")
Set d = CreateObject("Scripting.Dictionary")
j = 0
On Error Resume Next ...............


View Replies!   View Related
FOR, IF, NEXT... Error In VBA While Attempting A Simple Code
Had a bit of code I was working on for a guy on here, and came across a problem while putting the finishing touches on it. It's since been solved by someone else, but for future reference...

View Replies!   View Related
VBA Code Run-time Error '1004'
Sub paste()

' paste Macro
' Macro recorded 2/20/2009 by lawryad

Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.paste
ActiveSheet.paste
Application.CutCopyMode = False
ActiveSheet.Range("p1").Copy
ActiveSheet.Range("a1").Select
End Sub
Now everything works good with this code unless there is nothing copied to paste. In that case it will go to a "run-time error'1004' " I would like instead for a msg box to appear saying "You must copy required data first"


View Replies!   View Related
Why Is This An Error In Sheet Code But Not As Macro
Why does the "else" section of this code cause an error when part of a sheet code but runs fine in a macro?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3")) Is Nothing Then
Exit Sub
Else
Application.ScreenUpdating = False
Sheets("Current").Select
Cells.Select
Selection.ClearContents
Target2 = Range("Analysis!A1")
Sheets(Target2).Select
Cells.Select
Selection.Copy
Sheets("Current").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
End If
End Sub

View Replies!   View Related
Hiding Columns Code Causes Error
I am trying to hide four columns on my worksheet, but for some strange reason I am getting the following message:

"Run Time Error 1004
Unable to Set The Hidden Property of the Range Class"

I have no merged cells or objects in those columns. Has anyone else suffered this problem?

View Replies!   View Related
1004 Error When Running Code ...
I want to place a message in cell

Sub OutOfStockDate()
templateSheet.Range("B15").value = dataSheet.Range("G5").value
If dataSheet.Range("G5").value = "" Then
templateSheet.Range("B15").value = "There is no Out of Stock Date"
End If
End Sub

However when I run this code I get the infamous 1004 error.

View Replies!   View Related
FileSearch Code Error In 2007
I have a macro that searches through a certain location for Excel files. The program and files were made in Office 2003. When another user runs the macro in Office 2007, the files are not recognized or the macro does not search, I'm not sure. Either way, the files are never located in their folder location. Any thoughts or ways around this?? The top part of the code is posted below,

Do
With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "C:Documents"
.FileType = msoFileTypeExcelWorkbooks
'.Filename = " Book*.xls"

If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count ' Loop through all.
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)

View Replies!   View Related
Resume VBA Code From Error Handler
Before doing some modifications in a data sheet, I first check with the below code whether a certain list is complete or not using the VLOOKUP function. If I encounter a missing value in the list, a userform appears asking to fill out 3 data fields, which are then added to the original list to complete it. All of this works fine if only one line is missing; if there are two (or more) lines missing, all goes well untill the VLOOKUP function errors out on the second line missing.
I can't find out why everythign goes welll with the first missing line, but not with the second missing line.

Sub proCheckVesselCodes()
Sheets("Sheet4").Select
Range("K1").Value = "Check"
Set varRange1 = Range("A1")
fctCountNrRows
varRow1 = varRow
varRow2 = 2

jump:
On Error Goto addvessel...............

View Replies!   View Related
Code Excecution Interrupted Error Using InputBox
I have been using a specific macro for at least 2 years now without incident...

but today for some reason I am get an error: ....

View Replies!   View Related
Separating Code Creates: Run-time Error '424'
I've written some code that fires on a worksheet_change event. It worked fine for the initial bit of code I wrote, but then once I repeated it for several different ranges, I got an error stating COMPILE ERROR: PROCDEURE TOO LARGE. (This amount of code below works fine, it's only when I add the rest it becomes too large.)

Private Sub Worksheet_Change(ByVal Target As Range)

'Unprotect Sheet
ActiveSheet.Unprotect Password:="clemson"
'Freeze screen
Application.ScreenUpdating = False
'Turn Off Auto Calc
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
' Master Bath Shower Listello
If Not Intersect(Target, Range("Listello1ShowerMasterBath")) Is Nothing Then
If UCase(Target.Value) = "NONE" Then
Range("Listello_1_Options_Shower_Master_Bath").EntireRow.Hidden = True:
Range("Listello_2_Shower_Master_Bath").EntireRow.Hidden = True:..........

View Replies!   View Related
Error On Button Code Reference To A Subroutine
I'm having trouble calling a subroutine from a command button. It's puzzling because I've set up buttons before and didn't have this trouble.

Here is my button
Private Sub EPConversionButton1_Click(ByVal target As Range)
Convert_Hrs_EP target
End Sub
And here is the subroutine.

Sub Convert_Hrs_EP(target As Range)
End Sub
There's nothing there yet, but I keep getting error messages regarding the transfer from the button code to the subroutine.

The message is: Procedure declaration does not match description of event or procedure having the same name. The Help file says this means that my procedure has the same name as an event, but does not have the same signature. But it's not so.

View Replies!   View Related
Getting #VALUE Error When Deleting Blank Rows With VBA Code
I have this code that I have had for a while.. it works okay on my computer and does as intended... it deleted all empty rows in the selected range after checking to see if any cells contain anything that makes it look blank but isn't (it cleans those cells).

So on my computer it works... on a coworkers computer it converts every used cell in the usedrange to #VALUE...

View Replies!   View Related
Looping Code Error: Repeatedly On One Sheet
I have a peice of code (Below) and instead of going from work sheet 4 to the one in the workbook 2 from the end sheet by sheet running the same bit of code it just loops repeatedly on one sheet??

Sub a()

Dim n As Integer
For n = 4 To ThisWorkbook.Sheets.Count - 2
Columns("W:W").Select
Selection.Copy
Selection.Insert Shift:=xlToRight
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
Range("L8:L9").Select
Selection.AutoFill Destination:=Range("L8:W9"), Type:=xlFillMonths
Range("L8:W9").Select
Application.CutCopyMode = False
Next n
End Sub


View Replies!   View Related
Error W/Code To Resize Named Range
If I omit the column arguement in resize I get error.

Dim ii As Range
EndRow = MyPL.Range("c" & Rows.Count).End(xlUp).Row

Set ii = Range("Data")
q = (EndRow - ii.Rows.Count)
Names("Data").RefersTo = "=" & ii.Resize(ii.rows.count+q, ).address


End Sub

View Replies!   View Related
Error '13' Type Mismatch In Function Code
while the code works fine by itself in the sample file, when inserted into my other file which contains another set of algorithms, it generates a run time error '13' type mismatch whenever the 'Hide' button is clicked.

this line of the following function: b = x / tpi

Function range(x)
tpi = 2 * 3.1415927
b = x / tpi
a = tpi * (b - Int(b))
If (a < 0) Then a = tpi + a
range = a
End Function

View Replies!   View Related
Why My Month Code Macro Results In Error
Here is my Macro:

Sub monthdatecoding()

Dim lastrow As Long, t As Long
lastrow = ActiveSheet.UsedRange.Rows.Count
For t = lastrow To 1 Step -1

'June
If Cells(t, 1).Value "" Then
If Left(Cells(t, 13).Value, 2) = "6/" Then Cells(t, 41).Value = "June"
End If

'July
If Cells(t, 1).Value "" Then
If Left(Cells(t, 13).Value, 2) = "7/" Then Cells(t, 41).Value = "July"
End If

View Replies!   View Related
Automation Error With Userforms InVBA Code
So I haven't seen this error before. It says "Automation error: the object invoked has disconnected from its clients."
I think I know what's causing it but am not sure how to go about solving the problem.
Barring any inefficiences that the code below contains, can someone please tell me what code I should used to fix this error?

View Replies!   View Related
VB Code Error When Workbook Loses Focus
Overview: I have a workbook named MainPage.xls. This mainpage has several buttons and serves as a switchboard to launch other workbooks. Attached to this Main Page are two worksheets, "Source" and "Value1". The "Source" worksheet is graphical in nature and is used to collect data via a DDE channel to some production industrial processors and then on a timer "log" the data to cells in the "Value1" worksheet. Once the VB code is launched from the "Source" worksheet (via a start button), the code continues to run until it is stopped (via a stop button). The data is then graphed and printed out, etc.

This works very nicely and provides "live" graphing of some constantly changing data.
Once the "Source" worksheet data VB code is running, I need to be able to minimize the worksheets and return to my Main Page and further be able to open any one of the other workbooks on the Main Page and work with that page(s). Thus far, I can minimize the "Source" and "Value1" worksheets and return to the Main Page and the VB code runs along nicely in the background.

However... IF I attempt to open any other workbook from the Main Page, my data collection/graphing code stops and I get a Run-time error 9, subscript out of range... and Excel completely shuts down.

I know this must have something to do with the worksheet that runs the VB code losing focus when another workbook is opened.

View Replies!   View Related
Code Failing To Subscript Out Of Range Error
I have the following code which works successfully on my Excel 2002 PC and my Excel 2003 PC.

However when I take it to a clients machine it fails...

View Replies!   View Related
VBA- Compile Error For Named Range For This Code
I am getting a compile error for named range, the code is below:

View Replies!   View Related
Error Code 400 When Creating Button For MapPoint
I am creating an excel file that has 2 buttons:

-1 that allows the user to select an image (works)
-1 that allows the user to select a MapPoint Map file (error 400)

The code below should be able to detail the problem.

Sub InsertImageOne()

Range("b5").Select
Application. ScreenUpdating = False

Picture1 = Application. GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")

ActiveSheet.Pictures.Insert(Picture1).Select
Selection.ShapeRange.LockAspectRatio = False
Selection.ShapeRange.Height = 205
Selection.ShapeRange.Width = 344
Application.ScreenUpdating = True

End Sub

View Replies!   View Related
Object Variable Error With Code For Solidworks
I recently wrote the following macro to drive several dimensions in a Solidworks assembly using cell values in excel. The strange thing is that I witnessed the macro work on several occassions with the exact same code, however now it always produces "Run-time error 91: Object variable or With block variable not set". I read in another forum that macros in excel can become fragmented with repeated editing, and unloading all the macros then loading everything back up again actually worked for a little while, however I would rather fix an issue with the code if there is one:

Note: In Debug mode the lines

Part.Parameter("D1@Sketch1@CORE INNER.Part").SystemValue = _
Sheets("AEM Core and No Load Loss").Range("B4").Value / 1000

are highlighted

Sub Generate_Core()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.Parameter("D1@Sketch1@CORE INNER.Part").SystemValue = _
Sheets("AEM Core and No Load Loss").Range("B4").Value / 1000
Part.Parameter("D2@Sketch1@CORE INNER.Part").SystemValue = _
Sheets("AEM Core and No Load Loss").Range("B5").Value / 1000................

View Replies!   View Related
Code Deleting Non-Existent Module Causes Error
I have used the code that was previously suggested in this forum for deleting a module. I have module 2 looping into module 1.At the end of module 1

I tell it to delete itself,likewise for module 2.

I placed in the "this workbook" on open event, the code

Application.Run" CALENDAR.xls!TEST

In the "this workbook" I have also put code in the "before close" event:

If Me. Saved=False Then Me.Save

All is great until the end user reopens the workbook and it locks up on the workbook open event because there is no modules to run now.

View Replies!   View Related
Determine #NAME- Formula Error In Macro Code
I am trying to reference a cell that displays "#NAME?" due to an unrecognized formula. However, I keep getting an "Type Mismatch" error. Is there a way to reference a file that displays "#NAME?"

Example:

If Sheets("sheet1").Range("B6") = "#name?" Then
Sheets("sheet1").Range("B3").ClearContents
End If

View Replies!   View Related
Macro Code Error To Paste Text
I've created a form and would like to use a macro to transfer the form information details (form) from an intermediate worksheet (database intermediate) to the main database worksheet (database).

So far I've only been able to record a simple macro that will do just that. However, when I click on my assigned macro again, the information is washed away and the new form details have replaced it. Been trying to use the x1down coding to make it such that each new data goes onto the subsequent line? But I can't seem to get it right without getting an error message.

I've attached the file to give you a better picture,

View Replies!   View Related
Error Search Code: Serial Number Not Found
I have the following code to search for serial numbers.

Private Sub CommandButton1_Click()
Dim Message, Title, Default, SearchString
Message = "Enter Serial Number" ' Set prompt.
Title = "Find Serial Number" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
SearchString = InputBox(Message, Title, Default)

'SearchString = "Rob"
Set S = Sheets.Application
For Each S In Application.Sheets
With S.Range("A1:IV65536")
Set f = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
If Not f Is Nothing Then
f.Offset(, 3) = Date
Exit For
End If
End With
Next S

End Sub
I would like to amend this so that (a) if the serial number is not found I get a message box saying "Serial number not found" and (b) if the serial number is found, I would like it to highlight the relevant row (after inserting the date).


View Replies!   View Related
Mismatch Error On A Big Application.Worksheetfunction.Match Code
bool = IsError(Application.WorksheetFunction.Match(ws1.Range("D" & i) & ws1.Range("G" & i) & ws1.Range("H" & i), ws2.Range("A3:A" & LR2) & ws2.Range("B3:B" & LR2) & ws2.Range("C3:C" & LR2), 0) > 0)

I am wanting to return a boolean result for if a multi-condition match is found. In pseudocode, I want to basically determine if the value in Column D, G, and H on worksheet 1 for a given row is repeated in Columns A, B, and C on worksheet 2 in any row. I have all variables properly dimmed.

View Replies!   View Related
Sort Failure In Code: Run-time Error '1004'
This piece of code runs perfectly on its own but when called at the end of another code it fails and I haven't a clue why. The reference wsTmp is dim'd globally and defined in the main component where it is simply - worksheets("somename")

Run-time error '1004':

The sort reference is not valid. Make sure that it's within the data you want to sort, and the first Sort By box isn't the same or blank.

Private Sub FinalSort()

wsTmp.Cells.Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Key3:=Range("K2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End Sub

View Replies!   View Related
Conditional Macro Code With Error TYPE MISMATCH
im making this macro code for my cell that will have a conditional formula but im always getting an error pop up message: TYPE MISMATCH.

here is my code

Sub ACCOUNTFINDERCODE()
Dim LastRow5 As Long
LastRow5 = Columns(7).Find("*", searchdirection:=xlPrevious).Row

If Sheets("working file").Range("g11:g" & LastRow5) = "F1212014000" Then
Sheets("working file").Range("k11:k" & LastRow5) = "='Account LookupSheet'!R4C3"
End If

If Sheets("working file").Range("g11:g" & LastRow5) = "F1212015000" Then
Sheets("working file").Range("k11:k" & LastRow5) = "='Account LookupSheet'!R5C3"
End If

View Replies!   View Related
Left Fuction In VBA Code Getting Run Time Error 1004
I am trying to use the Left function in my VBA code but continue to receive run time error 1004 - Method 'range' of object '_global' failed. Not sure if the error originates for code being written incorrectly or if the left function is not available in VBA. I am basically trying to take the first 9-characters for each cell in column K and copy the values to column G.

View Replies!   View Related
Macro Code Giving A 'application-defined' Error
The following code is giving me an object-defined or application-defined error:

wsDst. Range("E" & NextRow) = "=VLOOKUP($B" & NextRow & ",PriceList!$A:$IZ,MATCH(HLOOKUP($I" & NextRow & ",PriceList!$C$3:$IZ$3,1,1,PriceList!$A$3:$IZ$3),FALSE)"

View Replies!   View Related
Object Defined Error When Code In Workbook Open Event
I have a macro that checks if a username is in a particular list, and if it is, it unhides certain sheets in the workbook.

The code runs fine if I just run it as a macro or off a command button, but I am trying to execute it when the workbook opens and I keep getting a 57121, Application defined or object defined error.

The code is below;

Private Sub Workbook_Open()

DoEvents

Dim Res1 As VbMsgBoxResult
Dim GovRng As Range

For Each GovRng In Sheets("Map").Range("GovernanceMembers")
If GovRng.Value = Application.UserName Then Goto 111
Next GovRng

Exit Sub

View Replies!   View Related
Show Custom Error Message If Opening Workbook Macro Code Fails
I cannot figure out how to get my error handler to work, or actually, not work. It seems to work fine when there is an error, but the code still gets read even when there was not an error. Basically, I am trying to open a file, which may or may not be there. When it is not there I want a message to pop up informing the user. However, when the file is there and it opens, the error handler still gives the message box. Any ideas what I am doing wrong?

Private Sub btnOK_Click()
Application. ScreenUpdating = False
Dim LCSfile As String
LCSfile = frmSelectFile.Listbox1.Value
On Error Goto ErrHandler
Workbooks.Open Filename:=sPath & sDate & "" & LCSfile & "QUANT.CSV"
ErrHandler:
MsgBox ("File is not quantitated. Please select another file.")
Application.ScreenUpdating = True

End Sub

View Replies!   View Related
Catch An Error And Reset The Entire Code To The Very Beginning And Skip That Entire Entry
I want to catch an error and reset the entire code to the very beginning and skip that entire entry. When I use "Next fieldSheetName" I get "Next without For," error 1004. Searches tell me I have an open block somewhere, but that's not true. Removing that statement (and having the loop iterate as normal) has no error at all.

Dim employeeName As String
Dim fieldMax, x, y As Byte ' Counters mostly
Dim workedHours, fieldSheetName As Integer

fieldMax = 204 ' Row number to stop on in the field time sheet
row = 4 ' Row specification for field time sheet. Begin at row 4 to ignore headers
' and start on the first name. This should not be changed!
Col = 3 ' Start at column 3 then increase by one to start going to next time entry

' RESET HERE!
For fieldSheetName = 4 To fieldMax Step 8 ' This is our MAIN loop. It iterates from 0 to fieldMax, which is 204...........



View Replies!   View Related
Receiving Error In Code "unable To Get The Find Property Of The Range Class"
I am receiving the error "unable to get the find property of the range class" in my code. I have attached my code and highlighted red where my error is occuring.

On Error Goto ProductionRptEngineListExport_Error
Dim objWrkTmp As Excel.Workbook
Dim ObjWrkshtActive As Excel.Worksheet
Dim objWrkshtTmp As Excel.Worksheet
Dim RngStart As Excel.Range
Dim CurrentRowNum As Long, RowCnt As Long
Dim GroupRowNum As Long, ColCnt As Long
Dim chtChart As Excel. chart
Dim intwrktmp As Integer, intwrktmpTot As Integer, intLastRow As Long
Dim sngwrk As Single

ctlStatus = "Opening Production Report..."
DoEvents........................................

View Replies!   View Related
Copyright 2005-08 www.BigResource.com, All rights reserved