Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[Resolvido] Contar a quantidade de nomes repetidos

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[Resolvido] Contar a quantidade de nomes repetidos

Mensagem por milton »

Fala pessoal, recorrendo aqui aos amigos para uma ajudinha.

Mandei uma planilha vba anexo, onde eu digito o código do produto e carrega o nome do fornecedor. Até ai tudo bem.

Porém o que eu preciso é que nesse momento aconteça uma verificação na aba RETRABALHO coluna J nas linhas sem data de envio e me informe quantas vezes o nome do fornecedor se repete na coluna G e carregue a quantidade encontrada na TxtCont.

Os códigos estão na aba PRODUTOS.

Desde já agradeço a ajuda.
Anexos
ALMOXARIFADO - RETRABALHO - Cópia.rar
(142 KiB) Baixado 154 vezes
Editado pela última vez por milton em Sex Ago 20, 2021 9:30 am, em um total de 2 vezes.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Contar a quantidade de nomes repetidos

Mensagem por Reinaldo »

Não sei se entendi corretamente, mas experimente:
Altere na rotina Private Sub CbbCodigo_Change ,conforme abaixo

Código: Selecionar todos

..
With Worksheets("PRODUTOS").Range("A:A")
    Set C = .Find(CbbCodigo.Value, LookIn:=xlValues, Lookat:=xlWhole) 'xlWhole, procura a palavra exata
    If Not C Is Nothing Then
        C.Activate
        'para editar, deve-se inverter as funções
        TxtDescricao = C.Offset(0, 1).Value
        CbbFornecedor = C.Offset(0, 4).Value
        TxtCont = ContaRep(TxtFornecedor.Text)
    Else
        MsgBox "Não localizado", vbInformation, "Pesquisa!"
        CbbCodigo = ""
        TxtFornecedor = ""
        TxtCont = ""
        Me.ImgFoto.Picture = LoadPicture() 'Limpar imagem
        CbbCodigo.SetFocus
    End If
End With
...
Adicionalmente inclua a função abaixo no modulo do formulario

Código: Selecionar todos

Private Function ContaRep(ccod As String) As Integer
Dim intLinha As Integer, intFor As Integer
    With Sheets("RETRABALHO")
    For intLinha = 2 To .Range("C2").End(xlDown).Row
        If .Cells(intLinha, 7).Value = ccod And .Cells(intLinha, 10).Value = "" Then intFor = intFor + 1
    Next
    End With
ContaRep = intFor
End Function


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Contar a quantidade de nomes repetidos

Mensagem por milton »

Reinaldo bom dia!
É exatamente isso, muito obrigado!
Abraço


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder