Este fórum está sendo desativado

Respondido via e-mail.

Arquivo está sem anexo no .zip.

Boa noite.
Com fórmula é possível fazer, tem que ver a estrutura dessa base sua para ter ideia de como extrair o que precisa.
Acredito que VBA seja mais eficiente para fazer a extração.
Consegue postar um exemplo ou uma parte da sua base?

Anexei a planilha com a macro para adaptar pra sua realidade.
Abraço.

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). Sub LocalizarOcorrencias() Dim lBusca As Long Dim Resul...

@ROSANO , é melhor você recortar parte da sua planilha com as três abas formatadas conforme sua necessidade, insira duas ou três linhas de dados fictícios, assim podemos fazer a rotina entregar o que você está precisando... O código que deixei anteriormente faz o que precisa, mas tem que adaptar pa...

De forma simplificada a fórmula abaixo te entrega o que precisa.

=SE(MÊS(A1)>=7;"Segundo Semestre";"Primeiro Semestre")

Em E11 coloque a fórmula abaixo: =CONT.SES('1'!$M:$M;PAINEL!C11;'1'!$I:$I;PAINEL!$E$10)+CONT.SES('2'!$M:$M;PAINEL!C11;'2'!$I:$I;PAINEL!$E$10)+CONT.SES('3'!$M:$M;PAINEL!C11;'3'!$I:$I;PAINEL!$E$10) Em F11 coloque a fórmula abaixo: =CONT.SES('1'!$M:$M;PAINEL!C11;'1'!$I:$I;PAINEL!$F$10)+CONT.SES('2'!$M:...

Supomos que seus dados estejam na Plan1 e Plan2, e que na Plan3 queira adicionar os resultados. Considero que os registros comecem na linha 2 e que a coluna do CPF em ambas estejam em A. Public Sub Consolidar() Dim lPlan2 as Long 'percorre as linhas de Plan2 Dim lBusca as Long 'percorre as linhas de...

De forma simples, vamos lá. Faça um loop pra percorrer a aba com 7.000 CPFs, a cada linha dela, faça um loop na aba com 30000 CPFs, compare os CPFs, quando encontrar na aba com 30000 CPFs, carregue esses registros para sua aba 3. Aborte o loop na aba com 30000 CPFs , vai pular pro registro 2 de 7000...

Sub GerarDatas() Dim Ano As Integer Dim lResult As Long Dim pDia, uDia As Date Dim Mes As String Ano = 2022 Mes = "fevereiro" pDia = CDate("01/01/" & Ano) uDia = CDate("31/12/" & Ano) lResult = 1 'Inicia geração novos registros. For i = pDia To uDia If MonthNam...

@ROSANO, o nosso amigo @babdallas, falou tudo.
Com o arquivo ou parte dele anexo é mais fácil te ajudar.
Abraço.

Maravilha.
Eu fiz a solução também sem o Dicionário, acabei não postando porque tive uns imprevistos... agora que está normalizando por aqui.
Abraço.

Consegue colocar o arquivo ou parte dele aqui pra ajudar?

Coloque outro SE, SE = "SIm", tem dependente, desconta a dedução...
Imagino que esteja formatando para trabalhar em uma base que contenha nomes e outras informações... adicione a coluna DEPENDENTES (Sim | Não) e condicione igual as demais.

Boa noite @PedroSilva, assim que conseguir dou uma olhada, mas de cara vi aqui que alterou nome de planilhas e virou uma salada rsrsrs

@AMORIM123, Boa noite.

Fiquei ausente por esses dias... já solucionou?

@AMORIM123, Scripting é novo pra mim.... nunca utilizei...

Mas fazendo um for each no Scripting que carrega o seu array, ele só tá vindo os códigos dos produtos.

Qual o objetivo da sua planilha? Classificar os produtos (registros únicos)?

@AMORIM123 , não está dando certo porque esse array que está tentando inserir está chegando sem informações. For Each t In arrDef MsgBox t Next Faça o teste com esse código, ou qualquer outro que extraia informação do array. Pode ser até msgbox arrdef(1,1) arrDef = DictNewItemDefault.Items Não depu...

Redimensione conforme código abaixo para descarregar o array.

Plan1.Range("B13").Resize(vLinhas, vColunas) = myarray