Frage : VBA für mehrfache Diagramm-Kreation using SheetsFound

Hallo, benötige ich irgendeinen Experten, den advice.

I z.Z. einen Verteilungsbogen hergestellt haben, in dem i etwas Daten von einem externen Report eingab; ein Makro wird dann laufen gelassen, um die Daten zu analysieren und es bringt alles, das Kriterien eines Satzes nicht zu Sheet2 erfüllt u. Art order.
The im Makro dann Vorsprünge für jeden der verschiedenen Klientennamen verursacht, die innerhalb sheet1 verzeichnet werden, im Datumauftrag (während der Report wirklich Ziele in einem Monat zeigt).

I morgens haftete jetzt, da ich ein Makro möchte, das automatisch Streuungdiagramme innerhalb jedes der darstellenden Vorsprünge verursachen würde, muss dass die Leistung des Klienten in dem Monat - ich kann nicht scheinen, dies mit nichts zu tun aber das aktive Blatt - und das Makro an der Basis arbeiten, die es nicht weiß, wieviele Blätter (so muss es sich schlingen) oder die Namen dieser Blätter (Bedeutung wird es ein sheetfound abschließen müssen).

I haben ein Beispiel angebracht von, wie das Blatt einmal das Makro war gelaufen zum Punkt schauen würde von, dem ich now.

Any Hilfe würde sehr geschätzt bin.

Example.xlsm (34 KBs) (Akten-Art Details) class= " Beschreibung freies leeres " >

	" L class= >
Example

Example.xlsm (34 KBs) (Akten-Art Details) class= " Beschreibung freies leeres " >

	" L class= >
Example

Example.xlsm (34 KBs) (Akten-Art Details) " leeren "

Example

Antwort : VBA für mehrfache Diagramm-Kreation using SheetsFound

O.K., nahm ich Ihren Wert sheet1 von Ihrem angebrachten Arbeitsbuch und einsetzte ihn in ein neues Arbeitsbuch es.  Ich dann kopierte Ihren Code und laufen ließ ihn.  Er lief erfolgreich mit einem „erfolgten“ msgbox.  Er herstellte Client1 Blätter Client2 und Client3 mit Daten nd.  Jedoch haben keine dieser Blätter Werte in der d-Spalte.

Ich laufen ließ dann mein Unterseeboot unten.  Es setzte Diagramme auf jedes Klientenarbeitsblatt using das A2: A32, D2: D32 als die Datenquelle auf jedem.

Möglicherweise missverstehe ich….

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

Vordiagramme () Schwaches sht als Arbeitsblatt Schwache WB als Arbeitsbuch Einstellen WB = ActiveWorkbook Für jedes sht in WB. Blätter Wenn InStr (1, sht. Name, „Klient“) > 0 dann Wenn sht.ChartObjects.Add (gelassen: =100, Breite: =375, Oberseite: =75, Höhe: =225) . Chart.SetSourceData Quelle: =sht. Strecke („A2: A32, D2: D32“) . Chart.ChartType = xlXYScatter Ende mit Beenden wenn Zunächst Enden-Unterseeboot