Ir ao conteúdo
  • Cadastre-se

mdiego

Membro Pleno
  • Posts

    29
  • Cadastrado em

  • Última visita

posts postados por mdiego

  1. 9 horas atrás, TianK disse:

    Boa noite,

     

    Então, eu testei mais o filtro e corrigi uma falha que gerava resultados inconsistentes. O acumulado parece se comportar corretamente agora, somando os meses disponíveis para os critérios selecionados.

     

    Também incluí a chamada (call) da rotina para classificar as colunas do relatório Mês. Tomei a liberdade de renomeá-la a rotina para ClassificarRelatorioMes quanto transferi para o Módulo Painel.

     

    Agradeço pelos elogios... e principalmente pelo retorno. A cada ajuda a gente aprende mais com as necessidades de outros usuários do LibreOffice ou OpenOffice.

     

    Como da outra vez, renomeie a extensão zip para ods:

     

     

     

    TianK(v4).zip

    Bom dia, Tiank!

     

    Obrigado por perder algumas horas do seu dia para me ajudar. 

    Ficou muito bom. Isso vai me ajudar bastante...  Tem outras coisas que eu precisaria fazer, mas já abusei da boa vontade.  Aproveitei o seu código Classificar mês  e fiz para o acumulado. 

    O mais engraçado, é que tem um cara que programa em Basic e escreve da mesma forma que você. 

    oPlan.

    oRelatorio

    sCriterio 

    Isso seria um padrão?

     

    Abração e obrigado. 

    • Curtir 1
  2. Então, os critérios estão certinho... É que o acumulado é sempre o mês atual+o mês anterior...  O de cima está certinho, é o de baixo seria o acumulado. 

     

    No caso escolheria os critérios, e a data do acumulado poderia ser fixa... Somar tudo de janeiro até dezembro. Ai conforme vou inputando os dados vai gerar sempre o do último mês.  

     

    E quantidade de dados varia, mais o menos 1 a 2 mil linhas mês, 24 mil linhas preenchidas até o fim do ano. 

     

    Hahah, Enfim, obrigado! 

    E pra classificar é só eu chamar com call?

     

    Não é puxando saco não, mas esse conhecimento de programação em Basic é invejável! Abraço e obrigado. 

    • Curtir 1
  3. Bom dia, Tiank!!

     

    Muito grato pela rapida solucao o grande problema é que eu nao consegui renomear.... Extrai e ficou tudo em XML 

    Se puder me dizer como faco isso... 

     

    Obrigado mais uma vez.

     

    adicionado 20 minutos depois

    Sensacional Tiak. O único problema que é que na hora gerar o relatório na está classificado onde está o mês. E o acumulado é do primeiro mês até o mês 12... A soma de janeiro ao último mês lançado.   Tirando isso sensacional... Queria ter esse raciocínio! Seria possível gerar gráficos?! 

     

    Obrigado novamente

  4. 2 horas atrás, TianK disse:

    Bom dia,

     

    Estava olhando seu arquivo e fiquei com algumas dúvidas.

    • Os parâmetros da aba Informações sãos todos os critérios que você precisa?
    • A coluna "Setor" da tabela parâmetro não é de setores, mas de critérios? Exemplo: os que possuem "Família" são, na verdade, um conjunto de setores e/ou itens (matérias-primas).

     

    []s.

    Stiak, primeiramente boa tarde e obrigado! 

    Sim, essa aba informações tudo aquilo são os critérios...

     

    Sim, são critérios.... 

    Exatemente isso que você me disse  famílias são um conjuntos de setores e/ou itens.

     

    Mas o que eu gostaria de fazer...

     

    Ter tipo uma combobox onde seleciono 

    Esses critérios. 

    Exemplo:  Gerar relatório

     

    Matéria prima. Posso selecionar todas ou uma só.  

    Mês

    Setor posso selecionar um, alguns ou todos

    Selecionar os itens que pertence para aquele  setor ou setores. Ai ja não precisaria obtecer aquelas listas de critérios da informações

     

     

    Obrigado Mestre!

     

     

     

     

     

     

     

     

     

     

     

  5. Boa noite Pessoal!

     

    Alguém sabe se dar para fazer extração de dados de um planilha para outra baseado em critérios?

     

    Por exemplo:  

    Na base de dados eu tenho: Setor, Data, Código, Defeito A, Defeito B... 

     

    Na outra planilha eu teria o local para colocar os critérios.  

    Exemplo 

                    Setor : Alimentação

                    Data : Janeiro

                    Código: de 7000 até 8000 e 10.000 até 15.000

             IF SETOR == Alimentação && Data == Janeiro && Código >= 7000 && <=8000 && 10.000 && 15.000  Then

    Enfim, não entendo muito bem disso.

     

    Se alguém puder me ajudar fico grato.

     

    Atenciosamente,

     

                     

                     

     

  6. @TianK  Boa noite, Tiank! 

     

    Nesse caso, seria isso então:

    Abrir a planilha do setor A de forma oculta.

    Importa os dados das colunas  que estão esses apontamentos para a planilha central (geral) que irá gerar os dados.

    Fechar a planilha A.

    Abrir a planilha do setor B... E repetir os procedimentos para as demais...

    Após todos os dados importados, selecionar o setor e o mês gerar o indicador: 

    Porosidade/Trinca/Furo/ Total Defeitos /Lote

    10                    10      10          30                   3000

    33,33%      33,33%   33,33%  100%

    Depois como vou gerar o acumulado por exemplo de Janeiro até Junho?

    Está meio complexo isso, melhor deixa do jeito que está.

     

    Obrigado Mestres!  

     

    Feliz ano novo atrasado! 

     

     

  7. @TianK Boa tarde, Tiank! 

     

    Tem como você analisar a minha pergunta? Desculpa mencionar você assim... 

    O @g.schiavinatto deu uma luz... Mas o volume de dados é muito grande e iria aproveitar que estou de férias até 16 de janeiro, para tentar desenvolver alguma coisa... 

     

    A partir daquela primeira macro consegui mudar algumas coisas... Somar, contar... Sensacional... 

     

    Obrigado e bom fim de ano a vocês.

     

  8. @g.schiavinatto  É, realmente não consigo enviar.

    T.I bloqueou meu email externo, tudo bem, paciência!  Tentei facilitar o meu trabalho, porque manter aquele monte de formula travando não é legal!

    Mas nas férias vou trabalhar em uma planilha totalmente automatizada, com as macro que o Stiank já da para ter uma base legal e o que eu não souber eu busco na internet.

     

    Valeu Mestre!  

     

     

  9. É uma boa solução g.schiavinatto! Já fiz isso... Mas como você disse, muitos dados trás problemas.

     

    Eu tenho ao todo 10 Setores - Em média cada um tem 7 defeitos 

     

    Por exemplo Setor A -  Defeitos A|B|C|D|E|F|G -  Total Defeitos / Total Prod.

                         Setor B - Defeitos  A|C|D

                         Setor C - Defeitos A|B|C|D|E|

     

    Então ao final eu preciso gerar defeitos no mês de cada setor e defeitos acumulado de janeiro até o momento (dezembro no caso) E também ao final eu preciso gerar indicador geral disso tudo Todos os defeitos de todos os setores no mês e acumulado. 

     

    Só para ter uma ideia de volume de dados

    No mês cerca de 300 linhas são preenchidas 10 x  300 = 3.000 Linhas... No ano 36.000

     

    Obrigado G. Schiavinatto 

     

     

     

     

  10. Boa noite,

     

    Gostaria de saber se é possível eu extrair dados de outras planilhas automático/classificar/somar/gerar indicadores.

     

    Essas Planilhas estão localizadas em uma pasta onde todos tem acesso dentro de um servidor. 

     

    Exemplo: I:/Arquivos/Lançamentos/SetorA   (Dentro desse Setor A tem uma planilha onde é preenchidos os dados com as informações)

     

    Setor A 
    Data - Turno - Código -  Trinca/Porosidade/Rechupe/Marmorizaçao/ Total Defeitos / Lote
    11/16    1     88207000         0         1       10      500                                  511          1000
    12/16    1     88207011         1         10       0       400                                 411          300   

                                     Defeitos


    Setor B
    Data - Turno - Código -  Trinca/Porosidade/Rechupe/Marmorizaçao/ Falha Operacional/ Total Defeitos / Lote
    11/16    1         88207011    0                1         0                   0                               9                   10            1000

     

                   I:/Arquivos/Lançamentos/SetorB

     

    Queria gerar um relatório em um outro diretório exemplo: 

    C:/Documentos/Diego/Relatório/ (Dentro da pasta relatório estaria o arquivo ODS)

     

    Relatório Mês / Acumulado

    Setor A
    Data -  Trinca/Porosidade/Rechupe/Marmorizaçao/ Total Defeitos / Lote

    Novembro               1      0        10          500                                  511        1000
    % =         1%      0%      9%         90%              100%        -  (Defeitos/Total defeitos)

          -  Trinca/Porosidade/Rechupe/Marmorizaçao/ Total Defeitos / Lote 
    Acumulado   1      11       10      900             922           1300    

     % =              1%      0%      9%         90%              100%


    Relatório Geral

    Setor Geral
    Data -         Trinca/Porosidade/Rechupe/Marmorizaçao/ Falha Operacional/ Total Defeitos / Lote
    Novembro -        0     12         10      500              9                   521        2000
    Acumulado         1     12         10      900              9                   932         2300

     

     

    Não sei se deu para entender. Nem sei se é possível!

     

    Hoje eu faço tudo manualmente.

     

    Grato!  

  11. Estou com um probleminha - Quando compara o campo dos códigos unicos x plano ->>>> Ele não consegue comparar um valor sem string.

                                               Por exemplo:    Valores Unicos            Plano            FORA DO PLANO

                                                                           88207010F        88207010F          88207006

                                                                            88597006           88597006

    Ele está me dizendo que todos sem letra está fora do plano. Sabe me dizer o por que?  E estou tentando desvendar bruxaria que foi feita pra preencher as datas únicas. (Se poder me indicar em qual parte do código está isso)

     

    Desculpa pelos transtornos Tiank. 

     

    Obrigado!

  12. 14 horas atrás, TianK disse:

    Boa noite,

     

    Veja se este código resolve seu caso:

     

    
    Sub ExtrairUnicosComparar
    Dim mCamposFiltro(0) As New com.sun.star.sheet.TableFilterField
       
       oPlan = ThisComponent.Sheets.getByName( "Planilha1" )
       oIntervalo = oPlan.getCellRangeByName( "A2:A5000" )
       
       'Descritor do filtro
       oDescFiltro = oIntervalo.createFilterDescriptor( True )
       
       'Definir os campos
       mCamposFiltro(0).Field = 0
       mCamposFiltro(0).Operator = 1
       
       'Estabelecer o destino
       oDestino = oPlan.getCellRangeByName( "B2" ).getCellAddress()
       'Propriedades do filtro padrão
       oDescFiltro.ContainsHeader = False
       oDescFiltro.SkipDuplicates = True
       oDescFiltro.CopyOutputData = True
       oDescFiltro.OutputPosition = oDestino
       oDescFiltro.FilterFields = mCamposFiltro
       
       oIntervalo.Filter( oDescFiltro )
       
       Lin  = 0
       Do
         Lin = Lin+1
         oCel = oPlan.getCellByPosition( 1,Lin )
       Loop Until  oCel.String = ""
       mValoresUnicos = oPlan.getCellRangeByName("B2:B"&Lin).getDataArray
    
       Lin  = 0
       Do
         Lin = Lin+1
         oCel = oPlan.getCellByPosition( 2,Lin )
       Loop Until  oCel.String = ""   
       mPlano = oPlan.getCellRangeByName("C2:C"&Lin).getDataArray
       
       L = 1
       For I = 0 To Ubound(mValoresUnicos)
          bIgual = False
          For J = 0 To Ubound(mPlano)
             If mPlano(J)(0) = mValoresUnicos(I)(0) Then
          	    bIgual = True
                Exit For
             End If
           Next
          
          If Not bIgual Then
             oPlan.getCellByPosition( 3,L ).Value = mValoresUnicos(I)(0)
             L = L + 1
          End If
       Next	
    	
    End Sub

     

    []s.

     

    adicionado 9 minutos depois

    Boa tarde, 

     

    Tiak, funcionou perfeitamente(só precisa fazer alguns ajustes) estou tentando para aprender! 

    Você é o cara... Você dá aula em algum Lugar? Você é f## 

    Se der aula me passa seu email se possível. 

     

    Não precisa fazer, mas vou te fazer uma pergunta: É possível eu fazer um procv e um somase sem fórmula? Exemplo: 

     

    Tabela a     qtd .       tabela horas padrão

    88207010  300.   .  .       882070010   20

    88207010. 300

     É uma matriz com mais de 5mil linhas

    Relatório

    88207010 qtd 600. H.padrão 20

     

    Faço por fórmula mas trava toda hora e demora pra abrir.

     Muito obrigado e boa semana. 

     

  13. Boa noite, 

     

    É  possível eu extrair dados de uma coluna que tenho vários valores repetidos? Fiz através de fórmula matricial, mas a planilha ficou lenta e pesada até para abrir pelo fato de eu ter mais de 5000 linhas. 

     

    E depois de extrair os dados comparar valores unicos com plano e verificar qual está fora.  

     

    Por exemplo:   Coluna A            Valores Unicos    Plano            Fora            

                            88207000           88207000           88207000     88207010

                            88207000           88207002           88207002

                            88207010           88207010

                            88207000

                            88207000

                            88207002

                            88207000

     

    Não sei mais o que fazer.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...