Cuestión : VBA para la creación múltiple de la carta usar SheetsFound

Hola, necesito a algún experto que advice.

I han hecho actual una hoja de balance en la cual i entró un ciertos datos de un informe externo; una macro entonces se funciona con para analizar los datos y transfiere cualquier cosa que no cumple criterios de un sistema a Sheet2 y las clases en macro de order.
The después crean las lengüetas para cada uno de los diversos nombres del cliente enumerados dentro de sheet1, en orden de fecha (mientras que el informe demuestra realmente blancos durante un mes). el

I ahora se pegó pues quisiera una macro que crearía automáticamente gráficos de dispersión dentro de cada uno de las lengüetas que demuestran que el funcionamiento del cliente durante el mes - no puedo parecer hacer esto con todo menos la hoja activa - y la macro tiene que trabajar sobre la base que no sabrá cuántas hojas (tendrá que tan colocar) o los nombres de estas hojas (significado va a tener que terminar un sheetfound). el

I ha atado un ejemplo de cómo la hoja miraría una vez la macro había funcionado al punto de donde estoy ayuda de now.

Any sería apreciado grandemente. nombre de fichero " vacío " >

 (34 KB) Javascript del href= " de los " attachmentDetails del class= " de (tipo de archivo detalles) class= " vacío " " a.C. " title= " del >
l class= del " >
Example.xlsm de http://filedb.experts-exchange.com/incoming/2010/07_w30/328920/Example.xlsm” del” href= " (34 KB) Javascript del href= " de los " attachmentDetails del class=” de (tipo de archivo detalles) class= " vacío " " a.C. " title= " del >
l class= del " >
Example.xlsm de http://filedb.experts-exchange.com/incoming/2010/07_w30/328920/Example.xlsm” del” href= " (34 KB) Javascript del href= " de los " attachmentDetails del class=” de (tipo de archivo detalles) class= de >Example
del >
class= del

Respuesta : VBA para la creación múltiple de la carta usar SheetsFound

Autorización, tomé su valor sheet1 de su libro de trabajo atado y lo puse en un nuevo libro de trabajo.  Después copié su código y lo funcioné.  Funcionó con éxito con un msgbox “hecho”.  Creó las hojas Client2 y Client3 de Client1 con datos.  Sin embargo, ningunas de estas hojas tienen valores en la columna de D.

Entonces funcioné conmigo submarino abajo.  Puso cartas en cada hoja de trabajo del cliente usar el A2: A32, D2: D32 como el datasource en cada uno.

Estoy entendiendo mal quizá….

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

Cartas secundarias ()
Sht dévil como hoja de trabajo
Wb dévil como libro de trabajo
  
Fijar wb = ActiveWorkbook
Para cada sht en el wb. Hojas
    Si InStr (1, sht. Nombre, “cliente”) > 0 entonces
        Con sht.ChartObjects.Add (dejado: =100, anchura: =375, tapa: =75, altura: =225)
            . Fuente de Chart.SetSourceData: =sht. Gama (“A2: A32, D2: D32”)
            . Chart.ChartType = xlXYScatter
        Extremo con
    Terminar si
Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us