Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enhance sub to paste charts as well
Requesting help to enhance the sub below
There are some charts on the sheet (linked to the data on the same sheet) that I would like pasted as well when the sub iterates through the DV in B3. How could the sub be revised to do this? Thanks ---------------- Sub RunBatch() 'Tom Ogilvy Dim sh As Worksheet, s As String Dim sh1 As Worksheet, r As Range Dim v As Range, i As Range Set sh = ActiveSheet Set r = sh.Range("B3") s = r.Validation.Formula1 Set v = Range("Branch") For Each i In v r.Value = "'" & i Application.Calculate Worksheets.Add After:=Worksheets(Worksheets.count) Set sh1 = Worksheets(Worksheets.count) sh.Cells.Copy sh1.Cells.PasteSpecial xlValues sh1.Cells.PasteSpecial xlFormats sh1.Name = i.Text sh1.Range("B3").Validation.Delete Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enhance sub to paste charts as well
you could try to copy the sheet instead
this is an idea ...you shpould be able to adapt it easily enough Dim sheetcount As Long sheetcount = WorkSheets.Count Sh.Copy After:=WorkSheets(sheetcount) "Max" wrote: Requesting help to enhance the sub below There are some charts on the sheet (linked to the data on the same sheet) that I would like pasted as well when the sub iterates through the DV in B3. How could the sub be revised to do this? Thanks ---------------- Sub RunBatch() 'Tom Ogilvy Dim sh As Worksheet, s As String Dim sh1 As Worksheet, r As Range Dim v As Range, i As Range Set sh = ActiveSheet Set r = sh.Range("B3") s = r.Validation.Formula1 Set v = Range("Branch") For Each i In v r.Value = "'" & i Application.Calculate Worksheets.Add After:=Worksheets(Worksheets.count) Set sh1 = Worksheets(Worksheets.count) sh.Cells.Copy sh1.Cells.PasteSpecial xlValues sh1.Cells.PasteSpecial xlFormats sh1.Name = i.Text sh1.Range("B3").Validation.Delete Next End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enhance sub to paste charts as well
Thanks, Patrick.
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy/Paste Charts; Define Destination of Charts in PowerPoint | Excel Programming | |||
Enhance Sort Results | Excel Discussion (Misc queries) | |||
Enhance your domain skills required for the job | Excel Programming | |||
what do you use to enhance financial data? | Excel Worksheet Functions | |||
how to enhance this macro (really short) | Excel Programming |