Pergunta : VBA para a criação múltipla da carta using SheetsFound

Olá!, eu preciso algum perito que advice.

I têm feito atualmente um spreadsheet em que i entrou alguns dados de um relatório externo; um macro é funcionado então para analisar os dados e transfere qualquer coisa que não encontra critérios de um jogo a Sheet2 & as sortes no macro de order.
The a seguir criam abas para cada um dos nomes diferentes do cliente alistados dentro de sheet1, na ordem de data (enquanto o relatório mostra realmente alvos sobre um mês). o

I am furou agora porque eu gostaria de um macro que criasse automaticamente gráficos de scatter dentro de cada um das abas que mostram que o desempenho do cliente sobre o mês - eu não posso parecer fazer este com qualquer coisa mas a folha ativa - e o macro tem que trabalhar na base que não saberá quantas folhas (assim terá que dar laços) ou os nomes destas folhas (significado está indo ter que terminar um sheetfound). o

I uniu um exemplo de como a folha olharia uma vez o macro tinha funcionado ao ponto de onde eu sou ajuda de now.

Any seria apreciado extremamente. nome de arquivo " vazio " >

 Example.xlsm " fileSize " > (34 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes) >
Example
class= >
Example.xlsm " de http://filedb.experts-exchange.com/incoming/2010/07_w30/328920/Example.xlsm” do” href= (34 KB) Javascript” do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes) >
Example
class= >
Example.xlsm " de http://filedb.experts-exchange.com/incoming/2010/07_w30/328920/Example.xlsm” do” href= (34 KB) Javascript” do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes) o class= >Example
>
class= do

Resposta : VBA para a criação múltipla da carta using SheetsFound

Aprovação, eu tomei seu valor sheet1 de seu manual de instruções unido e põr o em um manual de instruções novo.  Eu então copiei seu código e funcionei-o.  Funcionou com sucesso com um msgbox “feito”.  Criou as folhas Client2 e Client3 de Client1 com os dados.  Entretanto, nenhumas destas folhas têm valores na coluna de D.

Eu funcionei então meu submarino abaixo.  Coloc cartas em cada folha do cliente using o A2: A32, D2: D32 como a origem de dados em cada um.

Talvez eu estou entendendo mal….

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

Cartas secundárias ()
Sht não ofuscante como a folha
WB não ofuscante como o manual de instruções
  
Ajustar WB = ActiveWorkbook
Para cada sht na WB. Folhas
    Se InStr (1, sht. Nome, “cliente”) > 0 então
        Com o sht.ChartObjects.Add (deixado: =100, largura: =375, parte superior: =75, altura: =225)
            . Fonte de Chart.SetSourceData: =sht. Escala (“A2: A32, D2: D32”)
            . Chart.ChartType = xlXYScatter
        Extremidade com
    Terminar se
Em seguida
Submarino da extremidade
Outras soluções  
 
programming4us programming4us