diego_janjao

@luh_lima creio que seja isso que desejas: planilha automatizada - diego janjão.xlsx

@paulocezarpicos eu coloquei o link(aa1) para gerar um número único para cada linha, a função Lin retorna a linha de uma célula, por exemplo, LIN(AA1) = 1, LIN(XAB1)=1, LIN(A24) = 24. Por que eu fiz isso? Se você perceber em seus dados há 2 pessoas com o mesmo resultado, se bem me lembro 17:12 (estou pelo celular agora), e se eu não tivesse feito isso, o 17:12 iria retornar a mesma pessoa, pois como no PROCV ele retorna o primeiro valor encontrado. Com o meu "ajuste" um ficaria, teoricamente, 17:126 e o outro 17:129 (é apenas exemplo para entendermos), e quando colocamos na função maior, ele irá te retornar o número que estiver mais abaixo primeiro (17:129) e depois o mais acima (17:126). Com ajuste: Sem ajuste: Não sei se consegui me expressar muito bem. Já o Lin dentro do índice corresp, melhor dizendo, dentro do maior, é apenas para definir a colocação do maior. Ex: maior(range; lin(aa1)) primeiro maior maior(range; lin(aa2)) segundo maior maior(range; lin(aa3)) terceiro maior Etc

@LUH_LIMA coloque um exemplo para que eu possa entender

@paulocezarpicos veja se isso te atende: Exemplo indice-corresp.xlsx

@paulocezarpicos como o Patropi mencionou, está difícil de entender e com os dados disponíveis fica difícil saber se é o que pretende. Eu utilizei uma fórmula matricial para colocar cada um na sua ordem de acordo com a escolha do mês: Exemplo indice-corresp.xlsx

Puts, somente agora percebi que fiz as alterações mas não te enviei o arquivo adicionado 15 minutos depois Segue o arquivo: PLANILHA AUTOMATIZADA_diegojanjao.xlsx

@LUH_LIMA O que eu tinha entendido era que você iria fazer a última parte. Até porquê eu não entendi também.

@LUH_LIMA Retirado. Feito. Coloquei a fórmula. Não entendi.

@LUH_LIMA ao invés de criar uma aba para cada grupo, eu criei uma única aba para escolher o grupo e ordenar os dados deste grupo, assim a planilha fica muito mais leve e de fácil uso. PLANILHA AUTOMATIZADA_diegojanjao.xlsx Como dito pelo Patropi, é muito importante dados fictícios para o entendimento e teste do que deseja, por isso eu coloquei alguns dados quaisquer para testar.

Eu recomendo você usar o Substituir do Excel na coluna toda e deixar os termos iguais ("NF ", "NF." e "Nota Fiscal"), depois disso é só usar a fórmula =ARRUMAR(SUBSTITUIR(EXT.TEXTO(MAIÚSCULA(A2);PROCURAR("NF ";MAIÚSCULA(A2);1);10);"NF ";"")) No caso eu mudei NF. e Nota Fiscal para "NF " (com espaço depois) para localizar e extrair os textos a partir daí. extrair texto_diegojanjao.xls eu não sou muito bom no excel então talvez alguém tenha uma opção melhor para você

