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:
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
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
VBA Gives "400" Error When Clicking On A Button To Run A Macro
I have a worksheet where I created a button for the user to click on when they want to generate the chart, but when the button is pushed, it goes to my code in the VBA editor and gives me the error I've attached below. I have no idea what that means and none of my code seems to be highlighted.

View Replies!   View Related
Error Number 400
Macro Goal - collect specfic raw data on sheet 1 and paste relevant data as Values on sheet 2

Error - I get the ERROR 400 pop up once I include the instructions to paste the raw data to a new sheet. (The code to paste works on its own, just not when I add it to the end of my existing code)

Sub sort()

Range("A1:CH327").sort Key1:=Range("CH2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("CF5").Select

Range("CI2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=R[-1]C[-1],"""",SUMPRODUCT(--(R1C86:R327C86=RC[-1]),(R1C11:R327C11)))"
Range("CI2").Select...................

View Replies!   View Related
Run Time Error 400
I've written this macro to get data from a .csv and import into my spreadsheet however I get an intermittent "400" error, when I get the msg it says "method 'range' of object' _global failed".


Sub get_confirm_file_from_inbox()

Dim strPath As String
Dim strFile As String
Dim wbname As String
On Error GoTo Errorcatch
wbname = ActiveWorkbook.Name
strPath = "C:xxxManageCentralinbox"
strFile = Dir(strPath & "confirm*.csv")
Do While strFile ""
Workbooks(wbname).Activate
Sheets("Confirm_Data").Activate
Range("A3:BK").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents...................


View Replies!   View Related
Excel Sort Macro Error 400
I have a macro that should be sorting the last column of data, but it gives me an error code of "400". No explanation of the error, just the number.
I have a feeling it is because I have formulas in place to pull the data from other sources, and the associated "#Value!" error is whited out by using the conditional formatting.
Is there a way to have this macro only look at numeric values?

--------BEGIN VBA--------
Sub SortLastColumn()
Dim myRange As Range, myCol As Integer, sortCol As String

Set myRange = ActiveCell.CurrentRegion
myCol = myRange.Columns.Count
sortCol = myRange.Item(1, myCol).Address

myRange.Select
Selection.Sort Key1:=Range(sortCol), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
IgnoreControlCharacters:=True, IgnoreDiacritics:=True

End Sub

View Replies!   View Related
Copy Sheet - Save As - 400 Error
When I use this code in the workbook I want it gets as far as creating a new workbook and pasting the data, but then an error comes up saying nothing but "400", and does not complete the saving part.

Private Sub Workbook_Open()
Sheets("Open").Activate
End Sub
Sub SaveASheet()
Dim fName As String
Dim myPath As String
Dim sht As Worksheet
myPath = "K:3. DesignSupply OrdersLog"
For Each sht In ThisWorkbook.Worksheets
If sht.Range("D1").Value "" Then
sht.Copy
With ActiveWorkbook
.SaveAs myPath & ActiveSheet.Range("G11").Value & ".xlsx"
.Close
End With
End If
Next sht...................

View Replies!   View Related
Microsoft Visual Basic Error 400
My code here...

Sub ClearSheet()
Worksheets("Summary").Activate

If Range("CustInfo") = False Then
Range("ICompany, IPhone, IFax, IContact, ICell, IEmail, IAddress, IPOBox, ICity, IState, IZip").Select
Selection.ClearContents
Else
Range("IJobDescription").Select
Selection.ClearContents
End If

For I = 1 To 5
Range("Qty" & I).Select
Selection.ClearContents
Next
End Sub

keeps giving me an error 400. I have reinstalled xl just to see if it was related toan error I recieved earlier relating to VBE6.dll. This still works in another workbook but it doesn't work in this one. All I did was change the Range names and cleaned it up a bit.

View Replies!   View Related
Error 400 Show Modal Form
I'm getting an "Error 400 - Form already displayed; can't show modally" error from a UserForm project I've been making. It's attached below. How it *should* work:Use the button "ENTER NEW DATA" to open the UserForm. Submitting the Form should insert the data into a new row below the already filled ones. (the range of Form data starts at row 7)Click on a Non-Empty, Protected cell of Form data, and the UserForm should open, containing the data of that row within its corresponding fields. Submitting the Form should modify only that very row from which it was sourced.When you close the workbook (OzgridMST1.xls), the Form data should be copied into another workbook (on Sheet1) on the same level as OzgridMST1. (I couldn't include it in the . ZIP file since it would have been too massive... Just create a new workbook called FormDBTrial1.xls on the same level.)

Problem(s):When i fill-in and Submit the UserForm for a second time (by either the button or a Non-empty cell), the Error 400 appears and traces back to [UserForm].Show in the Sheet code. I've double-checked my code and can't see what the problem is.When i Submit the Form through the Non-empty cell, it submits into a NEW row, and not the same one! My code used to work, I've tested it many many times. I've triple-checked my code, can't figure.Finally, when I close the Workbook, an Error comes up saying it can't find FormDBTrial.xls, even when it plainly does exist on the same level, same folder, etc.
Everything worked fine until I added the "Copy To Another Workbook" functionality. Been over it and the forum so many times my head is spinning...

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
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
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
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
Giving '400' Error
Sub testDateCompare()
Dim nmiDate As String
nmiDate = CDate("23/4/08")
Dim origDate As String
origDate = CDate("23/04/2008 15:05")
origDate = Left(origDate, InStr(origDate, " "))

Dim minDate As String
minDate = WorksheetFunction.Min(origDate, nmiDate)
MsgBox minDate
End Sub

Giving '400' error!?

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
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
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
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
Error "400"
Im getting an error "400" running the following code.

On doing an error catch it says it cannot paste or other times says there is an error in the pastespecial

Sub Test()
Dim IE As Object

Sheets("Sheet1").Select
Range("A1:A1000") = "" ' erase previous data
Range("A1").Select

Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "My Website Url Inserted Here" ' should work for any URL
Do Until .ReadyState = 4: DoEvents: Loop
End With
Do
IE.ExecWB 17, 0 '// SelectAll
IE.ExecWB 12, 2 '// Copy selection
PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False
Range("A1").Select
Loop


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
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
Problem Using "Cells" In "Range" "400" Error
I am having problems referrring to a range using .Cells

If I try to use the remarked code (red text), it crashes with VBA "400" error for which I cannot find any explanation. It also crashes with same "400" message if I use a cells reference to a numeric column instead of "y").

The code works using the black it loops a column in Sheet("Holidays") and loops a row in Sheet("Schedule"), then color fills 2 ranges in columns in Sheet("Schedule") when the values in 2 cells are equal.

I have attached a scaled down version of my Workbook with this code.

View Replies!   View Related
Vba Macro Error: Compile Error Named Argument Not Found
I have some code that, although works fine in Excel 2003, does not in Excel 1997. I receive this error when I try running it:

COMPILE ERROR:
NAMED ARGUMENT NOT FOUND

Sub HPVAL()
Dim r As Range, myStr As String
myStr = "HP"
Set r = Cells. Find(What:=myStr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not r Is Nothing Then
r = r.Value
While Not r Is Nothing
Set r = Cells.FindNext(r)
If Not r Is Nothing Then
r = r.Value
End If
Wend
End If
End Sub

It looks like Excel is getting hung up on the "SearchFormat:=" portion of the code.

View Replies!   View Related
VBA Code To Sort Data - Run-time Error When No Data To Sort
I havet he following code which sorts data. If there is no data to sort I keep on getting a run time error. Could I add something to my code to prevent the run-time error, as sometime there won't be any data to sort. The code runs when I switch to the worksheet in question.

Sub SortMeetings()
Dim iCTR As Integer
Dim yCTR As Integer
Dim zCTR As Integer

zCTR = 11
For iCTR = 12 To 23
For yCTR = 1 To 10
If Len(Range("D" & iCTR).Offset(0, yCTR)) 0 Then
Range("AA" & zCTR).Value = Format(Range("D" & iCTR).Offset(0, yCTR), "HH:MM") & " " & Range("D" & iCTR).Value
zCTR = zCTR + 1
End If
Next yCTR
Next iCTR
Range("AA11:AA" & zCTR).Select
Selection.Sort Key1:=Range("AA11"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

View Replies!   View Related
Dupe Wizard 400
I have the dupe wizard add on, on my excel program. I am wondering why when I click on the Dupe Wizard button a message in a dialog box pops up saying 400. The Dupe Wizard application will not do it's job now, only the dialog box saying 400 pops up.

View Replies!   View Related
How To Exact One Cell Value From 400 Tabs?
All those tabs have same format. Anyone know if there's a quicker way to do it? Each tab has different names. Thanks for your help.

View Replies!   View Related
VBA Macro Code Needed To Run The Code Contained Within A Cell
I have a macro that, when run, needs to read the contents of cell B5, and run the code that it contains.

Cell B5, for example, would contain the text:
Range("B13").Formula = "SUM(D12:D14)"

I need a macro to "execute this code", as if it were in the macro itself.

I have assigned the above to a variable, but am not sure how to execute it.

EG.


Dim the_calc
the_calc = Range("B5").value

Now, how do I run the_calc ?

View Replies!   View Related
Efficient VBA Code Vs Macro Recorder Code
What is the most efficient VBA code for the following macro recorded codes? I wish to write more efficient code versus the lengthy, cumbersome macro recorder code.

1) Macro Recorder Code to Copy One Sheet to Another

Sheets("Data Apple").Select
Cells.Select
Selection.Copy
Sheets("Banana").Select
Cells.Select
ActiveSheet.Paste

2) Macro Recorder Code for Replacement Purposes......................

View Replies!   View Related
VBA Code- Results Can Be Obtained Without Having To Run The Code
I am looking for VBA code by which the results can be obtained without having to run the code. For Instance, if Z = X*Y, I would like the code to automatically calculate Z for as soon as the value of X and Y are changed.

View Replies!   View Related
Display All VBA Code In Code Window (VBE)
When I started using VBA, all the code for each module was shown in the code window. This was a bit cumbersome when looking for one sub in particular. Now when I load VBA, all the Subs and Functions have their own page, and can be selected from the right hand drop down list. This is much easier for entering code, and finding subs. However, it is sometimes useful to see 'the big picture', so how do I swap between the two types of display?

View Replies!   View Related
VBA - Formula Generating "Compile Error/ Syntax Error"
I'm trying to write a macro that will insert a excel formula into a specific cell. When I try to run the macro I receive a compile/ syntax error. I don't understand why as the formula works in excel. Here is the code (formula only)

View Replies!   View Related
VBA Code To INSERT CODE - GURUS
I have a worksheet named mylist, that I delete, then recreate everytime I run a specific macro. However, I have code in this worksheet that I require, so is there a way for me to insert code to "insert code" on the "re-creation" of the worksheet?

View Replies!   View Related
VBA Code- How Do You Get The Code Boxes To Appear In Threads
I have code that inserts columns, inserts formulas, and then copies the formulas to the last row of data. It all works good but for some reason, the columns that are being copied, are being copied past the last row of data. It can always be determined how far down it will be copied. Examples: if the last row of data was row 4, then the formulas would be copied down to row 24, if the last row of data was row 54, then the formulas would be copied down to 254, if the last row of data was row 284, then the formulas would be copied down to 2284. I can not figure out how and wh this is happening, but whatever the last row of actual data is on the spreadsheet, there is a 2 being placed in front of the last row of data and the formulas are being copied down to whatever the last row is with the addition of a 2 in front.

Here is the code for the columns additions, and formulas:

Columns("O:S").Insert Shift:=xlToRight
Columns("W:Z").Insert Shift:=xlToRight
Columns("AB:AF").Insert Shift:=xlToRight
Columns("AH:Al").Insert Shift:=xlToRight
Range("O2").FormulaR1C1 = "=CONCATENATE(RC[1],""/"",RC[2],""/"",RC[3])"
Range("P2").FormulaR1C1 = "=IF((RC[3]=7),LEFT(RC[-2],1),LEFT(RC[-2],2))"
Range("Q2").FormulaR1C1 = "=IF((RC[2]=7),MID(RC[-3],2,2),MID(RC[-3],3,2))"
Range("R2").FormulaR1C1 = "=RIGHT(RC[-4],4)"

Lets take this first one for example:

Range("O2:S2").Copy Range("O2:S2", Range("O2:S2" & Range("A" & Rows.Count).End(xlUp).Row))

If the last row of data was row 54, then columns O:S would have the formulas copied down to row 254.

How can this code be modified so the formulas will not be copied past the last row of data?

How do you get the code boxes to appear in these threads. I do not know how to do this. As you can see, all I did was copy and paste my code in this thread.

View Replies!   View Related
Vba Code For Finding RGB Code
I have a really nice blue colour that I want to incorporate into all my spreadsheets, but I cannot suss out what the RGB code is, is there some code that could do the trick?

View Replies!   View Related
Create Macro Code With VBA Code
I'm trying to add buttons to an excel spreadsheet at runtime. Each row in the spreadsheet should have its own buttons. I was able to create and edit them with the ActiveSheet. OLEObjects.Add() function, but after that, when i was trying to create code dynamically to react on the buttons' click events excel crashes (actually it works for one button, but not if my routine for adding a new button and event code is called more than once in a row!)

The code below works if the AddCmdbuttonWithCode() is called once, but crashes if it is called two or more times. Excel tries to restore the document after the crash and the first button and its corresponding click event code is visible and works... but NOT the second button and its event code...

The only way I can create multiple buttons right now is by calling my method once per click, opening the vba editor, changing the parameters for my AddCmdbuttonWithCode() routine and execute it again. After that I have mutliple buttons in different lines which all work fine (so the concept seems to work).

The problem seems to be the insertLine method, since everything seems to work if i leave it out (except for the code generation of course, since this is done by this part of the code :-) ). Is it possible that calling the insertLine Method can't be called multiple times? I don't know... any ideas? Feel free to test my code - it's small, easy to understand and has comments.

'this code calls the method which creates the buttons in specific cells with specific names
Private Sub CommandButton3_Click()
'the first call always works!
AddCmdbuttonWithCode "Edit_111_111_114", 23

'the second one crashes excel
AddCmdbuttonWithCode "Edit_111_111_115", 27
End Sub

View Replies!   View Related
VBA Code Quicker Than Just Writing Out The Calculation In VBA
Does Excel handle formulas written into the VBA code quicker than just writing out the calculation in VBA?

I have a section where I use the following formulas, sumif, countif and a combo if iserror sumproduct in the VBA code...runs rather slow at this point and was looking at a way to speed things up.


View Replies!   View Related
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
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: Seperate Vba Code From File
Is there a way to put vba code to a standard alone exe file? This way, I don't have to keep update the code on different excel files.


View Replies!   View Related
Using VBA To Create VBA Code On The Fly
I have a vba module that reads a value from a txt file and saves that value in a variable called "iniInfo". I want to permanently assign that value programatically by using VBA code to create a Public variable e.g. "PUBLIC CONST conFIg = iniInfo" in my modGlobalVar Module. (Of course, this would only create the code if the "conFig" variable doesn't already exist.)

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
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
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
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
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
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
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
Copyright 2005-08 www.BigResource.com, All rights reserved