Fråga : VBA för multipel kartlägger skapelsen using SheetsFound

Hi har jag behöver någon sakkunnig advice.

I gjort för närvarande ett räkneark som jag matar in i några data från en yttre rapport; en makro körs därefter för att analysera datan, och den överför något, som inte möter fastställda kriterier till Sheet2 & sorterar i makro för order.
The då skapar flikar för varje av den olika beställaren namnger listat inom sheet1, daterar in beställer (som showsna för rapporten uppsätta som mål faktiskt över en månad). förmiddagen för

I klibbade nu, som jag skulle något liknande en makro som skulle skapar automatiskt scattergrafer inom varje av flikvisningen kapaciteten av beställaren över månaden - mig inte kan verka för att göra detta med något, men aktivet täcker - och makroen måste att fungera på basen som den ska för att inte veta hur många täcker (så den ska måste att kretsa), eller namnger av dessa täcker (menande den går att måste att avsluta en sheetfound).

I har fäst ett exempel av hur täcka skulle look en gång som makroen hade kört till peka av, var hjälp för I-förmiddag now.

Any skulle uppskattas väldeliga. filename " för class= för >

 Example.xlsm " fileSize " > (34 KB) " javascript för href= " för <-/span>
" l class= >
Example
class= " tom " ><-/div>Example.xlsm class= " fileSize " > (34 KB)” javascript för href= " för <-/span>
" l class= >
Example
class= " tom " ><-/div>Example.xlsm class= " fileSize " > (34 KB)” javascript för href= " för <-/span>
Example
<-/div>
" " för >
<-/div> " klar "

Svar : VBA för multipel kartlägger skapelsen using SheetsFound

Oken jag tog din sheet1 värderar från din fäste arbetsbok och sätter den i en ny arbetsbok.  Jag kopierade därefter ditt kodifierar och körde det.  Det körde lyckat med ”en gjord” msgbox.  Det skapade Client1 Client2, och Client3 täcker med data.  Emellertid inget av dessa täcker har värderar i D-kolonnen.

Jag körde därefter min nedanföra sub.  Den förlade kartlägger på varje beställarearbetssedel using A2en: A32 D2: D32 som datasourcen på varje.

Mig kanske missförstå för förmiddag….,

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Suben kartlägger ()
Dunkel sht som arbetssedeln
Dunkel wb som arbetsboken
  
Uppsättning wb = ActiveWorkbook
För varje sht i wb. Täcker
    Om InStr (1, sht. Namnge ”beställare”) > 0 därefter
        Med lämnad sht.ChartObjects.Add (: =100 bredd: =375 som är bästa: =75 höjd: =225)
            . Chart.SetSourceData-källa: =sht. Spänna (”A2: A32 D2: D32”)
            . Chart.ChartType = xlXYScatter
        Avsluta med
    Avsluta om
Därefter
Avsluta suben
Andra lösningar  
 
programming4us programming4us