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