Bom, a sua fórmula está "correta" mas desordenada, pois na fórmula SE se encontrar a primeira condição ele vai retornar, por exemplo: =SE(E1<=90%;"2%";SE(E1>=109%;"5%" No caso a sua segunda condição é que se for maior ou igual a 109% ele deve retornar 5%, e tanto 114%, 119% e 130% são maiores ou iguais a 109%, por isso ele está retornando 5%. Ou você usa a função E atrelada dando limite ou então você monta sua fórmula em ordem decrescente: =SE(E1>=130%;"10%";SE(E1>=119%;"8%";SE(E1>=114%;"7%";SE(E1>=109%;"5%;SE(E1<109%;"2%";""))))) Atenção, eu fiz a fórmula acima pelo celular sem testar no Excel, tente usá-la e verifique se precisa de ajuste, mas creio que esteja correta.

@Patropi foramda coluna fabricação. É que eu quero ver quais fabricações receberam reclamações no período que eu estipular.

Pessoal, bom dia. É o seguinte, eu tenho um gerenciamento de SAC e gostaria de fazer um gráfico que ficasse dinâmico de acordo com o range que eu colocasse. Por exemplo, hoje eu tenho registros de 01/01/2018 até 31/08/2018, eu gostaria que ao colocar uma data inicial e uma final de datas de reclamações, ele me fizesse um cont.se das fabricações. Ou seja, se eu colocar o Range entre 01/07/2018 e 10/07/2018 eu queria que o gráfico me dissesse quantas reclamações foram nas fabricações dos itens dentro desse range estipulado. Creio que olhando a planilha e o exemplo dela fique melhor para entender: dúvida de fórmula.xlsx

@Guilherme Montelo tente dessa forma: =SOMASES(Combustível!$E$2:$E$5;Combustível!$B$2:$B$5;">=01/05/2018";Combustível!$B$2:$B$5;"<=31/05/2018") SOMASE_diegojanjao.xlsx

@Edson Luiz Branco Obrigado! Mais uma vez, me ajudou corretamente.

Pessoal, boa noite. Estou enfrentando um problema com uma textbox que deverá ser usada somente para números. Sempre que tento usar um número quebrado (ex.: 1235,17) ele salva o número como texto e isso impede que o form faça o cálculo no SOMASES. Eu tentei um Format(me.textbox, "#.##0,00") mas não resolveu. Vejam que todos foram gravados nas células como texto. rec2019 (2).zip

@Márcio Rodrigues Mas a busca pode ser só por lote? As buscas geralmente são com os seguintes critérios: Fornecedor Fornecedor + Código Fornecedor + Código + Desde Fornecedor + Código + Lote Fornecedor + Código + Lote + Desde Fornecedor + Desde E por isso a minha fórmula Se teve que abranger todas essas possibilidades. Ou o lote esta associado a um produto que esta associado a um fornecedor? O lote é sempre associado a um código que é associado a um produto, mas pode haver o mesmo lote para produtos diferentes, por exemplo, eu fabrico pão e defino que o lote dele é N1, só que você tem uma empresa e na sua, você faz café e também pode colocar o lote de N1, então geralmente a pesquisa é sempre feita com Código + Lote Como defino se há estoque? Na Sheet Registro de Recebimento há um botão azul BAIXA, lá é onde o pessoal dará baixa no estoque. Assim que eles preenchem o form e clicam em enviar, a quantidade é colocada na coluna AD7:AD9006. Com esse valor aí, eu simplesmente faço M - AD (M é onde ficam as quantidades recebidas). Então quando M for igual a AD, o estoque será zero. A fórmula grande está na AC... Qual o objetivo dela? Essa coluna é que faz a sheet Pesquisa funcionar. Se o campo FORN da sheet Pesquisa (e as demais estiverem vazias) for igual a célula D da sheet Recebimento ele mantém o número de análise visível para fazer o índice x corresp na Sheet Pesquisa. Foi a única maneira que consegui pensar em fazer isso funcionar. Caso tenha outras sugestões, estou aberto.

@Márcio Rodrigues basicamente é um filtro essa aba. O campo lote é para mostrar todos os produtos que tenham o lote que colocar. O desde é uma data, ou seja, a partir da data x mostrar tais itens. O só com estoque é para mostrar itens que ainda há no estoque, que não foram consumidos. E a fórmula aí fica muito grande (na coluna AB da Sheet Registro de Recebimento) porque ela funciona com todos os campos preenchidos ou apenas alguns.

Então, @Márcio Rodrigues . Eu já tentei colocar o cadastro via VBA por form (clica em no botão cadastrar, abre o form, preenche e salva) mas o pessoal que trabalha com esse Registro de Recebimento (eu sou do departamento de Qualidade) não aceitaram e querem na forma que está hoje (linha a linha porque eles nem sempre finalizam o recebimento de imediato, aí a linha do recebimento fica até 5h em aberto até finalizar o descarregamento do insumo). Pra mim, por VBA seria bem melhor uma vez que são vários computadores usando a mesma planilha (aí eles tem que esperar um usar pra depois o outro usar [facepalm.jpg]). Enfim, do jeito que eles querem, mesmo mostrando todas as vantagens do outro formato, é na forma que está hoje. O que eu gostaria era que a sheet(Pesquisar) fosse algum tipo de listview, por exemplo.

@Edson Luiz Branco Bom dia, Edson. Realmente, se você simplesmente apagar a planilha Pesquisa diminui muito pouco. Mas essa planilha funciona por causa da coluna AB da Sheet Recebimento 2019, que vai do AB7:AB9000 (é uma média de recebimentos que temos por ano). E o cálculo dela é muito grande, como mencionado, pois tem que considerar se uma célula está vazia e outra preenchida, se a outra está preenchida e a outra vazia e assim vai. Eliminando-a chegamos aos 400Kb. Sobre as fórmulas, eu já tentei reduzi-las ao máximo com o que eu sei de Excel. Acredito que a melhor opção aqui seria realmente por VBA (acho que ListView, não sei) mas eu tô tentando aprender ainda. Aí coloquei no fórum pra ver se alguém me apontava uma outra saída. de antemão, muito obrigado pelas considerações.

Pessoal, bom dia. Eu tenho essa planilha de recebimento o qual fazem os lançamentos diários de chegada de insumos, e nela há uma sheet de pesquisa que ao escolher o Fornecedor, ele lista os recebimentos desse fornecedor, e caso escolha um dos códigos dos insumos que este fornecedor tem, ele lista os itens de acordo com o fornecedor. E assim segue se caso preencherem os campos Lote e Data de Recebimento. O problema é que isso deixa meu arquivo muito grande e eu gostaria de saber se há um modo de fazer sem que precise ser desse jeito. O arquivo com a Pesquisa = 1,40 Mb O arquivo sem a Pesquisa = 371 Kb Segue o arquivo: rec2019.zip

mais uma vez, muito obrigado, @Edson Luiz Branco

@Edson Luiz Branco Muito obrigado, Edson. Novamente. Eu realmente preciso prestar mais atenção nessas partes de indicar as planilhas [facepalm]. E para eu entender o SumIf, não é SumIf(range a calcular, valor procurado, range do valor procurado)?

@Edson Luiz Branco Muito obrigado pela resposta e desculpe pela falta da planilha, eu achei que tivesse anexado. Tentei aqui com o *1 e +0 e não deu certo. O método de conversão não foi dada a opção para converter no Me.codigo. Enfim, segue anexo agora. rec2019 v2.rar

Pessoal, bom dia. Estou tentando criar um Sumif em um evento Change mas não está realizando o cálculo. Também não dá erro no depurador. Seguindo a minha lógica, deveria funcionar mas como não manjo nada de VBA, vim pedir-lhes ajuda: Private Sub codigo_Change() Dim est As Long est = Application.SumIf(Range("M7:M9006"), Me.codigo, Range("E7:E9006")) Application.ScreenUpdating = False Sheets("Produtos").Select Range("A2").Select Selection.End(xlDown).Select linEmitido = ActiveCell.Row With Range("A2:A" & linEmitido) Set EmpFound = .Find(Me.codigo) If EmpFound Is Nothing Then MsgBox "Produto não encontrado", vbCritical, "Análise Externa" Me.codigo.Value = "" Else With Range(EmpFound.Address) Me.material = .Offset(0, 1) Me.estoque = est End With End If End With Sheets("Registro de Recebimento 2019").Select End Sub