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 |
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 |