ErickSant

@Lucas Takeshi Yamamotobom dia. Você conseguiu resolver esse seu problema? Estou em 2022 e estou enfrentando o mesmo... Não sei o que fazer. Toda vez que estou de live aberta na twitch, passa um tempo e a internet cai, só no PC...

Pessoal, boa noite, Tenho uma lista de valores onde precisava transformar essa lista em uma única célula com o " ; " de separador, hoje em dia eu copio essa lista no Word e substituo o "^p" por " ; " e funciona, mas precisava fazer isso sem utilizar o word. Vejam meu anexo para melhor entendimento. Alguém consegue me ajudar ? Obrigado! lista.xlsx

consegui!

Boa tarde pessoal, Estou com uma dúvida para realizar atualização de uma tabela no excel, acredito que vendo meu anexo fica mais fácil de entender minha dúvida, que é a seguinte: haverá sempre o primeiro arquivo (principal) e em seguida haverão outros arquivos, a ideia é toda vez que eu for importar outros arquivos, a macro faça uma atualização do meu arquivo principal, seguindo as seguintes regras: - Caso a chave do primeiro arquivo seja = a chave do segundo arquivo, faça as seguintes verificações, caso o valor bruto e data de vencimento sejam diferentes, trazer para o arquivo principal as novas informações. - Caso a chave do primeiro arquivo não exista no segundo arquivo, deletar a linha atual ou marcar ela para ser deletada em um segundo loop por exemplo. e por último e o que ta me dando mais dor de cabeça: - Caso a chave do segundo arquivo não exista no primeiro arquivo, levar esses caras para o primeiro arquivo... Alguém consegue me ajudar ? valeu... teste2.zip

era isso mesmo cara! Muito obrigado!

Prezados, boa tarde, Venho com mais uma dúvida, a lógica dessa vez é a seguinte, há a coluna de descrição e a coluna de valor... A ideia é pegar caso o valor termine com a letra D, pegue a segunda linha da descrição, recorte e cole na linha da descrição do valor... (esse é o primeiro loop) O segundo loop seria apagar todas linhas que não possuem descrição... Vendo meu anexo acredito que ficaria muito mais fácil o entendimento... Na planilha2 coloquei como teria que ficar... Alguém consegue me ajudar ? teste.xlsx

Fala @R0DR1G0_CWB não to conseguindo te mandar mensagem privada... Não mandei com o vba porque a ideia é bem 'simples', to mandando agora com o código que tentei fazer... O objetivo é filtrar tudo da coluna A diferente dos números que coloquei nos critérios... Que são: 27001101 27001102 27001103 27001104 27001105 27001106 27001201 27001202 27001203 27001204 27001205 e também não pegar os campos vazios Segue o anexo... Pasta1.zip

Amigos, boa tarde, Tenho uma dúvida que para muitos acredito que será fácil, mas eu estou quebrando a cabeça e não consigo resolver... Possuo 4 bases enormes em excel onde possuem diversas colunas, a ideia é dessas 4 bases, retirar apenas algumas colunas específicas e jogar em um layout pronto já do Excel... Porém algumas colunas desse layout, possuem fórmula de concatenação e uma outra de conversão de valor(real para Euro)... Eu queria tentar fazer isso em Access, onde no Access eu já teria a tabela do layout pronta e exportaria todas bases do excel la e rodaria alguma query... Alguém já fez algo parecido ?

Corrigindo, sua resposta acima estava certa! OBRIGADO! RESOLVIDO!

Bom dia Rodrigo! Obrigado pelo retorno até aqui! Verificando com o resultado que foi feito na mão, alguns pequenos valores não entraram na macro, fiz alguns testes na planilha 2, verifique meu anexo por favor... A soma da coluna Erro teria que dar: 169.573,43 Obrigado!! Teste versão Feito.zip

