Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

ErickSant

Membros Plenos
  • Total de itens

    51
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Corrigindo, sua resposta acima estava certa! OBRIGADO! RESOLVIDO!
  2. 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
  3. @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
  4. 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
  5. prezados, bom dia, Quando baixo algum arquivo da internet, automaticamente abre a tela de pergunta se quero salvar o arquivo ou apenas abri-lo... Existe alguma configuração onde eu consigo tirar essa pergunta e salvar direto o arquivo em meu computador?(downloads) Ou alguém sabe me informar qual seria o nome do botão 'save'(código)? Obrigado!
  6. Prezados, boa tarde, 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"... O problema dessa vez, é que podem ter casos que por exemplo, ao invés de ter um número positivo dps o mesmo número negativo, podem ter o mesmo número positivo 10x e em seguida o mesmo número negativo 10x, fazendo assim q eles se eliminem... Vejam meu anexo para melhor entendimento... No meu anexo eu já rodei a macro mas para verificar o arquivo sem a macro rodada, só substituir todo o conteúdo da coluna B por "0".. Verão que há valores que se eliminam mas continuam sem o "OK" dps de rodar a macro... teste.zip
  7. 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!
  8. 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
  9. 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
  10. 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
  11. 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...
  12. exatamente, a dúvida era a segunda alternativa... To tentando ver se consigo fazer isso via sql... Mesmo assim valeu cara...
  13. @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
  14. 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
  15. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×