Vraag : VBA voor de Veelvoudige Verwezenlijking die van de Grafiek SheetsFound gebruiken

Hallo, heb ik één of andere deskundige advice.

I momenteel nodig heb gemaakt een spreadsheet waarin ik sommige gegevens van een extern rapport invoerde; een macro wordt dan in werking gesteld om de gegevens te analyseren en het brengt om het even wat over die aan geen vastgestelde criteria aan Sheet2 voldoet & de soorten in macro order.
The dan tot lusjes voor elk van de verschillende die cliëntnamen leidt binnen sheet1, in datumorde worden vermeld (aangezien het rapport eigenlijk doelstellingen over een maand toont). nu geplakte

I am aangezien ik van een macro zou houden die automatisch verspreidings tot grafieken binnen elk van de lusjes leiden zou die de prestaties van de cliënt tijdens de maand tonen - ik kan niet schijnen om dit met om het even wat maar het actieve blad te doen - zal en de macro moet aan de basis werken het weten hoeveel niet bladen (zo zal het moeten van een lus voorzien) of namen van deze bladen die (gaat het een sheetfound moeten voltooien betekenen).

I heeft een voorbeeld vastgemaakt van hoe het blad eruit zou zien zodra de macro aan het punt had gelopen van waar ik hulp now.

Any zeer zou gewaardeerd worden ben. van
Example.xlsm (34 KB)
Example
Example.xlsm (34 KB) Example

Antwoord : VBA voor de Veelvoudige Verwezenlijking die van de Grafiek SheetsFound gebruiken

O.k., nam ik uw waarde sheet1 van uw werkboek in bijlage en zette het in een nieuw werkboek.  Ik kopi�ërde toen uw code en stelde het in werking.  Het liep met succes met „Gedaan“ msgbox.  Het leidde van Client1 Client2 en Tot client3- bladen met gegevens.  Nochtans, heeft geen van deze bladen waarden in de Kolom van D.

Ik stelde toen mijn hieronder sub in werking.  Het plaatste grafieken op elk aantekenvel van de Cliënt gebruikend A2: A32, D2: D32 als datasource op elk.

Misschien ben ik misverstand….

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

Sub grafieken ()
Schemerige sht als Aantekenvel
Schemerige wb als Werkboek
  
Vastgesteld wb = ActiveWorkbook
Voor Elke sht in wb. Bladen
    Als InStr (1, sht. Naam, „Cliënt“) > 0 toen
        Met Verlaten sht.ChartObjects.Add (: =100, Breedte: =375, Bovenkant: =75, Hoogte: =225)
            . Chart.SetSourceData Bron: =sht. Waaier („A2: A32, D2: D32“)
            . Chart.ChartType = xlXYScatter
        Eind met
    Eind als
Daarna
Sub van het eind
Andere oplossingen  
 
programming4us programming4us