Antonio Lanis

Tento usar a macro abaixo que sempre que acionado um botão fechar deveria fazer uma cópia de backup, salvar, fechar a pasta ativa etc., conforme está na macro, porém, sempre que este botão é acionado o excel para de funcionar. Qual o problema? Esta nesta macro? Alguém pode de me ajudar?Public Sub CriarBackup()On Error GoTo Erro'Altere a constante abaixo para que ela aponte'para o seu arquivo de backupConst SILMARA_BACKUP As String = "D:\Mundo_Imaginação\Sistemas\BackUPS\SILMARA_BACKUP.xlsm"If (Dir(SILMARA_BACKUP) <> "") ThenKill SILMARA_BACKUPEnd IfThisWorkbook.SaveCopyAs Filename:=SILMARA_BACKUPActiveWorkbook.SaveActiveWorkbook.CloseApplication.DisplayFullScreen = FalseApplication.QuitFim:Exit SubErro:MsgBox "Erro ao criar backup:" & vbCrLf & _Err.Description, vbOKOnly + vbCritical, "Atenção"Err.ClearResume FimEnd Sub Notei na depuração que retirando "ActiveWorkbook.Close" não travou. Pra mim o ideal é que eu fechasse a pasta ativa sem fechar o excel, que pode estar com outra pasta aberta simultaneamente e que eu ainda desejaria continuar usando.Alguma ideia?

Adaptei uma planilha através da qual pretendo registrar gastos com cartão de crédito, porém ela esta datando erradamente os vencimentos. Preciso de uma ajuda para resolver esta questão. Alguém poderia me ajudar? Controle de Cartões datando errado.rar

Testei mas não foi o que eu esperava. Consegui resolver adaptando uma rotina que achei na net. Muito grato pela dica assim mesmo.

Uso uma macro para impressão como esta abaixo, mas gostaria que ela funcionasse de forma a melhor atender minha necessidade. Pra ser ideal, ela precisaria ser salva em PDF, e uma pasta específica; por ex: D:/Contratos e como nome do arquivo fosse a macro utilizasse o conteúdo de 3 células (G6, Q4 e AJ4). Alguém tem uma solução? Abaixo está a macro que utilizo: Sub Print_Contrato() ' ' Imprime o Contrato ' If Range("q4") = "" Or Range("ad4") = "" Then MsgBox "Atenção! Preencha os campos DATA e HORÁRIO. São campos obrigatórios!", vbCritical, ".: Campos em branco" Range("d8").Select Exit Sub Else Range("A1:AI54").Select Selection.PrintOut From:=1, To:=1, Copies:=2 Range("AD3").Select 'Seleciona célula Selection.Copy Range("AJ4").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End If End Sub

Super obrigado, amigo! Testei várias vezes e funcionou como desejo.

Estou com dificuldade em fazer com que a macro criada para dar baixa execute o comando para todos os casos em que a palavra "PAGO" é encontrada. A macro atual executa o comando um por vez, mas tem algo errado. Ideal é que faça com um único clique. Poderiam me ajudar?Dar baixa com um clique.rar

Vou rever com o código sugerido. Por ora, grato.

Não funcionou como desejo Wendell. A ideia é que ao selecionar qualquer das células de uma linha, a linha seja destacado com uma cor até a coluna F.

A intenção é apenas destacar a linha para facilitar a visualização quando a planilha contém muitos dados. e apenas em um determinado intervalo de colunas.

Alguma sugestão para que eu tenha a função deste código sem que ocorra a falha?

Sim. Envio. Fiz algumas tentativas de resolver, pode encontrar macros alteradas depois do problema surgir. Planilha com colar desabilitado.rar

Eu não tenho certeza se este é o tópico adequado para a minha questão, mas como percebo que acontece quando habilito as macros, então trago a vocês pra ver se me dão uma solução. Quando estou com a pasta de trabalho sem macros habilitadas, as opções colar e colar especial aparecem, mas quando habilito as macros e executo uma delas cuja função é exatamente copiar conteúdo de algumas células e colá-las em outra planilha, a referida macro para. Veja abaixo em destaque o ponto em que para. As planilhas não estão protegidas e as células estão desbloqueadas Penso que alguma macro pode estar interferindo uma vez que isso acontece quando as macros estão habilitadas. Alguém teria como me ajudar?