@R0DR1G0_CWB Fala cara, beleza? Eu testei o seu código, ele praticamente da o mesmo 'erro'... Veja meu anexo, se você pegar por exemplo, depois de rodar a macro do status, o valor 12,5... Vai encontrar alguns valores desse negativo mas cade o positivo ? A ideia é deixar com o status OK, somente os números que se cruzam, ou seja, esses que estão com ok, na verdade deveriam estar com erro... Fazendo essa conciliação no olho, verifiquei que o número de Errados é de 178, ou seja, são alguns que estão com 'ok' mas que na verdade deveriam estar como 'erro' também... Pasta1.zip

Amigos, bom dia, Eu havia marcado esse tópico como resolvido, porém analisando de novo a planilha, me deparei que ainda constam valores que deveriam estar com o status 'OK' mas não ficaram... É como se o código só faz o calculo quando há um número positivo seguido de um negativo, quando há por exemplo, dez números positivos e depois de outros números aleatórios terem esses mesmos 10 números negativos, ele não altera o status deles... Vejam meu anexo por favor... Alguém consegue me ajudar ? teste.zip adicionado 7 minutos depois Em uma outra época, um amigo fez um código em vba para mim, onde conciliava valores que se repetiam na mesma coluna, por exemplo, há 10 valores positivos e 10 valores negativos, dai essa macro ela pintava todos os 20 valores de uma cor específica.... Não sei se daria para adptar esse código para minha nova necessidade... Segue: Sub conciliar() On Error Resume Next Dim ul As Long 'inicio: ul = Planilha1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To ul conf1 = CStr(Cells(i, 7).Value & Cells(i, 8).Value) For j = 2 To ul If CStr(Cells(j, 7).Value & (Cells(j, 8).Value) * -1) = conf1 And Cells(j, 7).Row <> Cells(i, 7).Row Then Cells(j, 2).EntireRow.Interior.Color = 65535 Cells(i, 2).EntireRow.Interior.Color = 65535 'GoTo inicio End If Next j Next i MsgBox "Conciliação realizada com Sucesso!", vbExclamation, "Sucesso!" End Sub

Bom dia, na verdade não, segue o código que realmente me ajudou. Sub Status() Dim ul As Long inicio: ul = Planilha1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To ul If Planilha1.Range("B" & i) <> "OK" And Planilha1.Range("A" & i).Value = Planilha1.Range("A" & i + 1).Value * -1 Then Planilha1.Range("B" & i).Value = "OK" Planilha1.Range("B" & i + 1).Value = "OK" End If Next i For i = 2 To ul If Planilha1.Range("B" & i).Value = "" Then Planilha1.Range("B" & i).Value = "Erro" End If Next i End Sub Mesmo assim, obrigado pela ajuda cara!

mas se você verificar o arquivo dos valores até o final, vão ter casos que tem mais positivos que negativos... A ideia é que depois de rodar a macro, tudo que estiver com status Ok, a soma da coluna dar zero Veja como consegui fazer até agr por macro... Consegue me ajudar a corrigir ? teste.zip

Prezados, bom dia, Tenho uma nova dúvida, acredito que essa é mais fácil... Preciso fazer uma lógica onde calcule 1 valor menos o valor seguinte, CASO a conta dar 0, ir na outra coluna de Status e marcar nas 2 linhas como "Ok", caso der diferente de 0, marcar como "erro"... Vejam meu anexo, acredito que ficaria mais fácil o entendimento... Lembro que há um tempo atrás me ajudaram com um problema parecido com o seguinte código: Sub conciliar() On Error Resume Next Dim ul As Long 'inicio: ul = Planilha1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To ul conf1 = CStr(Cells(i, 7).Value & Cells(i, 8).Value) For j = 2 To ul If CStr(Cells(j, 7).Value & (Cells(j, 8).Value) * -1) = conf1 And Cells(j, 7).Row <> Cells(i, 7).Row Then Cells(j, 2).EntireRow.Interior.Color = 65535 Cells(i, 2).EntireRow.Interior.Color = 65535 'GoTo inicio End If Next j Next i MsgBox "Conciliação realizada com Sucesso!", vbExclamation, "Sucesso!" End Sub Obrigado! teste.xlsx

