diego_janjao

Pessoal, é o seguinte. Tenho uma planilha para avaliar o fim da validade de alguns produtos. E a cada mês a minha chefa precisa enviar um report para a matriz com os dados pertinentes ao período de dias que ela estipular. Essa planilha Ficha de Análises de Fim de Validade.xlsx iniciou em 01/03/2018. Eu até sei criar um VBA para fazer um salvar como mas eu gostaria que fosse possível que perguntasse antes de que dia até qual dia gostaria de gerar o arquivo. Por exemplo, ela clica em algum botão, abre uma pop-up perguntando a data inicial e a data final, após preencher e dar OK gerasse um arquivo com esse período. Alguém pode me dar uma luz sobre isso?

Mas a fórmula que postei nos funcionar mesmo, era só um exemplo.

@Marcelo Camurate infelizmente a planilha está vindo como corrompido. Mas para o que você deseja, pode-se usar o cont.ses, que é para contar dados com mais de uma especificação por exemplo, quer contar na coluna A quantos Diego aparecem de acordo com o mês de janeiro na coluna B, ficaria assim: =cont.ses($A$1:$A$20;"Diego";$B$1:$B$20;">=01/01/2018";$B$1:$B$20;"<=31/01/2018") Espero que tenha entendido.

@Welinton Ferreira você quer que não retorne nada até ter as duas notas lançadas? Se sim: =Se(ou(C5="";D5="");"";se(((C5+D5)/2)<6,7;"Exame";"Aprovado"))

@Welinton Ferreira Tente o seguinte na fórmula já realizada: =se(E(((C5+D5)/2)<6,7;C5<>"";D5<>"");"Exame";"Aprovado")

@EDUARDOARAUJO31 Sim, é possível por vba. Mas precisa informar mais dados para que possam te ajudar.

Só pra ver se eu entendi: Os 153 seriam um intervalo de dias antes da data que você coloca? Por exemplo, se colocar 21/03/2018, o intervalo seria de 19/10/2017 a 21/03/2018? É isso?

@Kátia Cristina Alves Segue uma forma de atender o que precisa: Planilha Modelo.xlsx

Parte da minha dúvida foi sanada com as respostas. Muito obrigado. Mas me levantou outra dúvida: E se tiver mais uma condicional? exemplo.xlsx

Olá pessoal, tudo bem? Hoje gostaria de aprender uma coisa, utilizar a função mês() sem a necessidade de uma coluna auxiliar que transforma as datas em número de 1 a 12 para usar na função médiases. Algum tempo atrás vi algo parecido com =médiases(B1:B10;mês(A1:A10)=1), ou seja, quer fazer a média dos valores de B1 a B10 se as datas de A1 a A10 corresponderem a janeiro. Este é um exemplo que dei sabendo que a fórmula está errada, achei que fosse assim mas não é. Poderiam me explicar? Obrigado.

@João Carlos Júnior Acredito que seja isso: Pasta1_diegojanjao.xls

antes de apertar enter na fórmula, segure CTRL+SHIFT, isso se aplica a fórmulas matriciais

Eu estou no meio de um casamento agora mas ao invés de usar vários SOMASE, utilize a fórmula SOMASES, vai diminuir um pouco o tamanho.

@Edson Luiz Branco e @Basole , muito obrigado a ambos! Aproveitando, enquanto eu criava o formulário, as textbox eu criei em ordens diferentes, tem algum modo de especificar qual a ordem das textbox ao apertar TAB? Exemplo, Número de Chamado está ativo, e ao apertar TAB vai para o textbox Reclamação.

@Basole Aparentemente não deu certo: E o caminho e nome estão no mesmo local: Seguem os dois arquivos (de onde puxa os dados e a de gerenciamento dos dados) Gestão de SAC - Categorizado.zip

Quando eu chegar no trabalho eu testarei para verificar se funcionou

Boa noite, pessoal. Gostaria de mais uma ajuda. Eu tenho um arquivo de reclamações de clientes e, em algumas vezes, preciso criar um formulário para envio de uma empresa terceirizada. Pois bem, para agilizar o processo, no arquivo de envio eu criei um form para puxar os dados do outro arquivo mas não sei como referenciar esse arquivo no vba. Tudo que eu tento dá erro: Private Sub pesquisar_btn_Click() Dim EmpFound As Range Application.ScreenUpdating = False Windows("Gestão de SAC - Categorizado.xlsb").ActivateSheets("COLAR DADOS").Activate 'este é o arquivo onde estão os dados que quero puxar' With Range("C3:C5001") Set EmpFound = .Find(Me.num_chamado_txt.Value) If EmpFound Is Nothing Then MsgBox "Número de Chamado não encontrado", vbCritical, "Gestão de Envios SAC" Me.num_chamado_txt.Value = "" Else With Range(EmpFound.Address) Me.produto_txt = .Offset(0, 2) Me.categoria_txt = .Offset(0, 5) Me.reclamacao_txt = .Offset(0, 14) Me.lote_txt = .Offset(0, 7) On Error Resume Next On Error GoTo 0 End With End If Sheets("Pendências GUT").Select Application.ScreenUpdating = True End With End Sub O que eu poderia fazer nesse código para abrir esse arquivo?

Olá, @Nik Nik Apenas troque a função ARREDONDAR.PARA.CIMA pela fórmula ARRED E funcionará de acordo.

Pessoal, boa noite. Há algum tempo venho enfrentando problemas com essa ferramenta que persiste em desafixar todas as vezes que eu seleciono para ficar habilitado: Alguém saberia explicar o porquê isso acontece e como resolver? Obrigado.

Dá pra fazer isso com a função PROCURAR. Ela procura dentro das células quaisquer palavras com a palavra que você escolher

@marcosbispo para isso basta retirar a formatação condicional que deixa verde das colunas D:H

@Renato CMJ , infelizmente eu não entendo de funções matriciais. Até tentei realizar umas leituras antes mas não evoluí. Você precisa que sejam ordenados por datas (crescente)? se sim, acho que dá para alterar o que eu faço para atender isso.

@marcosbispo Acredito que esteja funcionando conforme deseja, faça os testes e retorne: CENSO MATERNIDADE 1.xls

Eu não entendi muito bem o que você fez em algumas colunas () e por isso não mexi nas fórmulas daí, mas acredito que o que eu fiz atenda a sua necessidade: COMBUSTÍVEL - RENATO - Copia.xlsx

horário.xlsx