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


Advertisements:










Application.onkey With 'enter'key


Have working routine with combobox lists which are split into 'beverages of sorts' - sent to textbox and from there put into columns of type/variety in other worksheets
All working fine apart from repeated 'hits' of the command buttons to activate the data movement

Have Excel2003 on XP Pro and have been trying to use the application.onkey sub to try and introduce the 'enter' key to try and make things easier
but......not winning (aaaagh)
code being used just now is

Sub commandbutton1_click()
Sheets("invsales").Activate
Worksheets("invsales").Range("value").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox6.Value
End sub

As you see from 'textbox6' - I have a few of these for different beverage types and costs
Would be grateful for any help in introducing an 'ENTER' keystroke into the code somewhere.....to make it that bit more 'easier'


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
When I Hit "/ " Key It's Highlighting The 'File' Menu
I've no idea what combination of keys I hit to do this, but when I hit the / key it's highlighting the 'File' menu - working as though I pressed Alt.

Unlike Alt though, it doesn't un-highlight it if I press / again.

It only does it in Excel - Word works fine, as does notepad and obviously I can enter it on here to.

I've tried rebooting, but it's still there.

View Replies!   View Related
Run-time Error '1004' :: Method 'Range' Of Object'_Global' Failed
I am trying to create a macro in my personal macro book such that whenever any workbook is opened the calculation settings (tools, options, calculation tab) are set to semiautomatic and do not calculate before save. The macro works when I am opening Excel itself (Book1) but when I open an already saved file it gives me

Run-time error '1004'

Method 'Range' of object'_Global' failed

From there I choose Debug, the VBE window comes up, and I hit F5 to continue the code without doing any actual debugging. Here is the code that I am using. This is in the Personal Macro book on the "This Workbook" section....

View Replies!   View Related
Run-time Error '1004' Method 'Range' Of Object '_Worksheet' Failed
I have an interesting error that only happens when there is one row of data in the worksheet (sheet2 or "Half Payout"). Rows 1 & 2 are headers, row 3 is when the data starts - if any. With either no rows of data or more than one the coding works just fine. Here is the exact error message I'm getting: Run-time error '1004': Method 'Range' of object '_Worksheet' failed.

The following code is supposed to sort the rows of data when opened and then activate the first open cell below B2.

View Replies!   View Related
Run-time Error '1004': Methd 'Range' Of Object '_Global' Failed
I have constructed the following code to set the print area of worksheets that have been selected to print to the range referenced in a worksheet level named range "xPrintArea". This named range is set using the OFFSET function. The procedure also sets the left footer to be a copyright notice that is also contained in a cell referenced by a named range.

Set oPrintArea = Range(sPrintAreaName)

is generating the error "Methd 'Range' of object '_Global' failed".

Note that the line

Set oCopyrightNotice = Range("CopyrightNotice")

does not generate this error. From what I've been able to determine from other research on this forum and others, I believe the problem is that I need to more fully qualify the object which Range(sPrintAreaName) is referencing. I've already tried to use

Set oPrintArea = wkSht.Range(sPrintAreaName).................

View Replies!   View Related
Run-time Error '1004': Method 'Worksheets' Of Object '_Global' Failed
I am not familiar with Excel/VBA and I tried a couple of suggestions with no luck. The excel file contains three forms and three modules and it is intended to calculate and build Electrical panels. I didn't write the code. I am just trying to fix the error. I was trying to attach the .xls file but it is 178 KB. How can I post the whole code.

View Replies!   View Related
Method 'Add' Of Object 'CommandBarControls' Failed (run-time Error '-2147467259')
i get this error on the line in bold Method Add' of object 'CommandBarControls' failed (run-time error '-2147467259'). im not sure why its giving that problem, but im not very fluent in custom toolbars.

'//The following two procedures add a custom menu to the workbook programmatically//'
'//and then delete it//'
Public currentMonth As String
Sub CreateMenu()
Dim mybar As CommandBar
Dim myControl As CommandBarControl
Set mybar = Application.CommandBars.Add( Name:="CustomButtons", _
Position:=msoBarBottom, Temporary:=True)
mybar.Visible = True
Set myControl = mybar.Controls _
.Add(Type:=msoControlButton, ID:=1)
With myControl...........................

