Como formatar número numa célula ativa?

[Gleyson 0]

Olá, programadores em Excel VBA. Minha dúvida é como formatar uma célula ativa, sem que seja necessário escolher um período inteiro. A fórmula abaixo mostra isso, mas eu não quero um período inteiro fixo [A1:A10]. Eu preciso apenas que esse comando seja feito somente na célula ativa, independente onde a seleção esteja.

Esse é o comando que preciso mudar:

For Each cell In [A1:A10]
    If cell > "" Then
    numero = Str(cell.Value)
    cell.Activate
    ActiveCell.FormulaR1C1 = numero
    Else
    End If
    Next

 

E aí? Tem como tirar a seleção [A1:A10] e trocar por algo do tipo [Selection]... etc. Por favor, me ajudem.

[Afonso Mira 1]

Olá @Gleyson tudo bem?

Vê se é isto que pretendes.

 

If ActiveCell.Value <> "" Then
    numero = Str(ActiveCell.Value)
    ActiveCell.Activate
    ActiveCell.FormulaR1C1 = numero
End If

[Gleyson 0]

Meu caro amigo Afonso Mira, agradeço muito a sua informação. Resolveu meu problema e de forma rápida e eficiente. Parabens por sua colaboração neste grupo e a todos que precisam de apoio nas horas mais difícieis com o Excel. Meu muito obrigado.

[Afonso Mira 1]

É um prazer ajudar.

Não se esqueça de clicar em obrigado, como forma de agradecimento.

Edited January 21 by Afonso Mira