Pytanie : VBA dla Wieloskładnikowy Mapa Tworzenie using SheetsFound

Cześć, I potrzebować niektóre ekspert advice.

I obecnie robić spreadsheet w che i input niektóre dane od external raport; macro wtedy biegać the dane i ono przenosić być che spotykać ustalony kryterium Sheet2 & rodzaj w order.
The macro then tworzyć zakładka dla the różny klient imię spisywać wśród sheet1, w daktylowy rozkaz (gdy the raport właściwie pokazywać cel nad miesiąc).

I am wtykać teraz gdy I polubić macro che automatycznie tworzyć scatter wykres wśród the zakładka the występ the klient nad the miesiąc - I móc z ale the aktywny prześcieradło - i the macro musieć na the podstawa ono znać ile prześcieradło (w ten sposób ono musieć) lub the imię te prześcieradło (znaczenie ono iść sheetfound).

I dołączać przykład jak the prześcieradło patrzeć doceniać the macro biegać the punkt dokąd I być now.

Any pomoc ogromnie doceniać.
Example.xlsm (34 KB) (Kartoteka Typ Szczegół)
Example
Example.xlsm (34 KB) (Kartoteka Typ Szczegół)
Example
Example.xlsm (34 KB) (Kartoteka Typ Szczegół)
Example

Odpowiedź : VBA dla Wieloskładnikowy Mapa Tworzenie using SheetsFound

Ok, I wziąć twój sheet1 wartość od twój dołączać workbook i stawiać ono w nowy workbook.  I wtedy kopiować twój kod i biegać ono.  Ono biegać pomyślnie z "Robić" msgbox.  Ono tworzyć Client1 Client2 i Client3 prześcieradło z dane.  , Kolumna te prześcieradło mieć wartość w the D Kolumna.

I wtedy biegać mój okręt podwodny mój.  Ono umieszczać mapa na a2 Klient worksheet using the A2: A32, D2: D32 jako the datasource na each.

Być może I źle zrozumieć….

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

Okręt podwodny sporządzać mapę ()
Ciemnawy sht Jako Worksheet
Ciemnawy wb Jako Workbook
  
Set wb = ActiveWorkbook
Dla Sht sht W wb. Prześcieradło
    Jeżeli InStr ((1), sht. Imię, "Klient") > (0) Wtedy
        Z sht.ChartObjects.Add (Opuszczać: =100, Szerokość: =375, Wierzchołek: =75, Wzrost: =225)
            . Chart.SetSourceData Źródło: =sht. Pasmo ("A2: A32, D2: D32")
            . Chart.ChartType = xlXYScatter
        Końcówka Z
    Kończyć Jeżeli
Następnie
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us