View Replies!   View Related
Using 'IF' With Conditional Format (change Cell Color Based On The 'P' Or 'F')
My cell has a 'P' or an 'F' plus some additional text. I'm trying to change cell color based on the 'P' or 'F' but I can't get it to recognize the letters.
Samples of what I've tried:
=IF(LEFT(L23,1)=P)
=IF(MID(L23,1,1)=P)
etc.

I can 'FIND' the 'P' or 'F' but there may be a P or F else where in the cell so the color may come up incorrect. I'm trying to get it to just look at the first character in the cell. Can the 'IF' be used with CFs?

View Replies!   View Related
How To Restrict The Cell Data To Letters 'a' Through 'e' AND 'A' Through 'E'
I am trying to come up with an excel shee which can track the progress of a student on practice exams. This exam only has multiple choice questions, with answer choices A,B,C,D or E.

What I am looking for

1) I want to restrict the cell data to A,B,C,D or E (both cases). Note that I am not looking for a drop down/combo box. It would take the user to use one or two mouse clicks to drop down the list, and I am not in favor of that.

2) I would like this validation/formula to be applied to all the cells in a particular column.

3) Nice-to-have.

If the user enters a lower case letter, then I would like to convert to upper case.

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
Run-time Error '1004' Method 'Add' Of Object ' Sheets' Failed Adding Multiple Sheets
I have been running a simulation for about 18 hours now and just received:

Run-time error '1004':
Method 'Add' of object ' Sheets' failed

I have been creating new sheets, importing data, pulling some values from the data then deleting the respective sheet. I am using:

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)

The sheet is actually being added to the workbook, seemingly before the error. I resume the code, and a new sheet is placed in the workbook and it errors again. The Debugger stops and highlights on the code above.The sheet count number was 10895 at the error, just as an indicator of how many times the simulation has performed successfully. I am hoping this is something I can fix without having to start over...

View Replies!   View Related
Method 'goto' Of Object Application Failed
why i'm getting this run time error :"Method 'goto' Of Object 'Application' Failed"?

Sub SynchSheets()
Dim wSheet As Worksheet
Dim rRange As Range
Dim dZoom As Double
Dim wSheetStart As Worksheet

Set wSheetStart = ActiveSheet
Application. ScreenUpdating = False
With ActiveWindow
Set rRange = .VisibleRange.Cells(1, 1)
dZoom = .Zoom
End With

View Replies!   View Related
"Run-time Error '1004', Method ' Range' Of Object '_Global' Failed"
I keep getting this "Run-time error '1004', Method ' Range' of object '_Global' failed" Here is the code that has the problem:

Option Explicit
Dim i As Long
Dim j As Long
Dim lDup As Long
Dim lRow As Long
Dim NoDupes As Collection
Dim rRng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim Swap1 As Variant
Dim Swap2 As Variant
Dim wks As Worksheet

Private Sub UserForm_Initialize()
Call DefaultSet
For lDup = 1 To 3
Call NonDuplicatesList(lDup)
Next lDup
End Sub.....................

It does not even loop once though the original UserForm_Initialize For/Next loop.

View Replies!   View Related
Run Time Error 1004 - Method 'Range' Of 'Object'_Global' Failed
I am trying to build a macro which will format the columns of a spreadsheet - basically it inserts some columns, writes formulas and highlights them. Here is a code I have got so far...

When I try to run this I get a run time error 1004 - Method 'Range' of 'Object'_Global' failed. The part of the code
Range("N2:N").FormulaR1C1 = "=(RC[-7]/RC[-2])"

is highlighted in the debugger.

Can anyone tell me why this is happening, also it would be great if you could suggest better ways of writing this code - as I am new to vba programming and most of my macros are built using the recorder and then 'working' on them.


View Replies!   View Related
Application.FileSearch Error '445'
The following code works fine in Excel 2003 but returns the following error in Excel 2007:

Run time error '445'
Object does not support this action

Sub List_Files()

Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

Set wbCodeBook = ThisWorkbook

With Application.FileSearch
.NewSearch
.LookIn = "C:DepartmentsInventory"............


View Replies!   View Related
Using VBA To Enter Date When Other Cell Is = '0'
when the number in cell 'A1' reaches zero i want the VBA code to enter the date in cell 'A2' that it became '0'.

This is as far as i've got.

Dim keyRange3 As Range
Set keyRange3 = Range("L:L")
If Not Intersect(keyRange3, Target) Is "0"
Target.Offset(0, 2) = Time
End If

