Veja se é isto : Private Sub Worksheet_Activate() Application.EnableEvents = False Application.ScreenUpdating = False Dim sheetsArray As V...

Contribuindo, experimente Sub Separando() Dim Str_Texto As String, Str_Logr As String Dim X As Integer Dim Separa() As String, StrSep() As String For...

Boa tarde!! Use as formulas B2=ESQUERDA(A2;LOCALIZAR(CARACT(53);SUBSTITUIR(A2;" ";CARACT(53);NÚM.CARACT(A2)-NÚM.CARACT(SUBSTITUIR...

Baixe o modelo no link abaixo, apesar de utilizarmos dois arquivos o listview é preenchido através do RecrodSet, se estiver utilizando somente um arqu...

Boa tarde Oruam Seja bem-vindo ao fórum! Baixe a planilha e veja se entendi o que você deseja: 26_09_16_Digitar mês_retornar dias_Patropi.zip Se ...

Fiquei meio confuso com sua demanda, mas creio que o topico e planilha em : http://www.planilhando.com.br/forum/viewtopic.php...

Bom dia!! Eu não entendi muito bem sua dúvida, está vaga, pois o que é recordset no seu caso? Você está usando ADO dentro do excel para excel ou ac...

Bom dia!! O que acha dessa rotina? Private Sub Worksheet_Activate() 'http://www.ozgrid.com/VBA/sheet-index.htm 'O código deve ser...

Estou supondo que quando diz "Pasta Oculta" está querendo dizer "Aba", se for, não tem como imprimir ou salvar como PDF uma aba Oc...

Cole em L19 e arraste ... =MAIOR(SE($D$9:$D19=D19;$K$9:$K19);1)-MAIOR(SE($D$9:$D19=D19;$K$9:$K19);2) . E tem que finalizar com Crtl+Shift+Enter (formu...

Consegui resolver, era somente isto pegar valor e ter o controle de posicionamento. PosicaoGrafico = "F" & lin - linRelHT ...

Prezado JSCOPA ao aplicar a fórmula em L9 não rolou. Fórmula aplicada= {=L9=MAIOR(SE($D$9:$D9=D9;$K$9:$K9);1)-MAIOR(SE($D$9:$D9=D9;$K$9:$K9);2)} Onde ...

Retire as aspas da condição False na linha : If CStr(vPDFPath) = False Then []s

. L19=MAIOR(SE($D$9:$D19=D19;$K$9:$K19);1)-MAIOR(SE($D$9:$D19=D19;$K$9:$K19);2) ... Crtl+Shift+Enter