Olá, bom dia, Achei o seguinte código na internet, mas não estou conseguindo adaptar o Range... Alguém consegue me ajudar ? Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoexport As Range Dim rowcounter As Long Dim columncounter As Long Dim linedata As String ' change range here Set rangetoexport = Worksheets("Sheet1").Range("E1", "G1", "H1", "L1", "N1", "O1", "P1") << eu precisaria dessas colunas apenas... Set fs = CreateObject("Scripting.FileSystemObject") ' change dir here Set jsonfile = fs.CreateTextFile("C:\Users\Erick\Desktop\" & "jsondata.json", True) linedata = "{""Output"": [" jsonfile.WriteLine linedata For rowcounter = 2 To rangetoexport.Rows.Count linedata = "" For columncounter = 1 To rangetoexport.Columns.Count linedata = linedata & """" & rangetoexport.Cells(1, columncounter) & """" & ":" & """" & rangetoexport.Cells(rowcounter, columncounter) & """" & "," Next linedata = Left(linedata, Len(linedata) - 1) If rowcounter = rangetoexport.Rows.Count Then linedata = "{" & linedata & "}" Else linedata = "{" & linedata & "}," End If jsonfile.WriteLine linedata Next linedata = "]}" jsonfile.WriteLine linedata jsonfile.Close Set fs = Nothing End Sub Galera, acredito que estou chegando perto do que eu desejo... Vejam o código abaixo por favor. Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoexport As Range Dim rowcounter As Long Dim columncounter As Long Dim linedata As String Dim UltimaLinhaAtivaE As Long Dim UltimaLinhaAtivaG As Long Dim UltimaLinhaAtivaH As Long Dim UltimaLinhaAtivaL As Long Dim UltimaLinhaAtivaN As Long Dim UltimaLinhaAtivaO As Long Dim UltimaLinhaAtivaP As Long UltimaLinhaAtivaE = Planilha1.Cells(Planilha1.Rows.Count, 5).End(xlUp).Row UltimaLinhaAtivaG = Planilha1.Cells(Planilha1.Rows.Count, 7).End(xlUp).Row UltimaLinhaAtivaH = Planilha1.Cells(Planilha1.Rows.Count, 7).End(xlUp).Row UltimaLinhaAtivaL = Planilha1.Cells(Planilha1.Rows.Count, 12).End(xlUp).Row UltimaLinhaAtivaN = Planilha1.Cells(Planilha1.Rows.Count, 14).End(xlUp).Row UltimaLinhaAtivaO = Planilha1.Cells(Planilha1.Rows.Count, 15).End(xlUp).Row UltimaLinhaAtivaP = Planilha1.Cells(Planilha1.Rows.Count, 16).End(xlUp).Row ' range Set rangetoexport = Worksheets("Sheet1").Range("N1:N" & UltimaLinhaAtivaN, "E1:E" & UltimaLinhaAtivaE) 'AQUI se eu configurar até 2 colunas( N e E) ele passa tranquilo e faz exatamente o que eu quero... Porém se eu colocar na ordem que eu quero, ele da erro... 'a ordem das colunas que eu quero colocar é N, O, P, H, G, L, E 'no caso seguiria a mesma lógica 'exemplo 'Set rangetoexport = Worksheets("Sheet1").Range("N1:N" & UltimaLinhaAtivaN, "O1:O" & UltimaLinhaAtivaO, "P1:P" & UltimaLinhaAtivaP, "H1:H" & UltimaLinhaAtivaH, "G1:G" & UltimaLinhaAtivaG, "L1:L" & UltimaLinhaAtivaL, "E1:E" & UltimaLinhaAtivaE) Alguém consegue me ajudar ?? até consegui ajeitar, mas o resultado ele ignora algumas colunas... Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoexport As Range Dim rowcounter As Long Dim columncounter As Long Dim linedata As String Dim UltimaLinhaAtivaE As Long Dim UltimaLinhaAtivaG As Long Dim UltimaLinhaAtivaH As Long Dim UltimaLinhaAtivaL As Long Dim UltimaLinhaAtivaN As Long Dim UltimaLinhaAtivaO As Long Dim UltimaLinhaAtivaP As Long Dim r1 As Range Dim r2 As Range Dim r3 As Range Dim r4 As Range Dim r5 As Range Dim r6 As Range Dim r7 As Range UltimaLinhaAtivaE = Planilha1.Cells(Planilha1.Rows.Count, 5).End(xlUp).Row UltimaLinhaAtivaG = Planilha1.Cells(Planilha1.Rows.Count, 7).End(xlUp).Row UltimaLinhaAtivaH = Planilha1.Cells(Planilha1.Rows.Count, 7).End(xlUp).Row UltimaLinhaAtivaL = Planilha1.Cells(Planilha1.Rows.Count, 12).End(xlUp).Row UltimaLinhaAtivaN = Planilha1.Cells(Planilha1.Rows.Count, 14).End(xlUp).Row UltimaLinhaAtivaO = Planilha1.Cells(Planilha1.Rows.Count, 15).End(xlUp).Row UltimaLinhaAtivaP = Planilha1.Cells(Planilha1.Rows.Count, 16).End(xlUp).Row Set r1 = Worksheets("Sheet1").Range("N1:N" & UltimaLinhaAtivaN) Set r2 = Worksheets("Sheet1").Range("O1:O" & UltimaLinhaAtivaO) Set r3 = Worksheets("Sheet1").Range("P1:P" & UltimaLinhaAtivaP) Set r4 = Worksheets("Sheet1").Range("H1:H" & UltimaLinhaAtivaH) Set r5 = Worksheets("Sheet1").Range("G1:G" & UltimaLinhaAtivaG) Set r6 = Worksheets("Sheet1").Range("L1:L" & UltimaLinhaAtivaL) Set r7 = Worksheets("Sheet1").Range("E1:E" & UltimaLinhaAtivaE) ' change range here Set rangetoexport = Union(r1, r2, r3, r4, r5, r6,r7) Set fs = CreateObject("Scripting.FileSystemObject") ' change dir here Set jsonfile = fs.CreateTextFile("C:\Users\erick.l.santiago\Desktop\" & "jsondata.json", True) linedata = "{""Output"": [" jsonfile.WriteLine linedata For rowcounter = 2 To rangetoexport.Rows.Count linedata = "" For columncounter = 1 To rangetoexport.Columns.Count linedata = linedata & """" & rangetoexport.Cells(1, columncounter) & """" & ":" & """" & rangetoexport.Cells(rowcounter, columncounter) & """" & "," Next linedata = Left(linedata, Len(linedata) - 1) If rowcounter = rangetoexport.Rows.Count Then linedata = "{" & linedata & "}" Else linedata = "{" & linedata & "}," End If jsonfile.WriteLine linedata Next linedata = "]}" jsonfile.WriteLine linedata jsonfile.Close Set fs = Nothing End Sub 'resultado': {"Output": [ {"Supplier Number":"20136570","Supplier Number Desc":"fornecedor1","Invoice Number":""}, {"Supplier Number":"40016609","Supplier Number Desc":"fornecedor2","Invoice Number":"000050412000"}, {"Supplier Number":"40018644","Supplier Number Desc":"fornecedor3","Invoice Number":"10006600"}, {"Supplier Number":"40017433","Supplier Number Desc":"fornecedor4","Invoice Number":"00912200"}, {"Supplier Number":"40017966","Supplier Number Desc":"fornecedor5","Invoice Number":"00055900"} ]} O certo era trazer mais algumas informações...

Algum programador consegue me ajudar ? Achei um vídeo com uma ideia parecida com o que eu quero, mas não consegui adaptar o código...

exatamente, a dúvida era a segunda alternativa... To tentando ver se consigo fazer isso via sql... Mesmo assim valeu cara...

@CasaDoHardware fiz uma alteração para ele marcar todas que estão somando, ele até funciona, em geral tem a mesma lógica que o meu código do anexo, a minha dúvida era por exemplo, se ele passar do valor que eu digitar ali, ele passar para a próxima célula para tentar fazer o somatório, caso não encontrar, eu colocaria um msgbox... A ideia é pegar o valor exato... Veja no meu exemplo anexado, eu coloquei um valor a ser procurado, porém como o primeiro valor é maior do que ele, ele ignora a busca, pois já marca como "encontrado"... Obrigado pelo retorno!!! teste(CorNacélula2).rar

Prezados, bom dia, Estou com uma dúvida parecida com a do seguinte tópico: https://www.clubedohardware.com.br/forums/topic/662546-resolvido-excel-somar-uma-coluna-at%C3%A9-um-determinado-n%C3%BAmero/ Adaptei o código para a minha necessidade, porém reparei que não está pegando o valor exato que eu procurar... Alguém consegue me ajudar a adaptar para pegar exatamente o valor procurado ? Vejam o exemplo das células marcadas em amarelo... Célula G1 = valor a ser encontrado Célula E1 = somatório da coluna B até encontrar o valor desejado Célula E2 = somatório da coluna B - valor encontrado A ideia era marcar de alguma forma, seja pintando a célula onde tem o valor(colunaB) ou listar elas de alguma forma... Alguém consegue me ajudar ? teste(CorNacélula2).rar

Prezados, bom dia! preciso de uma ajuda para criar um script em vba que leia um excel e com algumas informações específicas desse arquivo, monte um arquivo JSON... Segue a ideia: Seguindo o arquivo em anexo, o objetivo é ler as seguintes colunas e pegar as informações de cada uma e ir montando o arquivo JSON... Coluna E (Invoice Date) = "DataEmissaoNF": "conteudo", Coluna G(Due Date) = "VencimentoNF":"conteudo", Coluna H(Gross Amount)= "ValorTotalNF":"conteudo", Coluna L(Pay Stat)= "StatusPag":"conteudo", Coluna N(Supplier Number)= "NumForn":"conteudo", Coluna O(Supplier Number Desc)= "NomeForn":"conetudo", Coluna P(Invoice Number)= "NumeroNF":"conteudo" Outra dúvida também seria que esse script puxaria as informações do excel sempre do mesmo diretório... Alguém consegue me ajudar ? Obrigado... Book1.xls

Obrigado pelo retorno, consegui resolver, o meu erro era que eu sempre me baseava na coluna total geral, mas a diferença real é nessa fórmula que eu criei, pois na aba de total geral da dinâmica, os valores estão sempre sendo somados... Na minha coluna é onde tem a diferença real linha a linha... Enfim, obrigado mesmo assim!

Não consigo entender, fiz um teste em uma outra aba utilizando a mesma fórmula e pegou a diferença exata... Observem a aba devoluções Alguém consegue me ajudar ? Pasta3.xlsx

Prezados, boa noite, Estou com uma dúvida para retirar a diferença de valores usando uma fórmula no Excel mas não consigo entender porque não está dando a diferença correta... A diferença correta é exatamente o que a tabela dinâmica dá... A fórmula usada foi essa: =SE(P3<>0;SE(Q3>0;P3-Q3;SE(Q3<0;P3+Q3;P3)); Q3) O objetivo é pegar a diferença de um para o outro independente do sinal... Exemplo se forem 2 negativos, vai ter que ser o primeiro + o segundo, para que dê a diferença... Vendo o anexo fica mais fácil de entender... Alguém consegueria me ajudar ? Pasta1.xlsx

Consegui resolver, criei 2 colunas aleatorias entre as tabelas a qual eu puxava as informações para criar a TD, assim dessa forma, criei uma unica TD e na organização dela eu puxei apenas a chave(ambas tem a mesma chave) como Linha, e as colunas vl_operação(soma de valores) e Montante(soma de valores) e depois imputei a fórmula um menos o outro e foi... Obrigado por quem tentou ajudar, RESOLVIDO!