Durutti_Black

Olá Mendrot, V. quer dizer que antes, com anteriores versões, conseguia enviar e agora não consegue? Eu não tenho nenhuma versão de 2007 e por isso pergunto...

Olá JoséA, Obrigado pelos seus votos. Igualmente para si e para todos os que aqui vão contribuindo. Boas Festas para todos António Vaz

mazocco, Não tem de quê. Disponha à vontade Um abraço.

Olá mazocco, Aparentemente a sua macro é muito confusa - deduzi que quer fazer o sort das 4 colunas... Explique-se um pouco mais sobre o que pretende

Caro MinerO, Claro, a tarefa é fácil mas só que o problema é que aqui aonde vivo, já são 1:30 da manhã - a caminho da cama passei pelo fórum só para ver se V. queria algo mais - e a minha cabeça a esta hora já não dá para muito. Espere por amanhã... Um abraço.

Akli Com esse código V. ordenou que a Sheet activa se tornasse invisível. Se V. não fez mais nada, as restantes sheets deveriam estar visíveis. No minímo, uma das sheets do workbook tem de obrigatoriamente ficar visível - nenhum código pode fechar todas as sheets. Experimente através do Format/Sheet/Unhide (desculpe usar o inglês mas não tenho a certeza de como está na versão portuguesa) ou através deste código Sub Exp() Dim ws As Worksheet For Each ws In Worksheets ws.Visible = True Next ws End Sub

adriano944, Julgo que o que V. quer é isto: Application.DisplayAlerts = False use na linha antes da ordem de apagar. Depois, na linha antes do fim da sua macro ("End Sub") volte a activar a janela de alerta colocando isto: Application.DisplayAlerts = True Tenha cuidado ao usar o código porque V. está a dar uma ordem que depois não pode voltar atrás.

MetallicA_cps Não tem de que agradecer. Ao seu dispor Um abraço.

MetallicA_cps Experimente com este novo Num Sub Num() Dim ProcLinha As Integer On Error GoTo Err_Execute 'A linha seguinte cria na E3 a formula =Consolidado!K1 Worksheets("Login_logout1").Range("E3").FormulaR1C1 = "=Consolidado!R[-2]C[6]" ProcLinha = 4 While Len(Range("A" & CStr(ProcLinha)).Value) > 0 'As linhas seguintes inserem a sua formula para criar os 1s e os 3s If Range("D" & CStr(ProcLinha)).Value = Range("C" & CStr(ProcLinha)).Value Or Range("D" & CStr(ProcLinha)).Value <= Range("E3").Value Then Range("E" & CStr(ProcLinha)).Value = "1" Else Range("E" & CStr(ProcLinha)).Value = "3" End If ProcLinha = ProcLinha + 1 Wend Exit Sub Err_Execute: MsgBox "Ocorreu um erro." End Sub Peço-lhe desculpa mas o erro foi meu... entre as minhas obrigações laborais e a ajuda que lhe tento prestar, às vezes presto menos atenção aqui... Desta vez, programei para ser: se o valor que está na célula da coluna D for igual ao que está na coluna C - OU - Se o valor que está na célula da coluna D for maior ou igual ao que está na coluna E, escreve 1, senão escreve 3 ---- ou como V. pediu: =SE(OU(D6<=Consolidado!K$1;D6=F6);"1";"3") Penso que é isto que deseja... Disponha sempre que precisar de ajuda agora que tem o meu endereço

Olá ##'''DAN SVENSSON'''## Se V. percebe inglês comece por aqui http://www.angelfire.com/biz7/julian_s/jul...ians_macros.htm http://www.excel-vba.com/vba-prog-1-1-editor.htm http://members.tripod.com/acha_ean/vb_12_lession/index.htm ou com imagem http://www.youtube.com/watch?v=zBDguf2cSzQ...feature=related

Olá MetallicA_cps, Desculpe-me mas como lhe disse aquele endereço é o do meu local de trabalho, e hoje aqui aonde vivo (+11 horas), já é sábado. Se pode esperar até segunda-feira eu verifico o que me enviou senão utilize este fórum. Abraços e desculpe-me mais uma vez

mrfg2000 Embora não funcione a 100% eu costumo usar este programa Sub test() On Error Resume Next If ActiveSheet.Unprotect Then Exit Sub Else 'coloque aqui o que pretende End If End Sub Se a sheet estiver protegida use sempre o botão ok para inserir a password em branco

Mais uma tentativa… Antes não considerei a situação de >= Consolidado!K1, porque V. não tinha nada nessa célula. Assim alterei o programa “Num” de modo a ter essa situação Vá ao programa “Num” e apague-o e insira antes este Sub Num() Dim ProcLinha As Integer On Error GoTo Err_Execute 'A linha seguinte cria na E3 a formula =Consolidado!K1 Worksheets("Login_logout1").Range("E3").FormulaR1C1 = "=Consolidado!R[-2]C[6]" ProcLinha = 4 While Len(Range("A" & CStr(ProcLinha)).Value) > 0 'As linhas seguintes inserem a sua formula para criar os 1s e os 3s If Range("D" & CStr(ProcLinha)).Value > Range("C" & CStr(ProcLinha)).Value Or Range("D" & CStr(ProcLinha)).Value > Range("E3").Value Then Range("E" & CStr(ProcLinha)).Value = "3" Else Range("E" & CStr(ProcLinha)).Value = "1" End If ProcLinha = ProcLinha + 1 Wend Exit Sub Err_Execute: MsgBox "Ocorreu um erro." End Sub Se pretender que na planilha “Login_logout1” fique lá se é 1 ou 3, apague o programa “Final” e substitua-o por este Sub Final() 'Worksheets("Login_logout1").Range("E:E").Delete 'Inutilizei esta ordem que apagava os 1s e 3s Worksheets("Login_logout2").Range("E:E").Delete Worksheets("Login_logout2").Range("A1:D65536").Sort Key1:=Worksheets("Login_logout2").Range("D1"), Order1:=xlDescending, Header:=xlGuess End Sub Espero ter sido útil... Diga qualquer coisa

MetallicA_cps, Sou o zav60... Estou a ter dificuldades em utilizar este fórum. Já mudei de login mas continuo a não conseguir mandar-lhe algumas emendas que entretanto fiz. Amanhã tentarei enviá-las a partir do meu escritório... Se lhe der mais geito usar o e.mail, o meu endereço é zavzav@dsf.gov.mo. Use-o