Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
TAB STRIP CODE
I AM TRYING TO WRITE VBA CODE FOR A TAB STRIP THAT CONTAINS FOUR TABS WITH
THE SELECTION TO BE DISPLAYED IN A GIVEN CELL LOCATION. CAN ANYONE HELP ME OUT? -- icebreaker914 -- icebreaker914 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
TAB STRIP CODE
Hi,
the attached code will insert 3 worksheets to your workbook and rename them based on the contents of cells A1:A3 of your active sheet. The code is basic but it should put you in the right direction. Sub InsertSheets() ' Dim WsCurrent As Worksheet Set WsCurrent = ActiveSheet Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = WsCurrent.Range("A1").Value Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = WsCurrent.Range("A2").Value Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = WsCurrent.Range("A3").Value End Sub HTH Fadi www.chalouhis.com/XLBLOG |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
TAB STRIP CODE
Private Sub TabStrip1_Change()
Call TabStrip1_Click(TabStrip1.SelectedItem.Index) End Sub Private Sub TabStrip1_Click(ByVal Index As Long) Sheets(1).Range("C14").Value = TabStrip1.SelectedItem.Index Sheets(1).Range("C15").Value = TabStrip1.SelectedItem.Caption End Sub HTH. Best wishes Harald "icebreaker914" skrev i melding ... I AM TRYING TO WRITE VBA CODE FOR A TAB STRIP THAT CONTAINS FOUR TABS WITH THE SELECTION TO BE DISPLAYED IN A GIVEN CELL LOCATION. CAN ANYONE HELP ME OUT? -- icebreaker914 -- icebreaker914 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
STRIP CHARACTERS | Excel Worksheet Functions | |||
TAB STRIP | Excel Discussion (Misc queries) | |||
tab strip | New Users to Excel | |||
Strip Modules from Workbook - Code Organization | Excel Programming | |||
code to strip back (from the right) a directory but not the file name | Excel Programming |