Jump to content
Fórum Script Brasil

Durutti_Black

Membros
  • Content Count

    14
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Durutti_Black

  1. 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...
  2. Durutti_Black

    Feliz Natal!

    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
  3. Durutti_Black

    Criando um Loop

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

    Criando um Loop

    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
  5. 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.
  6. 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
  7. 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.
  8. MetallicA_cps Não tem de que agradecer. Ao seu dispor Um abraço.
  9. 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(P
  10. 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
  11. 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
  12. 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
  13. 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
  14. 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 é [email protected] Use-o
×
×
  • Create New...