Bom dia, veja se isso atende:

Colega JNEXCEL, verifique se é isso o que deseja:

Arquivo Corrompido... Por favor, tente postar novamente. Mas de antemão posso dizer o seguinte: Você criou uma definição para a Msgbox. Use essa me...

Segue: Sub conciliar() On Error Resume Next Dim ul As Long inicio: ul = Planilha1.Range("A" & Rows.Count).End(xlUp)...

Se realmente seu código gera algum erro, tente: Sub seu_codigo() On Error GoTo Trataerro Seu código aqui... Exit sub Trataerro: M...

Cara tentei alguma forma de incluir uma sub dentro de uma function mas sem sucesso.. A única forma que encontrei foi incluindo esse código na sua Pla...

Estou postando apenas os códigos pois o tamanho do arquivo ultrapassou o limite: Apague todo código que houver no Objeto Planilha4(fev) e insira esse...

Quando for referenciar a célula na sua fórmula, ao invés de fazer assim: Ex. A1 faça assim: (VALOR(EXT.TEXTO(A1;2;NÚM.CARACT(A1))) Ex. =...

Seria melhor se pudéssemos ver a estrutura dessa sheet2 para montar algum código ou formatação..

Segue: =CONT.SES(B2:B128; "interno (possui vínculo com a UFRGS)";A2:A128;">"&DATA(2017;10;1);A2:A128;&...

Se o valor estiver em A1: ="Declaro que possuo " & TEXTO(A1;"[h]:mm:ss") & " horas disponíveis&...

Em que sentido seria esse "mais fácil"?

ericksant boa tarde. Baseado na linha de raciocínio que eu utilizei, não vejo como otimizar. Se você reparar , verá que faço um laço de repetição de...

Copia só valores: Sub macro_copiar() Sheets("Planilha1").Range("A:M").Value = Sheets("plan1").Rang...

Segue a correção: Sub conciliar() On Error Resume Next Dim ul As Long inicio: ul = Planilha1.Range("A" & Rows.Count)...