Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por PHSabater
Posts Avatar
#70271
Via fórmula não sei se é possível ter esse resultado que espera somente informando essas condições.

Em VBA é possível.

O código abaixo te entrega o resultado esperado, ele vai contar se na coluna E e coluna G tiverem os campos da busca (2 e 4).
Código: Selecionar todos
Sub LocalizarOcorrencias()
    Dim lBusca As Long
    Dim Result As Integer
    Dim strResult As String, vLinha As String
    
    lBusca = 7 'linha inicial das informações
    Result = 0
    Do Until Plan1.Cells(lBusca, 1) = "" 'Plan1 é o nome da planilha
        If Plan1.Cells(lBusca, "E") = Plan1.Range("B1") And _
            Plan1.Cells(lBusca, "G") = Plan1.Range("D1") Then
                Result = Result + 1
                strResult = Plan1.Cells(lBusca, "A") & " " & Plan1.Cells(lBusca, "B") & "" & _
                            Plan1.Cells(lBusca, "C") & " " & Plan1.Cells(lBusca, "D")
                vLinha = vLinha & " - " & lBusca
        End If
        
    lBusca = lBusca + 1
    Loop
    Plan1.Range("F1") = Result & " ocorrências para " & strResult & " na(s) linha(s) " & vLinha
End Sub
Por babdallas
#70310
Código: Selecionar todos
=SEERRO(ÍNDICE(Tabela1[Texto1];AGREGAR(15;6;(LIN(Tabela1)-LIN(Tabela1[#Cabeçalhos]))/((Tabela1[Texto5]=$B$1)*($D$1=Tabela1[Texto7]));LINS(I$14:I14)));"")
Você não está autorizado a ver ou baixar esse anexo.

=SE(MÊS(A1)<7;"1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um "[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord