Olha Corrigi um detalhe, agora que vc falou =SE(A3>60;A3-60;SE(A3<=0;A3+60;A3)) Também corrigi =A3+60*SE(A3>60;-1;SE(A3<=0;1;0)) Já est...

Pode ser assim: =SE(A3>60;A3-60;SE(A3<0;A3+60;A3)) Ou assim: =A3+60*SE(A3>60;-1;SE(A3<0;1;0)) Ou assim: =A3-(TETO.PRECISO(A3/60;1)-1)*60...

Meio difícil dizer, mas tente assim: 'macro para deletar as linhas que contiverem "..." application.screenupdating = false For linha = 1000...

ai meu "ouvido"... primeira linha de onde? Dá um exemplo ai, fih

AjHottz, A planilha que vc mandou não tem nenhum dado de exemplo, eu até dei uma olhada no código, mas sem os valores não vi com detalhes o que pode ...

ok Alexandre, não é 2013 não ,foi feito no 97 pois tem no minimo 10 anos que a usamos , e essa planilha usamos aqui na empresa , foi desenvolvida não ...

Se esta proteção foi feita no Excel 2013, já era, esse código não vai desbloquear mesmo. Aliás, vc não deveria ficar quebrando senhas. O correto é fa...

Eu não entendi o que vc quer :S

bem, olhei a planilha, mas não sei o que calcular...

use assim: Sub Copier_Coler_GT() Application.ScreenUpdating = False Dim ws As Worksheet Dim UL(1 To 2) As Long Set ws = Sheets("Tab_Total&qu...

ve se ajuda: Sub Copier_Coler_GT() Application.ScreenUpdating = False Dim ws As Worksheet Dim UL(1 To 2) As Long Set ws = Sheets("Tab_Total...

Isso acontece porque vc está selecionando somente até o 5. Se vc selecionar até 5 linhas abaixo do 5, vai dar certo. Ou seja, em vez de selecionar a...

Falei que ia comentar todas as repostas! Por favor pessoal, não se ofendam, eu estou dando dicas pra melhorar o desempenho geral da nação! chance de...

Creio que era isso que vc queria: Sub distribuir_GT() Application.ScreenUpdating = False Dim i As Long Dim j As Long Dim lin As...