Notifications
Clear all

Texto-conversar-número

3 Posts
3 Usuários
0 Reactions
948 Visualizações
(@paulop)
Posts: 1
New Member
Topic starter
 

Boa tarde

Estou usando está macro, no entanto, ocorre erro, pode me ajudar?

Grato

Public Sub TextoParaNumerico()
    
    'Declaramos a Variavel como Tipo Range
    Dim rngCelula As Range

    'Definimos e setamos o endereço(Fixo) a ser convertido
    Set rngCelula = Range("[#Tudo];[Valor Dinheiro (Cédulas)]:[Valor Estorno]")
    
    'Convertemos todos os valores no endereço definido
    With rngCelula
        .NumberFormat = "General"
        .FormulaLocal = rngCelula.Value
    End With
     
End Sub
 
Postado : 03/08/2016 11:50 am
edilsonfl
(@edilsonfl)
Posts: 227
Estimable Member
 

Olá Paulop,

tente substituir ";" por ","

Quando ajuda for útil dê um clique na mãozinha, isso atribui ponto ao colaborador.

 
Postado : 03/08/2016 2:42 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Paulo

Seja bem-vindo ao fórum!

Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2016 3:38 pm