Matricial: Escreva na célula C2: =ÍNDICE(Plan2!$D$1:$D$100;MAIOR(--(Plan2!$A$1:$A$100=Plan1!A2)*LIN(Plan2!$A$1:$A$100);1);1) E tecle ...

ok...mas não tenho planilha pronta ...é apenas uma ideia que tenho....porque se tiver como fazer no excel...vou elaborar a planilha....valeu

Boa tarde!! Isso não te ajuda em nada? Sub CodigoDaCorDaCelulaAtiva() On Error GoTo myErr Sheets("Plan1").Select ActiveCell.Selec...

Duvida: O que vem a ser Setor? Por que o Loop até i=Setor, se não é utilizado o valor de i, o que são as demais variaveis NunReg / Resultado? Sem pode...

Boa tarde!! Eu fiz um teste na guia AleVBA_GuiaTeste, veja se é isso. Dentro do EditorVB tem 2 módulos (AleVBACod_Mod - UDF_Mod ) Eu inserir uma UDF...

Boa tarde A tua explicação tá muito confusa, veja: Quero que ela calcule a data de início com a duração da atividade para dar a data de término, Com...

tentei explicar melhor a minha duvida na planilha....valeu obg.

Bom dia Douglas Experimente Considerando que o 4 se encontra na célula A4, na A5 copie e cole --> A4+1 e arraste até alinha A10 Se não for isso...

fedlins Seja bem-vindo ao fórum! Como você é novato no fórum, aara facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links aba...

Bom dia jmcneto Na célula A1 digite a data inteira com dia mês e ano. =SOMARPRODUTO(('Relatório 1'!$G$5:$G$4971=D6)*(MÊS('Relatório 1'!$E$5:$E$4971)...

O erro está no valor "lançado" em D126, é texto. A função Somarproduto "exige" que a matriz utilizada contenha valores. Corrija d1...

Se a estrutura da planilha for sempre essa domodelo, segue uma possibilidade: B33=INDIRETO(ENDEREÇO(CORRESP($A33;$A$1:$A$28;0)+12;CORRESP("*"...

Bom dia!! Sua dúvida está vaga, tente detalhar melhor. Considerando que os valores serão capturados das células e que são números. Sub DuvidaVaga()...

Bom dia!! Favor clicar na mãozinha!!!!!!!!!!!!! Sub Visualizar_impressão() With Sheets("Plan1").Range("A1:I" & Rang...

Bom dia!! Veja Fonte: Sub SortWorksheets() Dim N As Integer Dim M As Integer Dim FirstWSToSort As Integer Dim LastWSToSort A...