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