The below example creates a new worksheet and tries to get the new worksheets codename. The problem is when I run the code, I can't seem to be able to pull the codename from the newly created sheet (ie Cell A1 = "" instead of "sheetx").
Sub test()Set mysht = ThisWorkbook.Worksheets.Add    x = mysht.CodeName    mysht.Range("A1") = xEnd Sub
I am trying to use a variable to refer to the worksheet code name and get excel to tell me the name of the worksheet.
Dim ShNum As Integer
Dim ShCodeName As Worksheet
ShNum = 5
ShCodeName = "Sheet" & ShNum
'what i need is the worksheet name
MsgBox ShCodeName.Name
This is a simplified version of an earlier, long winded post that clouded my actual question.
Can I use a variable to refer to a worksheet by its CodeName? For example, let's assume I have several worksheets, with CodeNames of mySheet1, mySheet2, mySheet3, and so on. I understand that I can refer to them directly,
mySheet1.Range(myRangeName).value = someValue
mySheet2.Range(myRangeName).value = someValue
mySheet3.Range(myRangeName).value = someValue
.
but what if I want to do this using a loop? Is it possible to preload an array of CodeNames and do it that way? I'm thinking along the lines of something like...
Dim CodeNames
CodeNames = Array( mySheet1, mySheet2, mySheet3 ...)
For x = 1 to HoweverMany
CodeNames(x).Range(myRangeName).value = someValue
Next x
Reference: [url]
I delete sheet1, copy sheet3, rename to sheet1 and then attempt to rename the CodeName to Sheet1 as well.
This worked initially with out errors.
Now on the first run of the macro it generates an error:
Run-time error '32813':
Method 'name' of object '_VBComponent' failed
This fails to rename the CodeName of "Sheet1" (.Name)
Run it again and it renames the CodeName but generates yet another error:
Run-time error '-2147221080 (800401a8)':
automation error
how I can go back to the worksheet I was in before I branched off to work in another worksheet via a macro?
I know you can tell the macro which worksheet to go to, but not sure how to get vb to remember where I was and return to the same sheet (or even cell).
I had create a few macro with the macro name the same as the worksheet name.
How can i create another macro to loop through all the worksheet and if there is any data in Cell A1, it will call the corresponding macro. If there is no data, it will go onto another worksheet.
I have a User Defined Function (for finding the next minimum value in a range) that is not working for nonconcurrent ranges when called from within a worksheet. It returns #VALUE!
This works: =nextmin(A11:A17)
This does not work: =nextmin(D13,E13,F13,F16)
However calling the function from within vba works:
Is it possible to use the Worksheet_Change command to monitor 2 different cells in the same worksheet and call a different procedure depending on which cell is changed. i.e. if cell A1 is changed do this, if cell a2 is changed do that
View 9 Replies View RelatedI can get a worksheet name and index, how do I get the worksheet (Name)?
Example:
I delete sheet1, copy sheet3 before sheet2, rename to sheet1 but the VBA name is Sheet4. The index number will be 1 but it is not Sheet1 in the VBA Project Explorer.
I am writing a VBA macro to update a financial workbook. 10 of the sheets within the file are re-names depending on the start of production date. So, in one file they may be CY09, CY10, CY11...and then in another CY10, CY11, CY12. I need to update the Cell L14 on the first CY page to a value on the BOM page.
I want CYXX!F12 = BOM!L14
And CYXX's code name is Sheet3411
To do this, I want to use the code name - because it is the same in all the files I have (100+).
But I cannot find enough/right Codename reference information to make this work.
I tried:
Sheet3411.Range("F12").FormulaR1C1 = "=BOM!R[2]C[6]"
Sheets(Sheet3411).Range("F12").FormulaR1C1.....
I would appreciate if someone could help with this particular issue. (A little explanation of when I can and cannot use the codename would be appreciated as well. As this is something I will be maintaining for years.)
transferring data from a worksheet (Passdown Report) to another worksheet (Data Base) located in the same workbook. In the source worksheet (Passdown Report) there are 2 cells (B2 and D2) in which I would like the data to be transferred along with the data from B4 to AQ33. All the cells contain a formula which I want to stay after the information is transferred to the target worksheet (Data Base). This will be a daily transfer to the target worksheet (Data Base), so the macros should also identify the next available open row to transfer the data to.
View 1 Replies View RelatedI want to be able to safeguard against a user changing the name of a worksheet, so I use the sheet's codename in all my macros.
I have the codename of a sheet: shOptions
From a different workbook, "ActiveWorkbook.shOptions" doesn't work. How can I use "shOptions" in the other workbook.
I'm tring to create a newsheet and rename the codename but it doesnt seem to be working. Here is my
Private Sub Update_Button_Click()
AddYear = YearBox.Value
WFName = "WF Tracker SITE " + AddYear
wf = "WF_Edin_" + AddYear
Sheets.Add After:=WF_Template
ActiveSheet. Name = WFName
Sheets(WFName).CodeName = wf 'This line wont work
End Sub
I have a Userform that allows a user to select a year eg (2007) from a listbox called yearbox where Yearbox.Value = AddYear. When the user Presses 'OK' the following code runs: ...
View 9 Replies View Relatedi want to do 160 seperate sheets for each employee
i have there attendance for a full month
D2-AI2 are the employees names
D4:AI230 is the attendance stats
i want to create a worksheet for each employee
taking the info from my main page
Is there a way to populate a summary worksheet with the details of 4 other
worksheets, all of which have the same number of columns (A:J with the labels
on row 5) yet have different numbers of rows (each sheet will have a
different number of rows with the data beginning on row 6 in each sheet).
Is it possible to do without running a macro so that the summary sheet will
look to be automatically populated with as many rows as there are on sheet
number 1, then look to be populated with as many rows as there are on sheet
number 2, etc.
I have a late report due @ work.... I have people who have worked for 4 days to get me numbers i need and they are not right.....
Anyways I have a spreadsheet with a whole lot of numbers on it... I need to add 30% to each number. What is the easiest way to set this up.
Am a newbie in excel macros. pls i need assistance as to how to create a macro that searches a worksheet for a particular word. i wrote something like below but am having problems in it.
Private Sub CommandButton1_Click()
Dim word As TextFrame
If word Is Not Empty Then
For word = "aaaaaaaaa" To "zzzzzzzzzz"
ThisWorkbook.Worksheet.Find
Next word
End If
End Sub
I searched the forum for an answer to my problem since I'm positive its a FAQ. Well I was right and many other users have asked a similiar question. My problem is this: I am looking to find the average of a set of numbers in column T that meets certain criteria. I was suggested by other user to use this function which finds me the total number. =SUMPRODUCT(--($E$1:$E$400="S"),--($H$1:$H$400=17),--($U$1:$U$400<>"BEBLT"),--($U$1:$U$400<>"NVLIV"),--($T$1:$T400 > 0),$T$1:$T$400)
I have tried inputing Count, Countif, Average in place of Sumproduct as well as Count enclosing the entire sumproduct function. Nothing seems to work for me. I have also tried using a SQL statement in my VBA to provide a count but it doesn't seem to produce the required result. The above function works like a charm for finding the sum, but I need to find the average of this number thus I am looking for the Count equivilant. I'm sure this is a simple problem and I'm still a rookie when it comes to functions in excel.
I'm trying to create a worksheet register. Insofar, with the help of this forum, I have been able to put together a code that creates a list of hyperlinks to all current worksheets
Sheets("Register").Select
Dim wks As Worksheet
Dim rngLinkCell As Range
Dim strSubAddress As String, strDisplayText As String
Worksheets("Register").Range("A3:A600").ClearContents
For Each wks In ActiveWorkbook.Worksheets
Set rngLinkCell = Worksheets("Register").Range("A600").End(xlUp)
If rngLinkCell <> "" Then Set rngLinkCell = rngLinkCell.Offset(1, 0)
strSubAddress = "'" & wks.Name & "'!A1"
strDisplayText = "" & wks.Name
Worksheets("Register").Hyperlinks.Add Anchor:=rngLinkCell, Address:="",
SubAddress:=strSubAddress, TextToDisplay:=strDisplayText
Next wks
In additon to this I would like an addition to the code to pick up data from a cell (G10) within all the worksheets and place it in Coloum B (starting from B3) of the register. And clear the coloum firstly to make way for any updates. I tried doing this myself by modifying a recorded macro but the data would just write to one cell over and over again
I have attached a workbook with various worksheets. the aim being to create a cover worksheet called "averages".
Every few days i will manually add a new worksheet in the same format as "332" i had to delete most of the data from "333" to meet the file size limit but you should still get the idea. I would like the "averages" worksheet to work out an average rating and pull the data for all competitors from all worksheets.
I All my data is obtained from 2 columns, USERS & rating which i manually copy paste to a new worksheet every few days from that info i build my basic pivot table. maybe i can gather all the USER & rating columns on the same page and use a more complicated pivot table and thus do away with all the worksheets completely? But I do like being able to easily compare each individual rating against the other competitors for that particular day.
Attached File : competitor ratings1.xls
Create a button for protecting the worksheet and a button for unprotecting the worksheet
View 13 Replies View RelatedI am working on a label printing set-up for my work. So far I have completed the userform that formulas will be entered on and printed from. I had an idea of being able to save these formulas for recall later. I included “Save” and “Recall” buttons on the userform. My plan is to have my co-workers click on the “save” button and be able to enter an additional piece of data and have everything saved to another worksheet labeled “database”. If you look at the said sheet you will see a column for “customer”, “color” and then the colorants. Due to the wide variety of colorants and quantities available, I set it up so that I have the colorant and under that Oz and 48ths. I am trying to figure out a code that will populate that across the row.
Then I want to be able to push “recall”, find my customer and then color in a combobox and have that populate my label.
At this time I am stuck. Part of my problem is I don’t quite know the terminology to google.
Attached is the file I am working with. The only sheets that need concern anyone are "main" and "database". The others are from the original file and I will be deleting those once I am done.
I have 800 rows of patient information, I need to sample 70 patients. I used the Random.org randomizer to get my 70 patients. That randomizer only gives me the line numbers such as 1, 8, 23, 45, 70, etc. I then need to go to Excel and just pick out the patients on those lines I was given above. Is there an easy way in Excel to have my spreadsheet of the 800 rows and create a (simple) calculation that will pick out the line numbers that I need all at once, so I do not have to go thru manually and choose the data from row 1, 8, 23, 45 etc to make my new spreadsheet with only my sample patients on it. OR is there a easy way to pick 70 random lines from a spreasheet..
View 1 Replies View RelatedI have searched the forum and the 12 pages of results that had the words conditional clumns, but could not find the answer. I am new here so I don't want to ask a question that has been asnwered before. If I missed it I apologize.
I would like to create a spreadsheet that would "automatically" create the proper number of coumns or rows to satisfy a certain set of data. This may be better explained by way of example.
I do financial analysis of real estate. This real estate is say 100 lots today and these lots are going to sell out evenly over a 10 quarter period, or 10 sales per quarter. Simple enough to set up and show the proper cash flow. But lets say I wanted to chnage the sell out period to 8 quarters. Today I would have to manually delete the last two columns. Further let's say I want to run an analysis that has a sell out over 13 quarters. Then I need to add back in the proper number of columns and make sure I correctly copy over the formulas etc.
I'd like a way to have the spreadsheet automatically determine the proper number of columns (or rows) based on a formula that is part of the input data.
have seen macros that create a seperate sheet & save by tab number etc, & wonder if its possible to save each sheet in a workbook as the value defined in each sheets cell A2. is there a vb macro available to do that ? if so where ?
View 9 Replies View RelatedI have a product list where each row of the worksheet has an image, product details and suggested lists/retails for each local currency.
Some products are not available in certain countries and each market doesn't care to see the other market info. (There are hundreds of items and dozens of countries.)
How can I create a drop down selector so that a user can choose their market, i.e. "Australia," and only the rows and columns relevant to them appear?
Can this be done without macros,? This sheet is distributed among 100+ people and needs to work for lowest common denominator.
Is there a way to write a Worksheet_SelectionChange (ByVal Target As Range) event in module after creating a sheet in VBA? I constantly delete a sheet, then repopulate it with a new one that is empty, but I need to add some code that happens if they should change a particular cell. It worked when I ran it on a worksheet without refreshing, but as soon as I cleared and repopulated the sheet, it was gone. Is there a way to preserve this?
View 9 Replies View Relatedi have 5040 rows in a sheet. in columns A,B,C,D,E,F, i have some input. and based on that i have some formula on column G.
lets say, min value is at row 4094 by looking at G column... i want to call entire row to the, lets say K L M N O P ....i need a formula for that....
random numbers are included in the formula. So ever time i make any changes on the sheet, min value changes even thought i dont play with the formula and input... so i want my new min value shown at row 1 of K L M N O P, every time i do that
how can i do that?
I am creating a set of lists, each on a different sheet. I want to have the first sheet as a sort of "Title Page" with basic information from the others. Is it possible to create a link of some types so that I could click on "Magazines" for example and go to the sheet called Magazines, or "Books" and go to the sheet called books. The latter would be very handy as this workbook has around 30 sheets in it, which is a pain to look through to find the right one.
View 2 Replies View Related