Bruno Rimoldi

Bom dia Pessoal, faltam 3 passos para eu terminar minha macro e não consigo desenrrolar essa fórmula. Preciso que na célula N4 (Sheet DOC) traga o resultado de "Se a Chave criada (célula E4 - Sheet DOC) estiver na Chave criada (célula A2 - Sheet Bseg) E a coluna F (G/L Account) for igual a 157086, trazer "Sim", contrário "Não". Segue o arquivo anexo. Obrigado, Bruno C.Rimoldi Formula BSEG.xlsx

@BCP Eu também acredito que funcione, porém gostaria de ter a certeza para não gastar o $$$ a toa ehehhehe... Obrigado!!!

Será que um Mini Amplificador, como esse da foto anexa, resolveria ????

@osvaldomp os números de controle que tenho na planilha são sequenciais e estão com 8 dígitos (2845633), portanto eu coloquei "Menor que 999999999". Quando coloquei como você informou, Maior que 0 (zero), o Excel não reconheceu e deu erro.

@André_Arruda e @osvaldomp muito obrigado pela ajuda!!! Ambas as resoluções funcionaram mas acabei usando a do Osvaldo porque posso colocar na macro mais fácil. Só alterei o É maior do que ... para É menor do que... Muito obrigado.

Olá amigos, boa noite. Tenho 2 caixas de som (FOTO ANEXA) instaladas no teto da minha sala e cada uma com o fio preto e vermelho (FOTO ANEXA). Eu consigo ligar essas 2 caixas de som direto no Receiver da Vivo Tv (FOTO ANEXA)?? Obrigado, Bruno C.Rimoldi

Bom dia amigos, estou quebrando a cabeça, mas existe alguma forma (VBA ou comandos) de filtrar a coluna L e selecionar somente as celulas que possuem números? Segue o exemplo anexo do que tenho e do resultado esperado. Grato, Bruno Filtrar somente numeros 2.xlsx

@deciog exatamente isso meu amigo. Muito obrigado pela valiosa ajuda.

@deciog acho que foi um tanto confuso... Segue um print do que necessito, acho que assim fica mais claro. A fórmula do Index/Match (Sheet1) deve trazer as informações da coluna Item Category (Sheet3). Grato, Bruno

Bom dia amigos, não estou conseguindo desenrrolar a fórmula Index+Match (Indice + Corresp). Preciso que a fórmula na Sheet1, coluna C traga a informação da Sheet3, coluna B. Para isso a coluna DOCNUM da Sheet1, tem na Sheet2, que por sua vez a coluna REFKEY na coluna B tem na Sheet3, coluna A. Obrigado por enquanto. Bruno EXEMPLO_INDEX-MATCH.xlsx

@osvaldomp exatamente isso meu amigo. Muito obrigado pela enorme contribuição. Valeu, Bruno

Pessoal, bom dia!!! O que estou fazendo de errado no código??? Preciso que a macro localize a linha com a conta informada e altere a coluna E e D. Faço isso para 3 contas e a macro só me retorna FALSE. Segue a planilha anexa!!! Sub A() linha = 2 Do While Sheet1.Range("Z" & linha) <> "" If Sheet1.Range("AA" & linha) = "157351" Then Sheet1.Range("E" & linha) = ActiveCell.FormulaR1C1 = "39" Sheet1.Range("D" & linha) = ActiveCell.FormulaR1C1 = "EXTRACTO BANCARIO" End If If Sheet1.Range("AA" & linha) = "157073" Then Sheet1.Range("E" & linha) = ActiveCell.FormulaR1C1 = "66" Sheet1.Range("D" & linha) = ActiveCell.FormulaR1C1 = "DESPACHO IMPORTACION" End If If Sheet1.Range("AA" & linha) = "157077" Then Sheet1.Range("E" & linha) = ActiveCell.FormulaR1C1 = "157077" Sheet1.Range("D" & linha) = ActiveCell.FormulaR1C1 = "PAYROLL" End If linha = linha + 1 Loop End Sub Obrigado Bruno C.Rimoldi libroCompras_0179_11_2018.zip

Boa tarde pessoal, consegui resolver utilizando o Application.DisplayAlerts = False antes de chamar as tebelas do SAP e ao final do processo habilitando com Application.DisplayAlerts = True. Obrigado,

