Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Currently I am using this code to copy Text Boxes to a group of worksheets.
What I would like to do is Remove any and all objects and formats including CF from the sheets first and then Copy Any and all Objects as well as Formats including CF from the master worksheet (MstrWks) to all the other sheets in the range. The objects may be TextBoxes or Command Buttons, The formats would be Cell width, row height, Cell colors, Number and text formats as well as any conditional formats. I received this code from here several months ago and after a few changes that I made it works perfectly except when I change a textbox I first have to remove all boxes from all the sheets except the mastersheet. Sub Copy_All_Text_Boxes() Dim iCtr As Long Dim MstrWks As Worksheet Dim wks As Worksheet Dim TB As TextBox Dim NewTB As TextBox Dim strSH As String Set MstrWks = Worksheets("01") '-- the worksheet with the correct Formats and objects. For iCtr = 1 To 33 Set wks = Nothing On Error Resume Next Set wks = Worksheets(Format(iCtr, "00")) On Error GoTo 0 If wks Is Nothing Then MsgBox "worksheets: " & Format(iCtr, "00") & " doesn't exist!" Else If wks.Name = MstrWks.Name Then 'skip it Else For Each TB In MstrWks.TextBoxes TB.Copy wks.Paste Set NewTB = wks.TextBoxes(wks.TextBoxes.Count) With NewTB .Top = TB.Top .Left = TB.Left 'these two probably aren't necessary .Width = TB.Width .Height = TB.Height End With Next TB End If End If Next iCtr End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
copy objects false | Excel Discussion (Misc queries) | |||
Copy Worksheet wont copy objects. | Excel Worksheet Functions | |||
how do I copy all cells and all objects in a sheet together? | Excel Discussion (Misc queries) | |||
how do I link objects with color formats | Excel Discussion (Misc queries) | |||
Copy a folder and objects | New Users to Excel |