Midori

Aí o primeiro parâmetro de PROCV só recebeu uma célula. Pegue todo o intervalo da coluna.

Assim está contando na tabela da planilha 2, além disso falta fazer o teste que falei, pegue a outra fórmula como exemplo. O CONT.NÚM deve pegar a tabela que será filtrada, onde tem a segmentação.

O Google Sheets não tem esse tipo de tabela. No caso das fórmulas tem ARRAYFORMULA que se aplicar com outra não será necessário arrastar.

O que deu errado? O teste da fórmula tem o objetivo de verificar se a tabela da planilha 1 está filtrada. Se tem filtro (teste verdadeiro para CONT.NÚM com SUBTOTAL função 2) faça uma soma simples da outra tabela. Para o teste falso, faça o SOMASE. O argumento do número PA é o SUBTOTAL 5.

Você pode aplicar a lógica da fórmula em D22. Se a tabela não tem filtro é só somar a coluna "Valor Em Prejuizo", caso contrário faça o SOMASE com o critério do número PA.

As páginas que falei são as que foram configuradas para impressão na aba Certificado, lá vai ter Page 1, Page 2, etc. Então é da mesma planilha para gerar um arquivo pdf.

Talvez a plataforma esteja recebendo a formatação da célula. Tenta deixar o range como texto para ver se resolve NumberFormat = "@".

Para salvar como PDF tem o procedimento ExportAsFixedFormat de worksheet. A macro pode listar os nomes e ir copiando o certificado deles para as próximas linhas em cada uma das páginas. Depois é só chamar o procedimento para salvar no formato com o nome do arquivo. https://learn.microsoft.com/en-us/office/vba/api/excel.workbook.exportasfixedformat

Sem planilhas auxiliares, como comentei na página anterior, pode-se armazenar os dados num array ou Collection e efetuar a ordenação antes de adicionar os labels a partir deles. Esse processo pode ser menos eficiente e você vai notar alguma lentidão se tiver muitos dados. No código configurei o range B5:B29 da planilha ativa. Você pode referenciar a planilha pelo nome, p.ex, Set Area = ThisWorkbook.Sheets("Plan3").[B5:B29] Assim vai pegar o range da aba Plan3 da planilha que executa a macro.

É só pegar o primeiro código, que funciona, e acrescentar a atribuição que comentei no meu segundo post.

Faltou a linha da atribuição da referência range para Rangetopoke. E é aí que deve usar a instrução Set. Para a atribuição Value não se usa Set.

O nome do controle no seu formulário é MultiPage1 e não 2. O que aparece como MultiPage2 na janela de propriedades é o nome que você deu a uma das páginas do controle. E ainda falta atribuir lblConta da mesma forma que fez com lblFruta.

Qual Sub aparece quando você entra no código com duplo clique no Multipage?

Pode ser um SOMASE, =SE(CONT.NÚM(Tabela1[Número PA])=SUBTOTAL(2;Tabela1[Número PA]);SOMASE(Tabela1[Coluna3];"NÃO";Tabela1[Coluna8]);SOMASES(Tabela1[Coluna8];Tabela1[Coluna3];"NÃO";Tabela1[Número PA];SUBTOTAL(5;Tabela1[Número PA]))) Essa fórmula só faz sentido quando tem o filtro de apenas um número na coluna Número PA ou quando não tem nenhum.

Tenta deixar como estava no código anterior e faça a atribuição ao range que nesse caso é B3: Rangetopoke.Value = LABORATORIO.TextBox_01.Value

Com o filtro aí retornou o valor correto? Sem o filtro deixei zero mesmo. Para mostrar o total sem o filtro substitua o argumento zero que coloquei em SE.

Com o filtro, assim vai mostrar o total de Coluna8 quando Coluna3 = NÃO. =SE(CONT.NÚM(Tabela1[Número PA])=SUBTOTAL(2;Tabela1[Número PA]);0;SOMASES(Tabela1[Coluna8];Tabela1[Coluna3];"NÃO";Tabela1[Número PA];SUBTOTAL(5;Tabela1[Número PA])))

Como declarou Rangetopoke?

Com SUMIFS você pode colocar os dois critérios: Número PA e SIM ou NÃO. A questão é como identificar o número filtrado já que não uma referência a ele numa célula. Uma alternativa é pegar esse valor com SUBTOTAL, pode ser do número mínimo ou máximo p.ex.

Já tentou com tabela dinâmica (Selecione a tabela, Inseir > Tabela Dinâmica)? p.ex,

Agora está certo. Esse erro é porque seu MultiPage está com outro nome ou você não adicionou nenhum.

A atribuição serve para armazenar um valor numa variável. Suponha que você tenha a variável A e quer armazenar nela o valor 10, esta é a sintaxe, A = 10 Isso é uma atruição e nesse caso A é o nome da variável, 10 a expressão e igual é o operador de atribuição: variável = expressão. No seu código as variáveis são lblFruta e lblConta e a expressão é a linha de código que comentei. Como nesse caso a expressão é uma referência a um objeto você deve colocar a instrução Set antes da variável. Então, a linha vermelha está errada por que você só colocou a expressão, faltou a variável com Set e o operador de atribuição. Não precisava comentar, era só substituir as expressões.

@Darcio Antunes Godinho Para isso tem a fórmula SOMASE. Sugiro deixar os nomes da coluna A iguais ao da tabela para usar como critério na fórmula, aí é só escrever a fórmula em B3 e arrastar.

Antes da linha SaveAs coloque Application.DisplayAlerts = False

Além das atribuições você deve remover a linha do erro que aparece no print. Como não mostrou o código com a parte do erro fica difícil ajudar.