Midori

Os elementos são acrescentados no combo com o procedimento AddItem. É só fazer um para cada no Initialize do formulário.

Pode mostrar um exemplo do que quer fazer?

Veja se assim resolve, =SOMA((Tabela1[SITUAÇÃO]>="D")*(Tabela1[SITUAÇÃO]<="H")*(NÚM.CARACT(Tabela1[SITUAÇÃO])=1)*SUBTOTAL(9;DESLOC(C10;LIN(Tabela1[VALOR])-LIN(C10);0)))

@joap avelino de sousa Isso pode ser feito com tabela dinâmica, é bem mais simples. Assim o campo GRH fica como filtro da tabela.

ExportAsFixedFormat vai exportar todas as páginas da planilha. Se quiser imprimir certificados específicos, sua macro pode copiar só os nomes necessários. Se for de 1 a 10 serão os nomes da linha 1 até a 10. Para o outro caso será a linha 1 e 5.

Para isso faltou fazer o loop nas abas. Esse pode ser um For Each mais externo ao das linhas. p.ex, For Each Planilha In ThisWorkbook.Sheets Linha = 2 'Referente a linha abaixo do cabeçalho da planilha2(Dados) If Left(Planilha.Name, 4) = "DADO" Then With Planilha Do Until .Cells(Linha, 1) = "" ...

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.