Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
help
i have a workbook with a sheet in wich a cell, with data validation, can
display a serie of names; i.e., example1, example2, example3, .... what i want is this: if i select in that cell, for example, example1, then if sheet example1 exists it will be slected, otherwise it will be created with that name. is this clear? i hope so :) iŽll apreciate any solution, and ..., thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
help
Put the following code in the sheet module for the worksheet that
contains the cell with the validation: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$A$1" Then Worksheets(Target.Value).Select If Err.Number < 0 Then Worksheets.Add.Name = Target.Value End If End If On Error GoTo 0 End Sub Change $A$1 to the cell with the validation list. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "mc2" wrote in message ... i have a workbook with a sheet in wich a cell, with data validation, can display a serie of names; i.e., example1, example2, example3, ..... what i want is this: if i select in that cell, for example, example1, then if sheet example1 exists it will be slected, otherwise it will be created with that name. is this clear? i hope so :) iŽll apreciate any solution, and ..., thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
help
hi, thanks, it works great!
can you change the code to do the same but instead of adding a new sheet, it will duplicate an existing one, and the duplicated will have the name that is in the cell with the validation. i hope iŽm clear :) "Chip Pearson" wrote in message ... Put the following code in the sheet module for the worksheet that contains the cell with the validation: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$A$1" Then Worksheets(Target.Value).Select If Err.Number < 0 Then Worksheets.Add.Name = Target.Value End If End If On Error GoTo 0 End Sub Change $A$1 to the cell with the validation list. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "mc2" wrote in message ... i have a workbook with a sheet in wich a cell, with data validation, can display a serie of names; i.e., example1, example2, example3, .... what i want is this: if i select in that cell, for example, example1, then if sheet example1 exists it will be slected, otherwise it will be created with that name. is this clear? i hope so :) iŽll apreciate any solution, and ..., thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|