Excel 2003 :: VBA - Worksheet Object Temporarily Disappeared
Oct 25, 2011
I have a simple macro that cycles through the sheets in a workbook, and if the sheet's codename matches one of a defined list, some of its data is added to a summary sheet.
The macro works exactly as intended, but a strange thing happened yesterday: some data was missing from the summary sheet because one of the sheets was being ignored. This sheet is named 'MCP' on its tab, and has codename Sheet8.
Here's the strange part: on stepping through the code, cycling the sheets, I noticed that the sheet icon, name and codename had disappeared from the Microsoft Excel Objects folder in the Project Explorer. When the loop got to the sheet in question
Code:
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Name
Debug.Print ws.Codename
The above code displayed its name (correctly) as 'MCP', but its codename was blank; the sheet was therefore skipped by the code because the codename had to match against a defined list.
While I was pondering this, and doing some web searches, the sheet then re-appeared in the Project Explorer and everything worked again.
My question is this: is it likely to be due to the workbook being shared? I know that workbook sharing in Excel is often discouraged, but this is a simple workbook only used by a maximum of three users (two of these had the workbook open at the time the issue was reported)
I've changed the code so that the sheet name is inspected in the event that the codename is blank, which should guard against the issue provided sheets are not deleted/renamed.
Windows XP, Excel 2003
View 4 Replies
ADVERTISEMENT
Nov 1, 2012
I am using Excel 2003. I get the above error and when I press debug, the issue highlighted is the following:
Code:
graff:
adde.TextBox6.Text = "ok"
shet = ActiveSheet.Name
Set CurrentChart = ActiveSheet.ChartObjects.Add(5, 20, 350, 200)
[Code].....
View 6 Replies
View Related
May 18, 2005
I have been presented with a rather odd thing with Excel. We have a wookbook with six worksheets in it. When the first of worksheets is displayed, all the other tabs "disappear". The whole bottom tool/navigation bar is no longer displayed. How can I get it back?
View 8 Replies
View Related
Aug 31, 2007
Edges of worksheet have gone - no tabs, no minimise/maximise.
View 7 Replies
View Related
Mar 17, 2014
I have used this file extensively for months. I inadvertently clicked something this morning that made the file "disappear". I can see the file in its folder and open it. But, once opened, I do not see any of the tabs and the name of the file does not appear at the top. I did ALT F11 and can see the tabs in the VBA but I'm missing a step to make the tabs reappear. Since I don't know what I did to make everything disappear,
View 2 Replies
View Related
Nov 1, 2010
From time to time, the status bar in excel 2010 is not showing (I don't mean the information is not showing, I mean the bar is not there at all). In previous versions I would go to view>status bar...
how do I get the status bar back in excel 2010?
View 9 Replies
View Related
Sep 10, 2013
I use Excel 2003 & I am trying to design a worksheet to keep track of signs I make & their order numbers. I want the names listed alphabetically. When I add a new name & I arrange the column alphabetically, the columns with the order numbers do not relocate along with the names column.
View 5 Replies
View Related
Feb 24, 2014
I have a sheet witch has a number of tick boxes and depending on the response a number of hidden rows may open to allow further info to be recorded, how do I protect the sheet in excel 2003 as unlocking certain cells & protecting the sheet will not work.
View 1 Replies
View Related
Mar 30, 2014
I'm trying to copy parts of a worksheet from excel 2003 to word 2003. I've found code that does this alright but I need to be able to re-size the the pasted data to fit the word document. Is there a way to set the properties of the word document like change it to landscape and move the margins etc? Even a simple "reduce the table size to fit the word document". I've included the code i've got already. This code will open up a word document and copy your cells into it but without any useful options. So its ok for a small group of cells.
View 1 Replies
View Related
May 3, 2012
I am creating an invoice form in Excel 2003. I like to know if it is possible to increase the value of cel A1 by one everytime a new sheet is created.
For example i created my first worksheet and gave an invoice number 001. Now I create a new worksheet by right clicking on the tab and choose copy/move. I like the second work sheet change the invoice number to 002.
View 8 Replies
View Related
Jul 2, 2014
I have inherited a number of databases in work (running Office 2003). It has quickly become apparant that a vast amount of work is duplicated and so i am trying to cut down the data input and therefore the possible errors.......
I have narrowed most of the work down and now have a major worksheet (is that what you call a complete Excel file) named "master database" and several over minor files....
Currently what i am trying to do is to get the minor files (68 seperate files) to auto populate an area of the master database. I will try to explain it below...
1. Minor database has 2 columns with data i require to auto populate the master database. (1 column (B) is called 'off', the 2nd column (C) is called 'on').
2. A number will be inputed manually into either 'B' only or 'B and C' columns, depending on the criteria of the job..
3. The criteria of the job is dictated by column (Z) where the text 'A' or 'ATL' is inputed
4. The master database i would like to add up the numbers inputed as a total from columns 'off' and 'on' and place them into seperate columns 'E' and 'G' of the master database.
5. IF column (Z) shows 'A' then only column (B) 'off' is to be calculated and put into the master database at column (E)
6. IF column (Z) shows 'ATL' then BOTH columns (B and C) 'on' AND 'off' are to be added together and column (G) populated on the master database.....
To make matters more complex. An expiry date is shown on the master database at columns (D) and (F).
IF column (E) does not exceed 12 by the expiry date, i would like the cell (D) to turn red
IF column (G) does not exceed 10 by the expiry date, I would like the cell (F) to turn red
View 7 Replies
View Related
Aug 1, 2014
I've added some code the adds a button to a worksheet
Public Sub AddSheetPrintButton()
Dim btn As Button
Dim t As Range
Set t = ActiveSheet.Range(Cells(1, 6), Cells(1, 7)) ' button position
Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)
With btn
.OnAction = "sheetPrint"
.Caption = "Print Sheet"
.Name = "Print"
.Font.ColorIndex = 10
End With
End Sub
This works fine until the workbook is shared!
View 1 Replies
View Related
Nov 29, 2011
Creating a macro that updates and copies part of a worksheet in Excel 2003 and pastes it in MS Word. The sheet I have is a sheet that updates some prices etc and after it updates I usually select a square (part of the sheet), press CTRL+C to copy it and paste it as a picture (paste special ) in word. Is there a way to automate the process?
I am thinking a macro that updates the sheet, copies and pastes iit on word??
View 4 Replies
View Related
Oct 3, 2012
I am using Excel 2003.
I have 2 worksheets.
Worksheet 1 is called "Master List Data". Every cell within this worksheet contains a formula so that it matches the cell value contained in a worksheet held within another workbook.
The formula for reference is as follows:
=IF('[CCL Breakdown.xls]MASTER LIST - Active Customers '!A1="","",'[WFX CCL Breakdown.xls]MASTER LIST - Active Customers '!A1) .
e.g.
If Cell A1 on Master List-Active Customer contains no data, Cell A1 in Master List Data would be blank.
If Cell A1 on Master List-Active Customer equals John Smith, Cell A1 in Master List Data would display John Smith.
There are currently non-blank values contained in cells A4:A750. But next week there may be non-blank values is cells A4:A790 (i.e. it will grow each week)
Worksheet 2 is called "Master List Flat. At the moment, I am manually copying and pasting the rows which have non-blank values in cells from Column A from Worksheet 1 into this report (e.g. A4:IV4).
I would like to automate this process and I have created a Macro, but I do not know how to word it so that it will only copy cells with actual data in.
The Macro I have written is below:
Sub IMPORTANDFLATTENDATA()
'
' IMPORTANDFLATTENDATA Macro
' Macro recorded 01/10/2012 by walesb
'
'
Application.ScreenUpdating = False
Sheets("Master List Flat").Select
Rows("4:759").Select
[Code]....
View 1 Replies
View Related
Feb 6, 2013
I have a worksheet with five columns (A, B, C, D and E)
The cells in Column B contain letters and/or numbers (without spaces) in no particular order.
The cells in Column C contain letters and/or numbers (without spaces) in no particular order.
I want to compare all characters in 1st Cell of Column B with all characters in 1st Cell of Column C, and display the matching characters in 1st Cell of Column D, and the character count of 1st Cell in Column D must be displayed in 1st Cell of Column E. note that multiple instances of the same character must not be treated as duplicates. When execution on 1st Row is finished then repeat procedure for Row 2, etc... Stop execution when first empty cell in Column B is located.
Example:
B1 = LJLM12
C1 = KY2MLK
B2 = ZCG4GM
C2 = X4GGGC
B3 = KTCBNG
C3 = GNBTBB
The script/code/formula must output the following:
D1 = LM2
E1 = 3
D2 = CG4G
E2 = 4
D3 = TBNG
E3 = 4
I am using Excel 2003. Y
View 2 Replies
View Related
Jun 5, 2014
Basically the first worksheet (equipment list) is set out for parts used for each individual unit which can be printed out for each unit.
The second worksheet is an equipment list, where each part number and quantity required is displayed which can be sent to suppliers for ordering.
At the moment I
-> copy the equipment list to a new worksheet
-> do an advanced filter for "Unique records only"
-> =SUMIF('Equipment List'!B:B,'Parts List'!A16,'Equipment List'!D:D)
which is much faster than the way we used to do it.
The problem is, when I add a part to the equipment list that is new, I need to go through the process again.
Is there a way to automate so any parts I add to the equipment list, if it is the first time the part number has been entered, it will copy to the parts list worksheet and update the qty column or if it is an existing part number it just updates the qty column?
The equipment list may potentially have up to 100 different drives, but using mainly the same equipment.
I created this sample on an old desktop using excel 2003 but I use 2010 on my laptop.
View 3 Replies
View Related
Nov 15, 2012
I'd like to grant access to selective columns on a shared worksheet.
For example:
Columns A to D should be edited by only me
Columns E to G can be edited by anyone
Column H should only be edited by someone else
The worksheet has to be shared and has been shared by me. I know how to protect & hide locked cells etc but the problem I'm running into is this...
After locking & password protecting say columns A to D and then sharing the worksheet, I am unable to edit my own columns (columns A to D) without first entering the password.
However in order to enter the password I need to unprotect the sheet. And in order to unprotect the sheet, I need to unshare it!
Is there any way around this or perhaps a completely different way of approaching it?
View 3 Replies
View Related
Nov 28, 2013
I've got 2 worksheets in the same workbook.
Sheet 1 contains huge amounts of data - thousands of rows and multiple columns
Sheet 2 - I want to extract the data from sheet 1 column A into sheet 2 column A but only the data from every 21st row.
I want to be able to copy the formula automatically down, otherwise it will take hours to do it manually. So far I can only get the cell reference to increment by 1 each time after copying.
So what I'm trying to achieve is :-
Sheet 2 A1 = Sheet 1 A1
Sheet 2 A2 = Sheet 1 A22
Sheet 2 A3 = Sheet 1 A43
View 3 Replies
View Related
Oct 10, 2011
I recently upgraded from Excel 2003 to 2007, and the worksheet change procedure that i have embedded in my worksheet no longer fires when the criteria are met. If and if I fix it to work in 2007, will it still work in 2003?
Here is my procedure:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Excel.Range
If Not Intersect(Target, Range("C19:R19")) Is Nothing Then
For Each rngCell In Intersect(Target, Range("C19:R19"))
If rngCell.Value = "BLACK" Then
MsgBox "Please select a shading style", , "Shading Style Required"
End If
Next rngCell
End If
End Sub
View 2 Replies
View Related
Feb 13, 2013
Using Excel 2003 and cannot copy a worksheet and am getting this error:
File not found: CDocumentTempVB4B.tmp
View 2 Replies
View Related
Jan 15, 2010
I am using the camera tool in excel to show a range of cells. Is it possible to change the range the camera tool looks at conditionally? It's possible to do it manually and I've seen this done using a camera object to refer to charts in single cells, but have been unable to figure out how to do it by range.
View 9 Replies
View Related
Jul 13, 2007
I'm getting an "Object Required" error on the following code. I can't figure out what the problem is. It copies the worksheet properly but fails to set the objWS object to the newly created sheet. I'm sure it's something simple. Set objWS = objWB.Worksheets("Product").Copy(after:=objWB.Worksheets("Product"))
View 4 Replies
View Related
Oct 29, 2009
Is there a way to, on a temp basis to remove the read only feature when enabled and then re-enable it after a VBA routine is excuted?
View 10 Replies
View Related
Apr 29, 2014
I've set up a method to register users so they can use my applications. Very simple, First Name/Last Name/Scan your ID card. Unfortunately, that is apparently not "idiot-proofed" enough for some of my users. They keep entering their full name into the first name section, then they'll repeat the same information (full name) in the last name section. I swear they're doing this kind of stuff just to annoy me and see if they can break what I build.
Anyway, is there a way to change a single cell so that if the user hits the spacebar, it will simply tab to the next cell.
View 6 Replies
View Related
Jul 11, 2006
I have a workbook that opens full screen without any menus including the Worsheet Menu Bar. When the sheet opens the Title bars and Workshheet Menu Bars are visible
at first and then the sheet jumps to full screen without either. I tried to prevent seeing this screen jump by surrounding my code for hiding
all menus & viewing full screen with-
Application. ScreenUpdating= False
Application.ScreenUpdating=True
This works in other sections of code as intented but has no effect here. Even though I realize this has no functional benefit, because I am already able
to use the entire screen, I would like to find a way to hide this screen jump.
View 8 Replies
View Related
Dec 7, 2006
I want to temporarily display a userform (maybe for 4seconds) when my spreadsheet loads.
I cannot grasp the ontime function, and from what I can tell most messages posted on here relate to using it for intervals, or to be used at a set time in the day. (I have looked at the Helpsheet for the Ontime function, but struggle to apply what is being said to my situation)
View 3 Replies
View Related
Jan 18, 2013
I have a vba function linked to conditional formatting that i want to temporarily stop while a sub to insert a line is running as the sub stops when it hits the sheet where the vba function operates. When i disable the vba function (or remove the vba function) the sub works fine, if the vba function is not disabled the sub stops.
View 4 Replies
View Related
Dec 14, 2011
I have a Sheet Activate code so that when going through a workbook, range a1 is always selected.
However, i have another macro, which navigates through each monthly sheet in the workbook, and uses cell a19 as a 'topleft' const cell, with a time delay, so that i can view a chart in the same place for each month on each monthly worksheet, kind of like a journey through time.
The problem i have, is that i need the sheet activate functionality when normally navigating through the sheet, but this overrides my macro which needs to open sheets with cell a19 as the top left cell.
So my question is, can you disable a sheet activate sub at the beginning of a macro, and activate it again at the end?
View 3 Replies
View Related
Jul 12, 2007
How do disable Private Sub Macro
I have a private sub macro for Sheet1 as shown below
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$B$2$" Then Sheets("Start").Select
Exit Sub
End Sub
And I have another macro (call ADDNumLine) that add additional data to the Sheet1. How do I temporally disable the Private Sub above when executing Macro AddNumLine?
View 9 Replies
View Related
Jan 11, 2007
I have a set of procedures that require auto recalc to be on to work correctly. I've tried application.volatile and Application.CalculateFull with no luck. I'm trying to put together code that makes sure recalc is on, but that first determines the current recalc status and then changes it back to Manual when necessary. I don't know how to determine the current status. The following code should work if the red sections are fixed.
Sub TempAuto()
Dim CurrentState As unknown
CurrentState = Application.Calculation status
Application.Calculation = xlAutomatic
If CurrentState = Manual Then
Application.Calculation = xlManual
End If
End Sub
View 8 Replies
View Related