Bruno Rimoldi

Olá a todos, preciso salvar os pdf´s que recebo via email em uma pasta local da rede. Já fiz um fluxo, no Power Automate, para extrair os dados do PDF e salvar em uma lista do Sharepoint, mas não estou conseguindo salvar os arquivos na rede. Outra Pergunta: Como eu fiz o fluxo para salvar as informações no Sharepoint eu consigo salvar o pdf com o número da nota fiscal e o CNPJ? Grato

Bom dia, consegui resolver de uma forma mais simples. Outro ponto é no filtro que eu faço. Queria que chamasse a Sheet1 ao invés do nome da Sheet (em vermelho): ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort.SortFields.Clear Inseri a palavra TESTE na célula B5 e utilizei o código abaixo. E no filtro deixei como padrão o TESTE: ActiveWorkbook.Worksheets("TESTE").AutoFilter.Sort.SortFields.Clear Dim rs As Worksheet For Each rs In Sheets rs.Name = rs.Range("B5") Next rs

@AfonsoMira muito obrigado pela ajuda. Aprendi mais uma. Outro ponto é no filtro que eu faço. Queria que chamasse a Sheet1 ao invés do nome da Sheet (em vermelho): ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort.SortFields.Clear Tem como?

Bom dia pessoal, espero que estejam bem. Estou terminando uma macro que ao Clicar em um botão (Start Item a Item) é aberto uma caixa onde seleciono um arquivo para fazer um outro processo. Esse arquivo fica aberto até terminar esse processo. Eu preciso fazer um Vlookup e no meio da fórmula preciso chamar o nome do arquivo aberto que está em uma Variant (Filename). Porém quando a macro executa a fórmula aparece o caminho todo e está muito demorado. Preciso que só pegue o nome do arquivo e coloque na fórmula. Lembrando que todo mês o nome irá alterar, por isso de armazenar em uma Variant. 1-) A fórmula é a seguinte: "=VLOOKUP(RC[-5],'" & Filename & "'!C35:C147,113,1)" 2-) Outro ponto é no filtro que eu faço. Queria que chamasse a Sheet1 ao invés do nome (em vermelho): ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort.SortFields.Clear Sub ItemItem() Dim Filename As String Dim SrcWkb As Workbook Dim Ws As Worksheet ThisWorkbook.Activate Filename = Application.GetOpenFilename _ (Title:="Selecione o Arquivo Item a Item", _ FileFilter:="Excel Files *.xls* (*.xls*),") If Filename = "Falso" Then MsgBox "Formato incompatível do arquivo" _ , vbCritical _ , "Erro!" Exit Sub Else sFileName = Application.ThisWorkbook.Name Application.DisplayAlerts = False Set SrcWkb = Excel.Workbooks.Open(Filename, True, True) SrcWkb.Worksheets(1).Activate Set Ws = SrcWkb.Worksheets(1) With Sheet2 Rows("5:5").Select Selection.AutoFilter ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort.SortFields. _ Add2 Key:=Range("EQ5:EQ100000"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort.SortFields. _ Add2 Key:=Range("AI5:AI100000"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Item a Item Julho 2022").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With .Activate Sheets("IR").Select linha = 2 Do While Sheet2.Range("A" & linha) <> "" Sheet2.Range("F" & linha).Formula = "=VLOOKUP(RC[-5],'" & Filename & "'!C35:C147,113,1)" linha = linha + 1 Loop Columns("F:F").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Sheets("INSS").Select LR1 = Range("A:A").SpecialCells(xlCellTypeLastCell).Row linha1 = 2 Do While Sheet3.Range("A" & linha1) <> "" Sheet3.Range("F" & linha1).Formula = "=VLOOKUP(RC[-5],'" & Filename & "'!C35:C147,113,1)" linha1 = linha1 + 1 Loop Columns("F:F").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Sheets("ISS").Select LR2 = Range("A:A").SpecialCells(xlCellTypeLastCell).Row linha2 = 2 Do While Sheet4.Range("A" & linha2) <> "" Sheet4.Range("F" & linha2).Formula = "=VLOOKUP(RC[-5],'" & Filename & "'!C35:C147,113,1)" linha2 = linha2 + 1 Loop Columns("F:F").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End With If Not SrcWkb Is Nothing Then SrcWkb.Close False Set SrcWkb = Nothing Set Ws = Nothing End If End If Application.DisplayAlerts = True MsgBox "Item a Item OK!!!" End Sub Macro_IDF_NUM - Copia.zip

@Midori Obrigado Midori, também deu certo!!!

@AfonsoMira muito obrigado... Funcionou perfeitamente... Top

Bom dia a todos os amigos, alguma dica em fórmulas ou VBA para localizar o número Docnum da Sheet1 na Sheet (Item a Item Julho 2022) e trazer a última sequência da coluna IDF_NUM na Sheet (Item a Item Julho 2022)? Obs.: Marquei em laranja, na sheet Item a Item Julho 2022, coluna B o resultado que precisa trazer. Obrigado pela atenção, Bruno Item a Item Julho 2022.xlsx

@deciog , obrigado pela resposta, porém eu não consigo abrir o arquivo que você mandou. Aparece a mensagem " Ops! Não conseguimos localizar o item que você está tentando visualizar."

Boa tarde pessoal, estou com uma dúvida em como fazer essa fórmula. Extraí uma tabela do SAP e a mesma veio com o campo mensagem separada por linhas. Gostaria de deixar 1 linha apenas no campo de mensagem. Notem que na coluna A (document number) tem numeros com 1 celula, 3 celulas e 2 celulas do document number. Segue o exemplo no arquivo anexo. A Sheet Tabela Correta seria como eu gostaria que ficasse. Desde já, obrigado pela atenção. Bruno EXPORTxxxxxx.XLSX EXPORTxxxxxx.XLSX

@OreiaG Um pequeno detalhe e deu certo. Muito obrigado pela ajuda.

Bom dia pessoal, fiz uma fórmula com data, porém a mesma não está funcionando. Alguém teria alguma ideia do que possa ser? =IF(TODAY()<="28/02/"&YEAR(TODAY());YEAR(TODAY()-1);YEAR(TODAY())) Mesmo que eu altere a data, ou para maior ou menor, a formula continua como 2022. Obs.: Segue anexo um print da tela da fórmula onde aparece "Volatile". Obrigado por enquanto, Bruno

@Edson Luiz Branco mais uma vez muito obrigado pela sua ajuda. Exatamente o que precisava.

Boa tarde pessoal, preciso de uma ajuda quanto a um código. Encontrei esse código e adaptei para meu uso. Além dele copiar o conteúdo dos arquivos TXTs a partir da célula B2 eu precisaria que a macro copiasse o nome do arquivo que está aberto na célula C2 em diante. OBS.: Anexo está a macro e um arquivo TXT de teste. Obrigado Bruno Sub Load() Sheets("Arquivo EFD completo").Select Dim myDir As String, fn As String, txt As String, a(), n As Long, i As Long, ff As Integer Caminho = Sheets("Capa").Range("B6") myDir = Caminho fn = Dir(myDir & "*.txt") Do While fn <> "" ff = FreeFile Open myDir & "\" & fn For Input As #ff Do While Not EOF(ff) Line Input #ff, txt n = n + 1: ReDim Preserve a(1 To n) a(n) = Split(txt, vbTab) Loop Close #ff fn = Dir() Loop With ThisWorkbook.Sheets(2).Range("B2") For i = 1 To n .Offset(i - 1).Resize(, UBound(a(i)) + 1).Value = a(i) Next End With End Sub Macro_SPED_TXT_teste.zip SPED-EFD - TESTE.txt

@Edson Luiz Branco PERFEITOOOO!!!! Muito obrigado meu amigo... Aprendi mais uma... Deu certo...

Olá amigos, poderiam dar uma luz para mim, por favor? Preciso copiar somente a chave de acesso dessa nota fiscal eletrônica que está depois do 10º Pipe " | ". Existe uma fórmula que consiga fazer isso ou somente por código VBA? Poderiam postar aqui, por favor? Resultado Esperado 35170161641031000116570010000052871999994714 EDF |D100|0|1|506728F|57|00|001||5287|35170161641031000116570010000052871999994714|04012017|03022017|0||12913,63|0|9|12913,63|0|0|0|365354|| Obrigado, Bruno Book1.xlsx

Boa tarde amigos, espero que todos estejam bem... Tenho uma macro de um formulário que envia as informações para o Contas a Pagar. Nessa macro eu inclui a parte de anexar documentos extras para enviar, porém quando eu anexo o arquivo (normalmente uma planilha) o original fica corrompido. Alguém já passou por isso ou saberia o que pode estar ocorrendo? Obrigado Bruno Rimoldi

@osvaldomp Muito obrigado pela ajuda... Eu postei no outro fórum porque estava desesperado e tenho prazo estourando. Mas vou citar a ajuda e encerrar o outro tb....

Boa noite pessoal, não entendo por que o filtro que fiz em VBA não consegue executar os critérios e ele não encontra os resultados. Quando eu DEBUGO e passo da linha dos critérios o VBA não encontra, daí se eu faço na mão, do ponto que parou a macro, ele reconhece. Segue o código e um exemplo do arquivo sem o código. OBS.: É na linha 13 que a macro não reconhece (.[A1:AW1].AutoFilter Field:=33, Criteria1:=">=0,079500001", Operator:=xlAnd, Criteria2:="<=0,080499999") Sub ProcessoI() Dim LR As Long Application.ScreenUpdating = False With ActiveSheet LR = Cells(Rows.Count, 1).End(3).Row .AutoFilterMode = False .[A1:AW1].AutoFilter Field:=4, Criteria1:="<>""""" If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("AW2:AW" & LR) = "=RC[-20]-(RC[-17]/0.16)-(RC[-15]/0.16)" End If .AutoFilterMode = False .[A1:AW1].AutoFilter Field:=33, Criteria1:=">=0,079500001", Operator:=xlAnd, Criteria2:="<=0,080499999" If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("AW2:AW" & LR) = "=RC[-20]-(RC[-17]/0.08)-(RC[-15]/0.08)" End If .AutoFilterMode = False End With Application.ScreenUpdating = True End Sub Obrigado, Bruno Rimoldi Plan_Teste_Sem Codigo.xlsx

@Vics , boa tarde!!! É exatamente isso que eu precisava... Como eu tenho outras pastas de outros países da America Latina, vou replicar... Muito obrigado pela sua disposição e prontidão. Abraços Bruno Rimoldi

Bom dia Amigos, Estou quebrando a cabeça com uma questão em uma macro que preciso desenvolver. Vocês teriam alguma dica ou sugestão? Tenho o arquivo “Planilha_Rascunho” o qual preencho com os valores referentes aos fechamentos mensais de 5 empresas (pintadas em laranja). Preciso que ao acabar de preencher os valores na “Planilha_Rascunho” e clicar em enviar, a macro localize a empresa e o mês correspondentes no arquivo “Planilha_Definitiva” e cole os valores nos devidos lugares (Empresa e mes-ano), conforme o arquivo “Planilha_Rascunho”. Ps.: Já utilizei a função Match “Corresp” mas não cheguei a um consenso. Obrigado, Bruno C.Rimoldi Planilhas.zip

@osvaldomp MARAVILHA... Deu certo Osvaldo.. Muito obrigado pela ajuda...

@osvaldomp , é isso mesmo meu amigo. Uma pergunta, se ao invés de _xxx eu quiser numerar as duplicações, como ficaria? Ex.: _1 _2 _3

Boa tarde amigos, após consolidar essa planilha, muitos lançamentos da coluna A (BDP Ref.) estão duplicados. Existe alguma maneira de incluir por VBA um "_x" nos códigos duplicados? Segue uma planilha de exemplo onde mostra uma aba de Como é e a outra de Como deve ficar. Grato Bruno Rimoldi Exemplo_Cod_Duplicado.xlsx

Bom dia pessoal, Estou terminando meu projeto em VBA e preciso de uma macro que verifique se um certo arquivo, gerado pelo SAP (*.XLSX) está aberto. Caso esteja, a macro continua o código normalmente, caso não esteja aberto, entra na verificação do LOOP até abrir. Obrigado pela atenção e ajuda... Bruno

Consegui resolver com a seguinte fórmula "=IF(IFERROR(VLOOKUP(E4&"a157086";Bseg!A:A;1;0);"NAO")<>"NAO";"SIM";"NAO")"