Doesn't Work If The Worksheet Hasn't Been Saved Yet
I'm trying to simplify a formula that I'm using in a spreadsheet that's being used mostly in Excel 2000.
2 reasons I'm doing this:
1) It doesn't work if the worksheet hasn't been saved yet.
2) It's ugly
=DATE(YEAR(DATEVALUE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,3) & " 20" & MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+5,2))),MONTH(DATEVALUE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,3) & " 20" & MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+5,2)))+1,0)
The formula returns the last day of the month of the name of the sheet. For example, if the sheet is names "Mar 07", it returns 3/31/07. (yeah, when the 2100 issue becomes a big deal, I'm not going to be ready but I have 92 years to think about it)
Even if I can't make it prettier, does anyone have a way to get the sheet name into a formula without VBA Code in a file that hasn't been saved.
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
UDF Working When Called From Sub, Doesn't Work As Worksheet Function
I have written a user-defined function that searches for a small range within a larger range. The function requires two input parameters: the range you are looking for, and the range you want to look within. For example, I might look for the string of values in cells A1:D1 in a larger range E1:H20. The function returns the row number in the larger range where the smaller range is found. My problem is this: The function is working fine when I call it from another sub procedure. However, when I try to run it as a worksheet function, I get a "#VALUE!" error. The function pops up in the "insert function" menu, and it prompts for the two input parameters.
View Replies!
View Related
Tip To Show 'last Saved' Date On Worksheet
how I can have the latest date a file was saved showing on the worksheet? For example, I open a worksheet that was last saved on Sept 22nd, and after updating it today, I save it and want the date to show today's date? I'm pretty sure I've seen it in some files in my working life, so would appreciate advice on this!
View Replies!
View Related
Copy Between Worksheets Doesn't Work (look For A Certain Value In Worksheet A And Copy That Row Of Data To Worksheet B)
look for a certain value in worksheet A and copy that row of data to Worksheet B. However, it seems to be only copying the row in worksheet A and pasting it. Is there something that a noob VBA scripter has missed out? PHP Private Sub GetInfo_Click() Dim r As Long, LastRow As Long, Status As Integer Dim Message As String, Title As String, Default As String, MyValue As String Application.ScreenUpdating = False MyValue = Range("A4").Value Workbooks("invoice.xls").Worksheets("A").Activate LastRow = Range("C65536").End(xlUp).Row For r = LastRow To 1 Step -1 If Cells(r, 1).Value = MyValue Then Rows(r).EntireRow.Copy Workbooks("invoice.xls").Worksheets("B").Activate Rows("8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Status = 1 Workbooks("invoice.xls").Worksheets("A").Activate Rows(r).EntireRow.Delete Exit For End If Next r Application.ScreenUpdating = True
View Replies!
View Related
Hyperlink Doesn't Work
I have a hyperlink to [url] that doesn't work. When I click it I get an error saying "Unable to locate the server or proxy server". But when I cut & paste the address from the hyperlink into my browser (no chance of mistyping), it works fine.
View Replies!
View Related
Right Click Doesn't Work
As said, the right click doesn't work anymore, last week it was working but it doesn't anymore. When I right-click wherever in the spreadsheet nothing happens but I know it's working because it works outside excel.
View Replies!
View Related
Some Times If I Do A =if( ) Formula It Doesn't Work
What am I doing wrong here. Some times if I do a =if( ) formula it doesn't work. For example, look at the attached picture. Cell K63 should say "End of Run". But it doesn't, What gives? Also I have had before where i do =IF(X62>$O$2,"End of Run", 0) (and $O$2 =81) and the cell when X62 is 81, not greater than. I know I can to >=, but thats not what I am doing.
View Replies!
View Related
Full Screen Doesn't Work.
This might be extremely easy, but why my Excel (nor Word for that matter) doesn't go to full screen anymore? I'm pretty sure that I haven't used any options, I do have a new graphics card, but all the other applications goes to full screen. I have restarted my computer. Basically I think that it's either some option, or then reinstalling Office.
View Replies!
View Related
Programme Doesn't Work When Sent To A Different Computer
I have a programme which works fine on my computer at home but when I send it via email to work the 'sort' function messes up (there is a chance it could be the 'vlookup' function, though) and all the cells in the sort range lose their formula reference - which is of course a tad annoying. The part of the programme I'm having difficulty with is this: Range("SsNo1").Resize(d, f).Offset(a, 0).Select Selection.Sort Key1:=Range("FRSet1"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal
View Replies!
View Related
Why Doesn't My Variant Array Work
The answer is probably "because I'm stupid", but I really can't get my head around it! I'm playing with variant arrays for the first (and possibly last) time, The code I have is: Sub test() Dim vSheetColours As Variant Dim iCounter As Integer vSheetColours = Range("Colours").Interior.ColorIndex For iCounter = 1 To UBound(vSheetColours, 1) MsgBox vSheetColours(iCounter, 1) Next iCounter End Sub (Obviously this code doesn't do anything useful - but if I could get it to work, I might have a chance of making my real code work!) Colours is a range of 8 cells. Each one has some text in, and has a different background colour. I'm trying to store the colours. If I run this code, I get a runtime error 13 type mismatch, and it highlights For iCounter = 1 To UBound(vSheetColours, 1) But if I replace vSheetColours = Range("Colours").Interior.ColorIndex with vSheetColours = Range("Colours").Value it works fine.
View Replies!
View Related
Find Method Doesn't Work With Some Text
I have a spreadsheet with data similar to the following: 12111000 MILK, COW'S, FLUID, LOW PERCENT 27313010 BEEF, NOODLES & VEG (W/ CARROTS/DK GREEN), NO SAUCE 11100000 MILK, NFS 11111000 MILK, COW'S, FLUID, WHOLE If I use the following code to pass in a string variable and then attempt to find the string it never sees the text in line 2; or any line that contains (). The code is simply a test to try and figure out what i'm doing wrong. The actual goal is to search the entire sheet for text similar to that entered in by the user and then copy every row that contains similar text into another worksheet. Sub CopyStuff() strVariable = "car" 'I have tried "*car*" also With Worksheets(1). Range("b1:b500") Set c = .Find(strVariable, LookIn:=xlValues) If Not c Is Nothing Then firstaddress = c.Address Do Set c = .FindNext(c) MsgBox (test) Loop While Not c Is Nothing And c.Address <> firstaddress test = c.Address End If End With End Sub
View Replies!
View Related
SUMIF Doesn't Work From Other Workbook When Closed
I have a sumif formula in one workbook that relates to information off of another workbook...when the other workbook is open the information populates no problem when you close the other workbook I get the #VALUE error. Is this typical of SUMIF when referring to another workbook? I have a vlookup function that refers to the same workbook and it works fine when the other workbook is closed?
View Replies!
View Related
LARGE() Doesn't Work When Having Multiple Max Values
I found the thread about how to get the second best result (=LARGE(range,2)) but that can't handle when I have ywo top values and a lower third value. It still return the next value after the top value, which is the same value. I want to get the next lowest vaule. Example: In this row: 7 7 6 5 5 4 I want to get the value 6 and the formula =LARGE(range,2) gives the second number 7. How do I get the second value that I want? Maybe if I use the RANK() formula in some way, but how?
View Replies!
View Related
Insert Picture Macro Doesn't Work In 2007
I just upgraded to Excel 2007 and my macro from Excel 2003 for inserting a picture doesn't work correctly in 2007. I have a command button that states insert picture and when you click it, it will let you insert a picture into the cell and hide the command button. In 2007 it will let you insert the picture, but it isn't centered and expands into other cells and the command button is still visible. The picture appears to be the correct size it just doesn't center itself in the cell and the command button is still visible. Below is the
View Replies!
View Related
Macro Doesn't Work When Workbook/File Is Shared
I am encountering a specific scenerio where In I am creating a New file by copying one of the sheets And renaming that With todays date. here starts me problem when I try To share the sheet To work around I am seeing that th macro Is Not copying the sheet properly even though i have given PasteSpecial. The code goes here VB: AutoLinked keywords will cause extra spaces before keywords. Extra spacing Is Not transferred when copy/pasting, but Is If the keyword uses "quotes". Sub Newsheet() sheetname = Format(Now, "dd-mmm-yyyy") MsgBox sheetname sheet_count = Worksheets.Count 'Checking for Replication................
View Replies!
View Related
Formula Requires Parameter In Quotes, Indirect Doesn't Work
I've been given a formula to use (embedded in an add-in that is password-protected). One of the parameters REQUIRES quotes. The formula goes like this: =MYFORMULA(1,2,3,"ABC") If I put ABC in a cell (say C5) and use the formula =MYFORMULA(1,2,3,INDIRECT(C5)), the formula doesn't work. If I put "ABC" in cell C5, the indirect function still work make the function work. Even if I have ABC in cell C5 and use =MYFORMULA(1,2,3,""""&C5&"""") or =MYFORMULA(1,2,3,""""&INDIRECT(C5)&""""), these won't work. I wish I could just change the UDF behind this, but that isn't possible.
View Replies!
View Related
This Simple 10 Line Code Doesn't Work If Just The Reference Is Changed..
I asked for a macro to delete the whole row if a duplicate customer number was found in column B. Sometimes, though, my column numbers change. So, logically thinking, I simply changed the criteria, but the macro ONLY seems to work if duplicate customer numbers are in column B only. This code below won't work if the Customer Number is in column D instead of B even if the reference of B:B is changed to D:D, it doesn't carry the macro over.?
View Replies!
View Related
Conditional Formatting For Row Banding Doesn't Work After Autofilter
For obvious reasons, the conditional formatting to shade alternate rows doesn't work when filtered. So I think I need another way of doing it. Luckily, my table is fairly static, rows aren't added or removed. The first column is excluded from the banding. As is the first and last row with data (1 & 67) respectively. I found a relevant thread here, but the code is beyond my understanding.
View Replies!
View Related
VBA Code Doesn't Work When Formula In Sheet Is Removed
I had to remove a lot of pictures in the xls file in order to attach it, (since the original is about 5.3mb) but it worked out. When you move your arrow over the titles in column A a picture shows up thanks to a code. When you change the status in column G, the color changes together with the title in column A, as it should.
View Replies!
View Related
Find Next Number In Column That Hasn't Been Closed
Yet some more changes to a badge log, have worked out most of it but am having problem selecting the right row. The problem I'm having is finding the badge number (set in column J) and then finding the row that doesn't have the check out date (column B). I know this code will find the first entry in the data sheet, I just can't figure out how to set it up to find the badge number that hasn't been checked in yet.
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
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
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
Scroll Down/Across Worksheet Doesn't Move
I have two basic questions regarding the Excel program/UI I'm currently using Excel 2000, One annoying thing I find with this version is the way the screen doesn't follow along with my scrolling. ie: when I use the vertical scroll bar on the main window, it only updates once I release... not like a typical window which follows the movements of the scroll curser. Is this typical for later versions? I would update this program just for this feature alone! Also, a final question.... Does anyone know if there are any plans to update the handheld (pocket pc) version of Excel? The factory installed program is incredibly limited.
View Replies!
View Related
Create Worksheet If It Doesn't Exist
I need to create a worksheet and then populate it with header row containing columns names, and with values starting at row2. Before I do all this I wanted to first create a spreadsheet, I was successful in getting this done by getting a piece of code from this website. But, what if spreadsheet already exists from a previous run, then, in that case I want to clear the contents. Before I get too far ahead, I am unable to escape runtime error 9, array subscript out of range whenever I use any sort of code to check if the sheet exists. Also, my attempts to circumvent this error by putting in errorhandling is ignored, i.e. I get the standard run-time error message box, but, not what I want the code to do is such an error occurs. Function wsExists(wksName As String) As Boolean On Error Resume Next wsExists = CBool(Len(Worksheets(wksName).Name) > 0)End Function Private Sub Cmbsummary_Click() On Error Goto ErrHandler: 'Worksheets("MySheet").Activate Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "MySheet" Exit Sub
View Replies!
View Related
Macro Doesn't Work On Button, But Fine From Macro Menu!
I've recorded a macro that copies an entire tab into a new spreadsheet then goes on the copy and paste information from one tab to another. When I run the macro from the Tools>Macros menu it works perfectly. But when I copy the code and add it to that of a button it fails and posts the following error: Run-time error '1001': Select method of Range class failed. The first attachement shows the code for the macro as it is alone, and the second shows how I simply copied and pasted it into the 'view code' window of the button. Needless to say I'm a beginner at macros and only every record them, I can usually make stuff work that way but this has me stumped!
View Replies!
View Related
Allow Sorting: Protected Worksheet Doesn't Allow A Sort
I have a column containing 365 entries, one for each day of the year. This I intend to send out to Army bands, to have them fill in their forecast of engagements. I do not want them to be able to amend the original diary, but to scroll to the bottom of the list, add a new entry with the applicable date and then be able to 'sort' back to chronological order. This would then allow a separate entry for every engagement to allow me to interrogate the spreadsheet. As I have protected the sheet, the 'sort' facility does not function even though when protecting I ticked the box to allow users to 'sort'.
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
Match(NamedRange,NamedRange,0) Doesn't Work
I have an array formula: {=SUM(IF(MATCH(Group,Group,0)=(ROW(Group)-ROW($C2)+1),1,0))} where Group is: OFFSET(Groups!$C$2,0,0,Groups!$D$1) and the array formula is entered in Groups!E1 and returns an #N/A error. If I select the formula in the Formula bar and press F9 it evaluates to 48 which is the result I am looking for. If it calculates OK using F9, why can't excel resolve it in the cell?? When I enter the match part as an array {=MATCH(Group,Group,0)} in an appropriately sized range, it works fine and returns the index of the first occurrence of the elements of the Groups array as it should. The Groups array in column C is an array formula entered over 388 rows and contains: {=IF($A2:$A389="","",INDEX(XCorel!$IC$2:$IC$232,$A2:$A389))} where XCorel is another sheet in the same workbook. Can anyone suggest why this might be? If I replace the array formula in column C (Group) with its values the problem goes away, but I want it to be dynamic.
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
Combo Box Macro In Worksheet Doesn't Run Automatically
I have a combo box in a worksheet with a macro written for it that works fine but when I open the worksheet it doesn't run automatically, I have to find the macro and tell it to run. How can I get it to run as soon as the worksheet is opened Here is the code for the macro Private Sub combobox() ComboBox1.clear ComboBox1.AddItem "Mit Rekuperator" ComboBox1.AddItem "Ohne Rekuperator" End Sub Private Sub ComboBox1_Change() Run "PinchInternHeatExchanger" Select Case ComboBox1.Text Case "Mit Rekuperator" ActiveSheet.Range("I62") = Worksheets("uorc").Range("L99") Case "Ohne Rekuperator" ActiveSheet.Range("I62") = Worksheets("uorc").Range("E11") End Select Run "PinchPoint" End Sub
View Replies!
View Related
2003 Data Validation Doesn't Trigger Worksheet Change
I have a bit of code that calls a formatting sub depending on which cell is modified. It is triggered by the Worksheet_Change event, determines which cell is modified, and either calls the formatting sub or doesn't based on the location of the modified cell. Some of the columns in the sheet have data validation with drop downs. If I select a value from the drop down, it doesn't trigger the Worksheet_Change. If I type a value into the same cell, it does. This was apparently an issue in Excel '97, but supposedly fixed in '03?
View Replies!
View Related
Add Sheet If Doesn't Exist & Copy From All Worksheet
I have a workbook, with an around 70 sheet. Every sheet presents a sample reprot supplied by my client, the 3rd row in every sheet holds the report's title, (actually, not the whole 3rd row is merged, only specific range of cells are merged and this range is different among the sheets, e.g.: In the first sheet, the cells B3:M3 are merged to hold the title where in the second sheet , the cells B3:N3 are merged) Now i need to copy all these titles to a separate sheet, if I have to un- merge the cells or re-merge the whole row, I will not mind, espically if I will get a quiker solution since i also have another 3 similar workbooks.
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
Worksheet Copy: Method 'Copy' Of Object 'Worksheet' Failed
I have written code that allows a user to copy, via a button, a certain sheet any number of times. They can choose to copy that sheet 5 times and then 10 times, etc. When the sheet tries to be copied for the 17th time, it fails with the following message: "Run-time error '1004': Method 'Copy' of object '_Worksheet' failed" Here is the code that I have. The second line is the line that is failing. Worksheets("RoedForm").Select Worksheets("RoedForm").Copy After:=Worksheets(iCount) This always fails on the 17th copy regardless of how many different combinations of copy sheets the user tries. There are several sheets before the sheet that is to be copied and I have deleted several of those to see what happens and it still fails on the 17th copy. I also have 1GB of memory, so I don't believe that memory is an issue.
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
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
|
TRACKER
