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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[Resolvido] Contar a quantidade de nomes repetidos
[Resolvido] Contar a quantidade de nomes repetidos
- 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.
- Reinaldo
- 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
Não sei se entendi corretamente, mas experimente:
Altere na rotina Private Sub CbbCodigo_Change ,conforme abaixo
Adicionalmente inclua a função abaixo no modulo do formulario
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
...
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
Re: Contar a quantidade de nomes repetidos
Reinaldo bom dia!
É exatamente isso, muito obrigado!
Abraço
É exatamente isso, muito obrigado!
Abraço