View Replies!   View Related
Nested IF To Enter Information Into Column 'A'
I am trying to use a nested IF to enter info into col A. It is based on 4 pieces of info, I can get the first 3 to work but am struggling with the last part. The problem is that I am looking at the same cell for the first 3 parts but the last part is looking at another cell reference. A nested IF may not be the way to go. An example of the spreadsheet is as follows:

A B C D AB
1 12/1/10 Comp 1 Surveyer 1 18/1/10
Omit 11/1/10 Comp 2 Surveryer 1 Omit
0 10/1/10 Comp 1 Surveyer 2
Comp 3 Surveyer 1

The formula I am currently using in column A is:
=IF(AB3="Omit","Omit",IF(AB3,1,"0"))
This works for the first 3 pieces of information but however does put a 0 in col A if there is no date in col AB, but this what I expect as it's what I've asked for. I am missing the last piece of information.

But what I want to put in column A is:
If there is a date in column AB - enter 1
If there is the word 'Omit' in col AB - enter Omit
If there is no date or the word Omit in col AB - enter 0 and finally
If there is no date in col B - leave blank (if there is no date in col B, col AB will always be blank)

View Replies!   View Related
Run-Time Error '1004' Cannot Open PivotTable Source File 'Consolidated Report'
I have a macro that takes the date from different excel sheets, consolidates the data and renders the pivot table and chart accordingly. It was working fine when the date range defined for the pivot table was static. Now I have made it dynamic since the data range changes each month depending on the number of days it has got. When I run the macro, it runs succesfully, generates the report and save & close the report, but after that I am getting this error. Errorneous

View Replies!   View Related
Conditional Format The List So That It Shows The Lowest Percentage In 'green' And The Highest In 'red'
I have a list in column A of percentages (to 4 decimals 0.0013) i need to conditional format the list so that it shows the lowest percentage in 'green' and the highest in 'red'.

View Replies!   View Related
Error On Data Transfer Between Sheets (Method 'Range' Of Object '_Global' Failed)
I get an error message on the "Range(lstRow).Select line. (Method 'Range' of Object '_Global' failed). My goal is to transfer a specific range (C24:H24) to the first available row in Data Entry sheet.

View Replies!   View Related
Error: Method 'Range' Of Object '_Global' Failed"
I'm so new to VBA this is probably another simple question, but here goes...

The error-text is:
"Method 'Range' of object '_Global' failed"

It happens at:
rng = Range(gCSchedule.Ws.Cells(gCSchedule.DateRow, StartCol))
See following code.

View Replies!   View Related
Mail Merge Error (Method 'Range' Of Object '_Global' Failed)
i'm tring to reuse this code which creates a label on excel. The data used to create the labels is on the "Data" sheet and the labels are generated on the "Label" sheet.

The problem is the first time i run it it generates the labels, then whenever i try again it gives me the following error; Method 'Range' of object '_Global' failed. Each row on the "Data" sheet repreents a label.

View Replies!   View Related
Sum Of '' Values In A Row With '', '$' And 'Euro' Values
I am trying to write a formula which can calculate the total value of cells with '' values in a row with '', '$' and 'Euro' values.

View Replies!   View Related
Use Onkey To Make Something When A Key Is Pressed
Onkey is used to make something when a key is pressed. There is a instruction to make something when any key is pressed?

View Replies!   View Related
Error 1004 Method 'Range' Of Object '_Worksheet' Failed
I have a cet of CommandButtons on sheet 1. The code for these buttons is in the code section of the sheet. A named range is referenced in this code. This named range is on sheet 2. Every time I try to reference this or any named range (from any other sheet), I get this "Run-time error '1004': Method 'Range' of object '_Worksheet' failed"

