Wendell Menezes

Partindo do pressuposto que todos os XMLs terão essa mesma estrutura, ajustei o seu arquivo com uma conexão do Power Query que irá importar todos os arquivos .xml que estão dentro de uma pasta. Para o ajustar o caminho dessa pasta você deve seguir esses passos: Depois é só colocar os XMLs na pasta, clicar com o botão direito na tabela e atualizar. NFE DOWNLOAD (1).xlsx

Outra opção que exige menos manutenção: Validacao teste WM.zip

Olá, Você atualizou a nova empresa na aba Dropdown? Precisa inserir elas na primeira linha e arrastar as fórmulas das linhas 2 e 3 para a direita. Segue nova versão que remove duplicatas e coloca os nomes em ordem alfabética. Validacao teste WM.zip

Bom dia, Possível é, mas não tem como te dar mais instruções sem ter os arquivos postados aqui, mostrando exatamente os resultados que você quer atingir.

@Robson M Silva , pode postar a planilha com os seus números e os resultados que você gostaria de ver?

Algo mais ou menos assim? Sub Arrays() Dim aTexts As Variant Dim aCells As Variant Dim i As Integer aTexts = Array("Cimento", "Madeira", "Pedra") aCells = Array("A1", "B1", "C1") For i = 0 To UBound(aTexts) Range(aCells(i)) = aTexts(i) Next End Sub

Seria isso? Para cada nova empresa você teria que atualizar a nova aba "Dropdown" conforme o modelo. Validacao teste WM.zip

Minha sugestão seria postar uns 3 XMLs juntamente com uma planilha com os resultados que você espera (feitos manualmente) para que a gente monte uma macro pra você.

@Robson M Silva , a utilização de "." foi um paleativo implementado pelo Leo antes de eu compartilhar uma alternativa no dia 03/02. Se você remover esses pontos a fórmula da coluna "Q" deveria funcionar normalmente.

Eu também utilizo SAP Script e me deparei com esse problema. Escolhi a solução que previne que o Excel seja aberto em primeiro lugar. Para isso eu salvo o arquivo com outra extensão, como por exemplo .cmd. Depois adiciono 2 linhas para deletar o arquivo Excel caso ele já exista e depois renomeio o arquivo .cmd para .xlsx Exemplo: On Error Resume Next Kill "C:\TEMP\SE16H.xlsx" Name "C:\TEMP\SE16H.cmd" As "C:\TEMP\SE16H.xlsx"

É possível sim, pode postar os dois arquivos aqui para adaptarmos a macro pra você?

Claro, ficaria assim: Sub CONVERT_TXT() Const PathTXT As String = "C:\Users\PC\Downloads\" 'Diretório dos .TXT (com "\" no fim!) Const PathXLS As String = "C:\Users\PC\Downloads\" 'Diretório dos .XLS (com "\" no fim!) Dim FSO As Object Dim File As Object Dim wb As Workbook Application.DisplayAlerts = False Set FSO = VBA.CreateObject("Scripting.FileSystemObject") For Each File In FSO.GetFolder(PathTXT).Files If Right(LCase(File), 4) = ".txt" Then Set wb = Workbooks.Open(File) ActiveSheet.Name = "Plan1" wb.SaveAs PathXLS & Replace(LCase(wb.Name), ".txt", ".xls"), xlWorkbookNormal wb.Close False End If Next End Sub

E se você clica em Sim, não abre o arquivo? De qualquer maneira, altere essa linha do código, acrescentando , xlWorkbookNormal no fim": wb.SaveAs PathXLS & Replace(LCase(wb.Name), ".txt", ".xls"), xlWorkbookNormal

Experimente essa macro: Sub CONVERT_TXT() Const PathTXT As String = "C:\Users\PC\Downloads\" 'Diretório dos .TXT (com "\" no fim!) Const PathXLS As String = "C:\Users\PC\Downloads\" 'Diretório dos .XLS (com "\" no fim!) Dim FSO As Object Dim File As Object Dim wb As Workbook Application.DisplayAlerts = False Set FSO = VBA.CreateObject("Scripting.FileSystemObject") For Each File In FSO.GetFolder(PathTXT).Files If Right(LCase(File), 4) = ".txt" Then Set wb = Workbooks.Open(File) wb.SaveAs PathXLS & Replace(LCase(wb.Name), ".txt", ".xls") wb.Close False End If Next End Sub

Essa é a linha que define o nome do pdf ThisDocument.ExportAsFixedFormat OutputFileName:=Caminho & i, _ Se trocar para a linha abaixo, todos os PDFs teriam o nome do carlos da silva + número sequencial. ThisDocument.ExportAsFixedFormat OutputFileName:=Caminho & "carlos da silva" & i, _ Mas como você quer que isso venha de um excel, será mais fácil se postar um exemplo da planilha e do seu word para que possamos adaptar exatamente à sua necessidade.

Olá, Ao abrir o arquivo você terá que clicar em "habilitar macros", depois é só colocar algum número na célula D1006 que ele será igual ao da K1006, o que irá ativar a macro que irá mostrar a mensagem na tela.

Entendi, veja se seria isso exemplo2_WM.xlsx

Veja se esse exemplo te atende exemplo_WM.xlsx

Eu confesso que ainda não entendi qual seria o resultado esperado na segunda lista. Seria algo assim?

Boa tarde, Pode postar sua planilha, mesmo que com dados fictícios, para que seja possível visualizar o que você quer fazer?

Bom dia, Como não havia Userform criado na sua planilha eu fiz esse exemplo com uma MsgBox comum: Teste.zip

Pode-se utilizar o PROCX como alternativa também, caso essa função esteja disponível na sua versão. Exemplo: Retornar a primeira data acima da data digitada_Wendell.xlsx

Boa noite, Não funciona porque você precisa usar "Resume" para dizer ao VBA que você já tratou o primeiro erro e ele pode continuar a execução normalmente. Exemplo: Sub teste() On Error GoTo Erro1 Sheets("qwert").Select Sem_Erro: On Error GoTo Hell Sheets("asdf").Select Erro1: MsgBox "Erro 1" Resume Sem_Erro Hell: MsgBox "Erro 2 :(" End Sub

Definitivamente não há nada de "errado" com o arquivo. Você está se deparando com um problema decorrente do padrão IEEE 754 para ponto flutuante que o Excel utiliza para fazer cálculos aritiméticos, que em alguns casos como esse, resulta em diferenças decimais extremamente pequenas que desvirtuam testes lógicos como o que você implementou. Uma forma de contornar isso é utilizando uma fórmula de arredondamento, como nesse exemplo abaixo que considera apenas 2 casas decimais: =IF(AF10="";"";IF(ROUND(F10+O10-X10=I16;2)=0;"OK";"????"))

Pode postar o arquivo ao invés da imagem?