Boa tarde amigos, estou com uma dúvida em como fazer esse código. Preciso que a macro abra o arquivo que foi selecionado nas TextBox`s e rode a Sub Cria_planilha_itens . Esta Sub converte o arquivo selecionado nas TextBox (TXT) em planilha (XLSX), no processo de "TEXT TO COLUMMS". Se eu selecionar 5 arquivos TXT´s, deverá aparecer no final do processo 5 planilhas. Segue o arquivo para acompanhamento. Grato, Bruno C.Rimoldi DOF Total_TESTE.zip

@Patropi bom dia!!! Você conseguiria me ajudar nessa dúvida? Não encontrei nada sobre e acho que não tem!!!

Boa tarde Pessoal, gostaria de saber se existe alguma forma de desabilitar a mensagem "microsoft excel is waiting for another application to complete an ole action" e evitar que eu tenha que clicar várias vezes OK para a macro rodar junto com o SAP. Já tentei o passo a passo abaixo mas não funcionou. 1. Enable the “Ignore other application that use DDE” feature - Open the Excel sheet. - Go to the File menu. - Click on Options. - Go to the Advanced tab. - Scroll down to the General area and check “Ignore other applications that use Dynamic Data Exchange (DDE)” - Restart Excel. Obrigado, Bruno C.Rimoldi

Obrigado @osvaldomp. Vou procurar os posts.... Mas o melhor de tudo foi a frase da sua assinatura "E Deus falou para Noé: faz backup, pois vou formatar !"... Rachei de rir e ja copiei...

Pessoal, boa tarde!!! As vezes quando vou rodar algumas macros, a mesma apresenta erro, e eu preciso fechar a macro, abrir o Gerenciador de Tarefas, selecionar o MSExcel e clicar em End Process. Só aí que posso entrar na macro e rodar tranquilamente, sem erro. Existe algum código que eu possa utilizar logo que a macro inicia para limpar a memória? Grato aos amigos e no aguardo Bruno C.Rimoldi

Boa tarde Amigos, tudo bem? Estou com uma dúvida em uma fórmula. Ao selecionar a Empresa (B9) e os Impostos (B10) faz-se um concatenar na Q2. Das linhas amarelas para baixo, a fórmula mostraria as informações que estão na Aba INFO, referente a Empresa e Impostos. Na Aba Ficaria Assim, como o resultado deveria ficar. Grato pela atenção, Bruno Copy of Book1.xlsx

Pessoal, boa tarde!!! falta uma validação nessa formula que eu tenho, na coluna CE de ISS. A fórmula que está nas celulas da coluna CE passariam ser a Negação e a validação viria da fórmula: Se a celula D7 (Limpeza_DOF...) for igual a um dos municípios da linha 1 (ISS_ST) e a célula M7 (Limpeza_DOF...) contiver no município, linha 2 (ISS_ST) trazer SIM, caso contrário, traz a fórmula que estava. Tentei com essa fórmula: =IF(HLOOKUP(D7;'[ISS_ST.xlsx]ISS-ST'!$A:$M;VLOOKUP(M7;'[ISS_ST.xlsx]ISS-ST'!$A:$M;1));"SIM";VLOOKUP(M7;'Z:\Unapproved\Tax_Compliance\Retidos\_Procedures\Templates\_Documentos_Suporte\[Withholding.xlsx]ISS WITHHOLDING'!$B:$D;3;0)) Seguem os arquivos. Obrigado, Bruno ISS_ST.xlsx Limpeza_DOF_Conferencia_NEW.zip

Boa tarde @NP Filho, posta um arquivo exemplo para facilitar. Att,

Boa tarde Pessoal, pesquisei em vários locais e não consegui achar. Gostaria de saber se existe algum código VBA para abrir um determinado email, abrir o XLSX anexado, validar algumas informações contidas e depois fechar. Se não tiver um código assim, pelo menos um código que abrisse o XLSX do anexo do email. Será que existe? Obrigado pela atenção Bruno

Bom dia @Basole e @Philipp Moreira, consegui resolver o enigma eheheh. O codigo ficou assim: If Sheet5.Range("J14") <> "ISS" And Sheet5.Range("J24") = Right(Sheet5.Range("J22"), 7) Then Sheets("DOF").Range("G4") = "APURAÇÃO" Else Sheets("DOF").Range("G4") = "REAPURAÇÃO" End If If Not IsError(Sheet5.Range("J23")) Then If Sheet5.Range("J14") = "ISS" And Sheet5.Range("J24") = Sheet5.Range("J23") Then Sheets("DOF").Range("G4") = "APURAÇÃO" Else Sheets("DOF").Range("G4") = "REAPURAÇÃO" End If End If Muito obrigado pela ajuda... Bruno

Boa tarde pessoal, não estou conseguindo fazer com que esse codigo rode conforme o previsto. A celula J24 e J23 são datas (mm/aaaa) e se forem iguais fazer a condição abaixo "Apuração ou Reapuração" caso seja "ISS". Se for diferente de ISS, ou seja, qualquer outro imposto, a condição é outra. Quando passo o mouse no Depurador (conforme anexo), aparece o resultado Erro 2015. Não consigo postar a planilha aqui porque é muito grande e para chegar até esse procedimento passa por muitas SUBs. If Sheet5.Range("J14") = "ISS" And Sheet5.Range("J24") = Sheet5.Range("J23") Then Sheets("DOF").Range("G4") = "APURAÇÃO" Else Sheets("DOF").Range("G4") = "REAPURAÇÃO" End If If Sheet5.Range("J14") <> "ISS" And Sheet5.Range("J24") = Right(Sheet5.Range("J22"), 7) Then Sheets("DOF").Range("G4") = "APURAÇÃO" Else Sheets("DOF").Range("G4") = "REAPURAÇÃO" End If

Nossa, 1447 visualizações e ainda não tem uma solução eheheh. Deve ser bem complicado mesmo...