The last time I had this error I was able to fix it by moving the code to Module1. I tried that here, but it did not work (I can't figure out how to call it from the sheet). CommandButton. Here is the code from the sheet for one of the buttons:

Private Sub TBEnterUp_Click()
iLast = Range("WBDate_DayLast").Value '<<<<<<<
iItem = TBEnter.Value
If iItem = iLast Then
TBEnterUp.Visible = False
Exit Sub
End If
TBEnter.Value = iItem + 1
If iItem > 0 Then TBEnterDown.Visible = True
End Sub

It is a simple number advancer. It is working in the UserForm I took it from. I have included a sample file of the problem. Feel free to look at it and borrow anything in it that you might like.

View Replies!   View Related
Both 'Private Sub Workbook_Open' And 'Auto Open' Run Sequentially
I have built a complex vba & multisheet spreadsheet that I am looking to secure against all the common attacks. So I have:A Workbook Open pw;
VBA password (29 symbols/numbers/Caps/lower case)
Very Hidden worksheets
Hidden rows/columns
Restricted scroll areas
Workbook protection
Code that auto protects all sheets upon opening
Registry referencing in Workbook Open with timed closure if not matched
Now I am on the last leg of implementing protection against Application.EnableEvents = False; force enabling of Macros and hiding of toolbars, scrollbars etc... Phew.

Soooo, in my research, I have learnt that if EnableEvents = False, Workbook_Open is essentially skipped and the security VBA routines are disabled. To get around, I have copied the entire contents of the Workbook_Open routine to a module under Auto_Open. The first line of both these scripts is: Application.EnableEvents = True.

Works! So far so good.
However, I have a Msgbox prompt in the scripts that displays twice. So in essence, Excel is running Workbook Open first, then Auto Open second.
If I open another instance of Excel and run Application.EnableEvents = False first before opening my spreadsheet, I only get one message. So only the Auto Open script runs.


View Replies!   View Related
Method 'Range' Of Object '_Worksheet' Failed Error
I start in my "Action Plan for For Single Market" worksheet and if I click on the Command Button I then want to read in a couple of variables, and jump to a second worksheet (called "Market Action Plans") where I then want to copy a range, and then paste it in another area in that same sheet.

I thought I had worked out what to do, but when I execute I get a "run-time error 1004" when the macro gets to the "Range("Updated_Results").Copy" line. Excel describes the error as "Method 'Range' of object '_Worksheet' failed'" - which might as well be a foreign language as far as I am concerned!

Private Sub CommandButton2_Click()

Current_Market_Row = Range("Current_Market_Row")
First_Col_Action_Desc = Range("First_Col_Action_Desc")

Sheets("Market Action Plans").Select
Range("Updated_Results").Copy

Cells(Current_Market_Row, First_Col_Action_Desc).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Action Plan for Single Market").Select

End Sub
I am an occasional macro-creator and every now and again, I come across this type of problem where I can't get variables to be reconized, etc. I think it's because I don't understand enough about Private versus Public, and how to declare variables.

View Replies!   View Related
Error Method 'sheets' Of Object '_global' Failed
The following bit of code has been working fine but has now started getting the following error;

Method ' sheets'of object'_global' failed

This kicks in on line 3.
The worst thing is it will not let me get into the workbook at all

Sub KillForm()
'Update Names on Sheets
If Sheets("Daily Visits May").Range("e1") = "y" Then Goto 10
If Sheets("Daily Visits May").Range("d1") > 38837 Then Else Goto 10
Worksheets("Daily Visits Apr").Range("B5:C1500").Copy
Worksheets("Daily Visits May").Select
Range("B5").Select
ActiveSheet.Paste

View Replies!   View Related
Network Printer 'ActivePrinter' Of Object'_Application' Failed
I am having trouble printing a page to both a local printer (which works fine) and a network printer (which does not work) Both printers are installed on the Computers. The error message I get when I try to run the macro is Run-Time ERror '1004': 'ActivePrinter' of object'_Application' failed. The codes that I have used are

Application.ActivePrinter = _
"\SAUWTPFS01.sopac.pilkington.netDespatch Toughend & Batch reports (L164) on Ne05:"

and

Application.ActivePrinter = _
" \sauwtpfs01pauwtp0305 on Ne05:"

and

Application.ActivePrinter = _
" \sauwtpfs01pauwtp0305"

It works on the day I record the macro. As soon as the next day comes around I get the error message. When I click debug it is these lines that are highlighted in yellow. I have looked at this for several days on and off and I always get the same error.

View Replies!   View Related
Method 'range' Of Object 'worksheet' Fails
I'm trying to accomplish the following: on "LogSheet" sheet, click on the DailyCloseButton and have various lists on the "lists" sheet automatically sorted before I save and end. The code below gives an error: "Method ' Range' of object '_Worksheet' failed". I have no idea why it failed.

Private Sub DailyCloseButton_Click()
' DailyClose and sort routine

'Sort lists
Sheets("Lists").Activate

Range("Products").Select
Range("Products").Sort Key1:=Range("Products").Cells(2, 1), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal.............


View Replies!   View Related
Method 'Add' Of Object 'CommandBarControls' Failed
The following code below was very kindly created for me by someone approx 12 months ago and I have been using it without any problems at all.

The purpose of the code is to creates a new Menu/Title item named "Quality" on the main Excel menu bar at the top of Excel and place it between the "Windows" and "Help"

This new Quality menu then has further drop lists which i can add as suited.

Two days ago i started getting the following RunTime Error everytime i open Excel and i can not longer get the new menu "Quality" to show on my Excel menu bar.

run-time error '2147467259 (80004005)':
Method 'Add' of object 'CommandBarControls' failed ........

View Replies!   View Related
Method 'Range' Of Object '_Worksheet' Failed
I can't seem to figure out why this keeps giving me that error...

I've checked the row and column values inside and they seem to be ok. blank_ee() is an array of strings.

View Replies!   View Related
Method 'copy' Of Object '_worksheet' Failed
From the current open book, I'm opening a 2nd book, then copying all worksheets from the 2nd book that meet criteria, into 1st book, (in the same order), but am getting Method 'Copy' of object '_Worksheet' failed error. What am I doing wrong?
How to OVERWRITE worksheets?We'll be running the same process with new data, so also need to overwrite worksheets in 1st book.

Sub Build_Branch_File()
Dim FileName As String
Dim Wkb As Workbook
Dim Ws As Worksheet
Dim WNum As String
Dim Tnum As String
Dim RegionNo As Integer
Dim Original_Wb As Workbook


With Application
. ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
Set Original_Wb = ThisWorkbook .........................


View Replies!   View Related
Adding Folder To 'Open' And 'Save As' Windows
I had this set up in Excel 2003, but our main shared drive just went down and after remapping this link didn't work. How do I do this in Excel 2007?

I want a folder to show up on the left hand side of the "Open' and 'Save As' windows under My computer, desktop, My Documents, etc.

View Replies!   View Related
Method 'location' Of Object '_Chart' Failed
I'm currently working on a fairly complex VBA project in Excel 2007. Basically though, I'm downloading information from a site, massaging it, creating a lot of graphs, saving them locally, deleting the chart from excel. I then save a copy of the workbook to a local file, clear the Spreadsheet, and then Do the same for information from another site.

When I had all of the code in one Module and ran it as a macro it ran flawlessly.

Now i've put the information into a Class. And am pretty much running the same process via a UserForm.

The problem I have though is that at any point after I execute the (and please assume that all variables have been declared, because they have)

View Replies!   View Related
Method 'intersect' Of Object '_global' Failed
item = InputBox("Please Select Row Number of Child to be Removed")
myString1 = Range("$a" & item & ":$c" & item, "$e" & item & ":$j" & item).Select

I copied this code from a prior worksheet and the range was not split (i.e. just "$a" & item & ":$c" & item). When I try to make the range selection grab two separate areas, I get the above listed error. Do I not have the quotations right? I have tried them several different ways. Not sure what else to try.

View Replies!   View Related
Method 'Range' Of Object 'Global' Failed
I have a button on my spreadsheet which activates some code, it has worked perfectly for over a year but now for some reason I cannot get it to work.

When I click on the button now I get the message: Run-time error '1004' Method ' Range' of object '_Global' failed.

the file is far too large to attach here but here is the relevant ...

View Replies!   View Related
Method 'value' Of Object 'range' Failed
I have a while loop in which I'm updated information in 2 separate worksheets. I'm using the With-block statements separately to update each, but after the 30th iteration (and it's always on the 30th), the VBA code halts and get the "method 'value' of object 'range' failed" error message pointing to a line with the code as follows:

With Sheet1
.Cells(lngRow, 9).Value = intMonths
End With

where "intMonths" is an integer variable which I'm populated properly, and "lngRow" a long variable. When I debug both variables have proper data in them, and I have no idea why this is bombing.

View Replies!   View Related
Set Up An If Statement That Where 'a' And 'b' Are Numerical Values
I want to set up an if statement that does the following, where 'a' and 'b' are numerical values.

If 'a' is not a multiple of 'b' Then
...
Else
...
End If

How can I write this so VBA can understand it?

View Replies!   View Related
If Statement: Return 'V,' If Cell='&'
When I tried using if & or statements I got an error - so I tried this:

=IF(K7="&","V,",""),IF(K7="1 Space + &"," V,","")

I want to return 'V,' if cell='&' or if cell='(space)&' I want to return '(space)V,' What is wrong with this statement..?

View Replies!   View Related
Run-time Error '1004' Application-defined Or Object-defined Error
Run-time error '1004' Application-defined or object-defined error. I am trying to use this

View Replies!   View Related
Select A Range That Will Be Changing By Column: Method 'Range' Of Object '_worksheet' Failed
I'm trying to select a range that will be changing by column. I'm not sure why my syntax isn't working. What I've got:

View Replies!   View Related
Run-time Error '91' When 'On Error Goto' And Cells.find
I have written a Excel (2003) that searches a worksheet for a string in any cell. If the string is not found, it uses the 'On Error GoTo' command to jump to a given label. It works fine on the first string not found. When it searches for the next non-existent string, it fails with:

'Run-time error '91':
Object variable or With block variable not set'

Do I have to clear a buffer after each cells.find search?

My

View Replies!   View Related
Run-time Error '429' ActiveX Component Can't Create Object
I am trying to generate excel report output from access by click of a button. Part of the code is as follows:


Dim lngColumn As Long
Dim xlx As Object, xlw As Object, xlc As Object
Dim DBS As DAO.Database
Dim rst As DAO.Recordset
Dim blnEXCEL As Boolean, blnHeaderRow As Boolean

blnEXCEL = False

'If we do not want the first row we set Header to false
blnHeaderRow = False

'Establish an EXCEL application object
On Error Resume Next
Set xlx = GetObject(, "Excel.Application")

If Err.Number <> 0 Then
Set xlx = CreateObject("Excel.Application")
blnEXCEL = True
End If
Err.Clear

I worked on development on a server and worked fine. However when I have moved the code and database to the desktop of mine I am having
the following error in the line

Set xlx = GetObject(, "Excel.Application")

Run-time error '429'
ActiveX component can't create object

View Replies!   View Related
Run-time Erro '445' : Object Doesn't Support This Action
While clicking a button in the excel, am getting a run-time error. Everybody's need is urgent even I understand boss. Anybody else who is in the same shoes as mine. Here goes the solution:

View Replies!   View Related
Combining 'counta' And 'countif'
I'm trying to create a report to show daily statistics for internet traffic. I have a large table showing a daily breakdown of performance, a table showing combined cost for all "Mondays", "Tuesdays" etc in the month and I also want a table to show the "average" performance for a typical "Monday", "Tuesday" etc.

The report will be used on a daily basis and I realised that until there is a full compliment of data the daily averages table would be inaccurate as it will be dividing the overall total for each day by the total number of occurances each day has in a typical month. This is wrong because if we are only halfway through the month then we will be dividing by days that haven't arrived yet.

View Replies!   View Related
'COUNTIF' Function Is Not Preventing '#N/A'
I am using the following COUNTIF formula which I am sure is supposed to prevent '#N/A' from appearing (According to [url]

View Replies!   View Related
'trim' Or 'clean' Spaces
On a regular basis I have to upload cost to our order system. These cost are sent to me by the suppliers, and the part numbers have to match exactly, (from the excel sheet to the order system), or else the cost won't upload.

I have found that in some of my upload files there is a space, or sometimes several spaces, at the end of the part number. These spaces will screw up the upload. I alwyas use the "Replace" option to replace spaces with nothing, and that usually works.

In the attached sample file, there are 3 part numbers with a space at the end of the part number. I tried using the replace option. That didn't work. I also tried using the =TRIM() formula and the =CLEAN() formula, and neither of those removed the spaces. Why can't I remove the spaces from the end of these part numbers?

View Replies!   View Related
Looking For 'X' Or 'Z' As The 5th Character In A String
I'm looking for some VBA code that would look at a column of data, look at each cell value in that column and if the cell value starts with the letter 'G' and the 5th character in that cell is not 'Z' or 'X' I would like to highlight that cell. Example:G123-123 would be highlighted whereas G123Z-123 would not.

View Replies!   View Related
"Run-Time Error '1004': Application-Defined Or Object-Defined Error"
when I run the macro, I receive an error: "Run-Time Error '1004': Application-Defined or Object-Defined Error" See attached macro. If I click "Debug", the line "With r.Resize(,1)....... becomes highlighted in yellow.

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