Ir ao conteúdo

Posts recomendados

Postado

Prezados boa noite

 

Tenho uma tabela onde eu farei distribuição de numeros, e farei uma seleção

e gostaria que na tabela ela me traga somente os selecionados  dos que estão presentes conforme tabela abaixo;

Data 05 de janeiro foi onde teve mais presenças 5 alunos e possivel fazer isso ?

 

 

image.png.25272a7578269d73fc1af11e41fa06da.png

clube hardware1.xlsx

  • 4 meses depois...
Postado

Pelo que vi na tua planilha, o retorno que desejas é na range J6:J9. ? Confere ?

Se for quer por fórmulas do Excel ou uma função do VBA ?

Acho que por fórmulas vai ser bem mais "comprido" o texto a ser digitado.

 

image.png.c09e9fba07002b4f400396aa1e09b192.png

  • Curtir 1
Postado

Adaptei uma função de verificação que encontrei em um site e funcionou bem.

Criei um array para os 6 valores da planilha.

 

Function verificar(vRegiao As Range) As Integer

Dim vValores(6)
Dim b As Variant
Dim i As Integer
Dim vContagem As Integer
Dim w As Range

vContagem = 0

vValores(1) = Plan1.Range("C3").Value
vValores(2) = Plan1.Range("D3").Value
vValores(3) = Plan1.Range("E3").Value
vValores(4) = Plan1.Range("F3").Value
vValores(5) = Plan1.Range("G3").Value
vValores(6) = Plan1.Range("H3").Value

For Each w In vRegiao

    For i = 1 To UBound(vValores)

        If vValores(i) = w.Value Then
            vContagem = vContagem + 1
        End If
    
    Next i

Next w

verificar = vContagem

End Function

Site original para procura com String em Array :

https://planilhando.com.br/forum/vba-macros/buscar-string-dentro-de-array/

 

Anexei a tua planilha com esta função VBA

Acho que atende.
Dá um grito se não for isto.
Feliciddes.

 

 

clube hardware1.7z

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!