Boa noite!!

Conforme a outra postagem, porque ainda não tentou resolver por meio do evento Before Save?

Att

Ok. Tentei de uma forma diferente e funcionou. Eu estava cometendo um erro para implementar a solução.

Mas agora está 99,99% Ok.

Falta uns pequenos detalhes. Primeiro étirar aquele flash na execução da macro e depois, quando a macro encerrar, tirar a seleção do range da tela.

Obrigado!

Boa tarde!!

Se for o que eu estou pensando, tente assim...

Sub Format()
application.ScreenUpdating = 0
    Range("A5:L35").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Interior.ColorIndex = xlNone
    application.ScreenUpdating = 1
End Sub

Att

Oi

O range continua selecionado ao final...

Boa noite!!

E o que você quer? ...será que tu pode explicar?

Seleciona a célula A1

Range("A1").Select

Att

Seguinte,

A formatação é aplicada no range. Logo após a formatação, na tela esse range fica destacado das demais células. Ou seja, não é para ficar destacado. A idéia é que o usuário nem perceba que a macro foi executada. Selecionar uma célula ao final é uma dica. Mas apenas apagar a seleção também é possível...?

Boa noite!!

Eu espero que seja isso..

Sub Format()
application.ScreenUpdating = 0
    range("A5:L35").Select
    With selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    selection.Interior.ColorIndex = xlNone
    selection.clearcontents 'Apaga o intervalo selecionado
    range("A36").Select 'Seleciona uam celula no final
    application.ScreenUpdating = 1
End Sub

Att

Não !!!
Assim não há razão da macro existir, pois após formatar o intervalo, a macro apaga todo o conteúdo formatado.

Eu me refiro ao oposto do comando:

range("A5:L35").Select

Para aplicar a formatação, o ponto inicial é selecionar o intervalo que vai ser formatado. O que ocorre é que, após a formatação esse intervalo está permanecendo selecionado.

O que imagino é um comando o OPOSTO, tipo

range("A5:L35").UNSelect

Certo?

Boa noite!!

Eu sinto muito, eu não posso te ajudar, aguarde os pessoal que entendeu sua dúvida!!!!!!!!!!

Att

Obrigado Alexandrevba,

]á me ajudou.

Antes de desistir, peço que pense o seguinte:

Um usuário deseja que o conteúdo da célula A10 (qualquer conteúdo) tenha a formatação NEGRITO.
Então o usuário SELECIONA a célula A10 e aplica o NEGRITO.
Depois de algum tempo o usuário resolve que não quer mais o negrito.
Então ele seleciona novamente a célula e retira o negrito.

Na macro, para aplicar a formatação, primeiro é elecionado o range. Agora imagine que possamos parar a macro nesse momento !. O que veríamos na tela ?
Veríamos um intervalo de células com uma broda intermitente !
Se dermos continuidade amacro, ela vai fazer as alterações de formatação.
Depois de formatar vamos parar novamente a macro. O que veríamos?
A mesma situação anterior. Um intervalo de células com uma borda intermitente.

É isso o X da questão. Para selecionar o range usa-se

range("A5:L35").Select

E para tirar a borda intermitente ?. O que se usa ?

Bom dia!!

Neste caso, sua macro possui a linha

Range("A5:L35").Select

Ao abrir qualquer arquivo , independente da guia, o curso tem que está em algum lugar (em uma célula (geramente), em uma coluna ou linha, na guia inteira).

Então essa barda intermitente, foi feita por sua 1° linha de código, aponte o cursor para outro lugar (eu já postei isso, anteriormente)!!!

Agora, se você está tentando dizer ou quer outra coisa, infelizmente eu não faço menção do que é!

Aguardo o pessoal responder, talvez alguém tem uma dica que resolva.

Att

Bom dia!

Não tenho muitas intimidades com VBA, então uma pergunta minha a respeito vai parecer bobagem, mas se a gente não perguntar vamos ficar eternamente na ignorância.

Vamos lá! Na manipulação ou na formatação de dados em uma planilha, é essencial saber o que será manipulado ou formatado. Pelo que sei, manipula-se uma célula, uma linha, uma coluna, um conjunto de células ou um conjunto de colunas. Então, o comando para se fazer tudo isso inicia-se com o comando SELECT ou SELECTION.

Na linha a seguir é selecionado o intervalo de linhas e colunas:

Range("A2:L35").Select

Uma área correspondente ao intervalo fica selecionado podendo ser visualizada uma borda, em alguns casos, intermitente.

Minha dúvida é COMO TIRAR A SELEÇÃO?. Não desejo fazer nenhuma manipulação dos dados da área selecionada. Quero apenas tirar o foco, retirar a seleção deste intervalo.

Obrigado.

Bom dia!

Vou aceitar sua solução, como eu disse, já me ajudou bastante e o resto da dúvida é apenas uma questão de estética! Atendeu a minha dúvida. Mas gostaria de fazer algumas observações, apenas para contribuir para novas soluções.

A solução atende de forma gerenalizada a minha dúvida, mas não especificamente. O range da minha planilha é "A3:BU300".
A rotina de salvar pode acontecer a qualquer momento, não apenas no fechamento da planilha. Logo, digamos que o cursor esteja em qualquer célula, digamos que lá nas ultimas colunas,
adotando a solução apresentada, de selecionar uma célula para retirar a seleção, forçará o usuário a se deslocar até a posição anterior ao salvamento. Por isso a necessidade de tirar a seleção sem ter que selecionar uma célula, como está na solução. Então o mais prático seria retirar a seleção através de um comando oposto, deixando assim o cursor onde ele estava quando a macro foi acionada.

Ou...antes de executar a macro, gravar a posição do cursor e posicionar o cursor nessa posição.

Seria uma possibilidade, certo ?

Já que tratava-se do mesmo assunto, fundi os 2 tópicos, pois não é permitido criar mais de um tópico para a mesma dúvida.

[]s

Patropi - Moderador