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 |
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 |
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 |
All times are GMT +1. The time now is 10:44 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com