Cara, eu quero te ajudar... O problema parece mais simples do que vc planejou, projetou... e digo mais, acho que VB vai atrapalhar mais que ajudar.......

Respondendo sua pergunta, diretamente, assim: ActiveWorkbook.Names.Add Name:="teste", RefersToR1C1Local:= LocalCel Esse...

Set ws = Worksheets("Folha") Este erro 9, subscrito fora do intervalo, vai acontecer em duas ocasiões: - Você não tem uma planilha com ess...

Creio que a "melhor" sintaxe para adicionar Nomes via VBa é: ActiveWorkbook.Names.Add Name:="Grid", RefersToR1C1:="=S6!R3C3:R...

Boa noite! Aqui você encontra todas as respostas para suas duvidas. http://www.contextures.com/xlPivot08.html []Doni

Boa noite! O que tem a ver com tabela dinâmica???????????

Eu faria assim: Doni

Boa noite Kelvinjs Não é dificil fazer, mas para facilitar anexe uma planilha de exemplo, pois caso contrário terei que montar uma planilha para de...

Ellementho Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo: viewtopic.php?f=7&...

Boa noite! Supondo que seus dados estão na coluna H2:H20 e que não tenha células em branco dentro dos últimos cinco valores. =SEERRO(MÉDIA(SE(LIN(H2&...

D2 =SEERRO(MENOR(SE(('PLANILHA 1'!$B$2:$B$100=$A2)*('PLANILHA 1'!$C$2:$C$100=$B2)*(ESQUERDA('PLANILHA 1'!$E$2:$E$100;1)="R")=...

Ok. Coloque em D2 e Ctrl+Shift+Enter: =SEERRO(MENOR(SE(('PLANILHA 1'!$B$2:$B$10=$A2)*('PLANILHA 1'!$C$2:$C$10=$B2)=0;FALSO;'PLANILHA 1'!$A$2...

Sub somaum() activecell.Value = activecell.Value + 1 End Sub

Não esqueça de usar o Ctrl+Shift+Enter... Se não der certo, compartilhe o arquivo aqui, por favor... *(apague confidencialidades, troque números e no...