Sheet Named From Cell
Nov 25, 2006
Sub AddSheet()
Dim strName As String
Dim oSHeet As Object
Dim intNumSheets As Integer
strName = Range("A1")
On Error Resume Next
If Sheets(strName) Is Nothing Then
Sheets.Add().Name = strName
If Sheets(strName) Is Nothing Then Goto NonValidName
Else
MsgBox "Sheet: " & strName & " already exists"
End If
On Error Goto 0.....................
However once the code has run it then deletes the content of A1, is there a way to stop it doing this as I would like the name left there.
View 2 Replies
ADVERTISEMENT
Aug 26, 2008
I need a button to delete a sheet and the sheet to be deleted needs to come from a cell. For example: Active sheet is sheet 1. User selects the name "sheet 5" within cell B10 via data validation from cells E1:E9. Then the user clicks the button and that sheet is deleted. The data validation is a list of every sheet name except sheet 1. If possible, there is a sheet labeled "0" and I cant have that sheet deleted or it will screw up all my formulas if that's too difficult I can work with the data validation to keep a zero from showing up.
View 3 Replies
View Related
Oct 6, 2006
I am trying to get VBA to insert a new sheet and have it be renamed or just named by data that is in a certain cell. My attempt:
sheets.add.name = range("A1")
View 3 Replies
View Related
Sep 4, 2007
I have read post re this question but have not been able to answer my problem. I get the error message 'Application defined or object defined error' when running the code below. I should indicate the range counter currently indicated about 6,200 rows that this code will work on and the individual range names in the list of 6,200 rows are spread over at least 20 worksheets.
The code appears to be running but after some time it stops on the line of code 'Range(Cells(i, 1).Value) = Cells(i, 2)'.
Sub PopulateWithImportData()
Dim counter As Integer
counter = Sheets("Imported Data").Range("Counter")
Application. ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("imported data").Select
Range("a1").Select
i = 1
Do Until i = counter
Range(Cells(i, 1).Value) = Cells(i, 2)
i = i + 1
Loop
View 8 Replies
View Related
May 6, 2012
Is there any way (in vba code) to unhide the sheet of a given named range?
If would come before the following line of code whee CurReference is already defined
Application.Goto Reference:=CurReference
View 1 Replies
View Related
Jul 19, 2012
How do i change the below code to not reference a named sheet but the active sheet.
In case you need it i'm trying to sort columns A:CQ on row 2 smallest to largest from left to right.
Code:
Sub Sort_Left_Right()
' Sort_Left_Right Macro
Columns("A:CQ").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:CQ2") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
[Code ..........
View 3 Replies
View Related
Nov 17, 2013
I am trying to use a named range on a different sheet in the same workbook to which the named range is on.
I have a named range on sheet2 called "Letters" and comprises of cells D20-D25 .
I am trying to call this range on Sheet1 at A1-A6 , so in A1 to A6 I simply have "=Letters" (No quote marks) , but I simply get "#VALUE!" (No Quote Marks), If I then extend the selected cell down to A25 the "Letters" will appear in A20-A25
whereas if I put the same "=Letters" in Sheet1 cell A20-A25 I will get the correct named range.
How can I get the range to show in Sheet 1 Cell A1-A6.
I want to reproduce a named range at a different location on a different sheet in the same workbook.
View 2 Replies
View Related
Aug 16, 2014
Let's say you have a named range, Rng1, which consists of cells A1 & A2. In vba how would you report back what, if any, named range the following cells resides:
Code] .....
here are multiple named ranges so using intersect is not feasible. Essentially, through code, I will be given a range and I need to determine if that range if part of a named range.
View 5 Replies
View Related
Feb 6, 2009
I have a namd sheet for everyday of the year in a workbook, so jan1 jan2 jan3 etc. I have a stats page which brings together certain pertinent data from those pages, so a formula on the stats page might look like this =sum('jan1'!$m$25:$m$900). What I would like to do is to name each day - jan1 jan2 etc as a named range perhaps date1 date2 etc so that the above formula would then look like =sum(date1!$m$25:$m$900).
View 2 Replies
View Related
Apr 27, 2009
My vb code currently creates a new sheet via "Sheets.add". This new sheet has the default name of "sheet1" which I rename as "tempSheet". I then populate tempSheet with data, save as a CVS file and then I remove tempSheet.
If I stay in my workbook and try to execute the code again, the default name of the sheet it now creates is "sheet2" and not "sheet1" - this is a problem becuase my code is trying to rename "sheet1" "tempSheet" and of course it cant.
View 3 Replies
View Related
Jun 20, 2012
I just named a range on a sheet and would like to paste that range on a different worksheet within the same workbook. I can't figure out how to refer to the range. I've tried several different variations so far. Example below:
ActiveWorkbook.ActiveSheet.Names.Add Name:="RawSectorData", RefersToR1C1:="=R6C1:R29C11"
'Add new sheet and paste data
ActiveSheet.Name = "Raw_data_Sector_Summary"
ActiveWorkbook.Sheets.Add.Name = "RawData"
Range("A1").Formula = "=RawData!(RawSectorData)"
View 5 Replies
View Related
Jun 25, 2012
With VBA I need to add a rectangle to a sheet and have the shape named. They usually start out as "Rectangle 1", but I would like to set the name with the code.
View 9 Replies
View Related
Aug 23, 2007
Most of the methods used for returning the sheet name are quite cumbersome. "=MID(CELL("filename",A1), FIND("]",CELL("filename",A1))+1,256)" takes up a lot of space in a larger formula.
Is it possible, please, to create a Name which returns the sheet name? For example I could write "=ThisSheet" and it would return the name of the sheet.
Of course I could resort to a UDF, but I wondered if it could be done directly in Excel.
When I try to insert the formula "=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256)" into a Name, Excel helpfully converts A1 to "'Sheet1'!A1". So "=ThisSheet" in Sheet2 returns "Sheet1".
If I make the sheet name part of the Name, as in "'Sheet1'!ThisSheet, it works OK, but has to be added for each new sheet (though it works if an old sheet is copied).
View 4 Replies
View Related
Feb 11, 2013
I have a named range on one sheet, and I want to show this as a reference on other sheets. I thought this would be simple, but maybe it's just not the way named ranges are used.
Attached is a sample spreadsheet. First tab shows the table defined; in practice it would be much larger. Second tab shows how I want it to appear. I see that I can do this by copying each cell reference. But what would be nice is to simply say "Put the named range block of cells right here."
View 3 Replies
View Related
Apr 19, 2013
I have a challenge I'm trying to surmount. I have an excel sheet in which I want to be able to select Zone codes from a drop down, click on a link "search" which takes me to a place in the document that has been named according to the Zone code i pick in the drop-down. I want to achieve this using only formulas as i'm distributing the file to a wide audience who are not versed enough with computers to know how to enable macros.
View 3 Replies
View Related
Nov 17, 2011
How can i find if a named range exists in a sheet using VBA?
E.g.: I have a named range called test that houses 4 numbers in four cells. Using
Code:
Dim rtest As Range
Set rtest = Worksheets("sheet1").Range("test")
.
.
.
.
rFoundCell = _
Cells.Find(What:=rtest, After:=Range("a1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False)
Won't work. Run - time error 91 occurs.
View 9 Replies
View Related
Jun 30, 2012
I want a Macro to take a sheet (same named sheet) from several workbooks in one folder into a new workbook and paste each in one sheet in this new workbook. i want to rename the sheets in the new workbook based on the value in cell D2 ( i can manage that
How can i manage that by simple opening the folder or do i need to open all those workbook manually for that to be done.
View 1 Replies
View Related
Jun 15, 2007
is there a way to have the same named range cover a range of cells regardless of which sheet you are on? They seem to want to default to the page you are on. I want to make some VBA subroutines that will go over each sheet, and perform the same functions on each sheet. All sheets have the same format, but different data. I guess worst case scenario I can just break down and use multiple workbooks, but this seems a little less desirable. Should I be dividing this into seperate posts?
View 3 Replies
View Related
Jul 26, 2007
At work I have different sheets in a workbook labeled Saturday-Friday. I have a macros set up to print other sheets in the workbook, however I only need to print the current day. Is it possible to setup a macros to print only the day of the week? I have searched and searched.
View 3 Replies
View Related
Apr 9, 2008
I have a dynamic named range named ’db’ in sheet1. I need to have the same range linked to sheet2 starting in cell A1.
View 3 Replies
View Related
Jun 3, 2008
There is a 'Home' page with a button for each employee - clicking the button takes the user to the appropriate employee's timesheet
There is also an 'Add New Employee' button on the home page which brings up a form and allows a new employee to be added.
Each employee has only 1 worksheet (Which is created based on a blank template page)
When the 'Add New Employee' button is clicked a form pops up which ask for name, D.O.B etc. The user fills out the form and clicks ok. The template sheet is then copied, renamed to the employees name, and all relevent fields are added to the template sheet (based on the users input). A button is also generated on the home page with the employees name as a caption and when it is clicked it goes to employees timesheet.
I have almost got this working.
The only problem is this only works once, So For Example say i Add 'John' then i add 'Mary' on the home page i now have 2 buttons with 'John' and 'Mary' on them. The problem is as soon as a second employee is added (Mary), the first employees button(John) is linked to the second employee's Sheet rather than its own(Mary). and after the spreadsheet is closed the buttons dont work at all.
The link below has the spreadsheet i have made so far, you can test it out if my description doesnt make sense or you can see the code behind the 'add new employee' form:
############################################################
#### 'Add Employee' Button on Add New Employee Form ####
############################################################
Private Sub cmdadd_Click()
'check for Name
If Trim(Me.EmpName.Value) = "" Then ..............................
View 9 Replies
View Related
Aug 23, 2007
What is the code to automatically save the new template worksheet in a folder and name defined in a couple of cells.
The folder name will be always be: "Q:AssetsCustomersfolder name"
I need the folder name to come from cell C3 on the spreadsheet and the filename to come from cell R3.
View 2 Replies
View Related
May 21, 2008
I am trying to enter only the named ranges in the active worksheet into an Array.
The amount of named ranges can be from 4 to 7 per sheet.
I'm self taught at VB (This posts on this forum have taught me - thank you!) and have got the below code working on a Workbook - but not on a worksheet level.
ActiveSheet.Names.Count returns nothing, changing to ThisWorkBook.Names.Count returns the sum of all .Names in the workbook.
Sub aTest()
Dim sArray() As String
Dim sJoin As String
Dim y As Long
x = 1
y = ActiveSheet.Names.Count
z = ActiveSheet.Name
View 3 Replies
View Related
Aug 14, 2012
How can I test in my VBA wether a named range (with a scope of sheet) exists on the active sheet?
Code:
If "EmployeeEmail" exists on the active sheet Then,
xxxx
Else
yyyy
End If
Using Excel 2010.
View 7 Replies
View Related
Mar 18, 2014
I have a sheet named "Current" and in Colum A named "VRM" there are registration numbers.
I have another sheet named "Potential Flyers" again Column A is named "VRM"
I would like in Sheet named "Current" to highlight a Reg Number if it is also typed into Sheet named Potential Flyers.
View 14 Replies
View Related
Jul 11, 2014
Attached is a master metrics deck, where data needs to be refreshed every week, from two different workbooks.
The catch is, the two parent workbooks would be new versions every week (data would be same format, and style within), but file name would change each week, for eg: for 1st workbook, 'XXX_Weekly_Week24.xlsx' to 'XXX_Weekly_Week25.xlsx' and so on.
for 2nd workbook, 'YYY_Weekly_Week24.xlsx' to 'YYY_Weekly_Week25.xlsx' and so on.
In the master metrics deck, a consolidated vew of some of data from workbook 1 and workbook 2 is presented for each week.
This master file would remain same, and only be refreshed each week (preferably with a button on its sheet "REFRESH!!")
Next, need to manually change cells C2:G2 each week to reflect week titles correctly.
For e.g.: week6 would show week 1 through week 5, but during week7, it needs to show week 2 to week 6. Only last five weeks of data any given time.
The first datarows of each set are conditionally formatted (they are compared with other rows in the set and need to reflect danger values, good values etc) (I have done that already).
View 1 Replies
View Related
Apr 1, 2014
I have a master sheet and 102 'advisor named sheets'. The master sheet is updated daily with information (number and text) along 1 row in different columns (A:W). I would like when the advisors name is typed (W) =joebloggs! for this whole row to be auto input on joebloggs sheet. There can be multiple of these entered daily for same person, so the information would need to populate on the next row so not to type over the previous entry.
View 3 Replies
View Related
Jun 2, 2006
I need to create a named range on multiple sheets with the same named range & i cant figure out how to do this. EG :- I want to create a named range called "_SubUnitRows" on sheet1 starting from "A1:A50" & other named range again called "_SubUnitRows" on Sheet2 starting from "A1:A25" ...
View 2 Replies
View Related
Feb 6, 2008
I have a sheet where i have many differently named areas (like state1_1 and state1_2) When I doubleclick on a cell then a macro should run with following criteria: 1) Macro will run if the doubleclicked cell is part of any range in the list. Here I mean that names of ranges which belong to that list start with word state (like state1_1 and state1_2). No other ranges should not be in that list. If the cell is not in the range that is part of the list, then nothing should happen.
View 2 Replies
View Related
Oct 25, 2009
if I can use a named criteria as well as a named range. In essence what I am looking to do is count certain cells that meet the criteria in a certain named named range,
View 9 Replies
View Related