Pessoal, bom dia!
Eu tenho um formulário de cadastro que armazena valores nas células da planilha. O problema é que o mesmo estar armazenando como texto.
Procurei algumas macros pela internet, mas nenhuma me atendeu.
A mais próxima do ideal foi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Declaramos a Variavel como Tipo Range
Dim rngCelula As Range
'Definimos e setamos o endereço(Fixo) a ser convertido
Set rngCelula = Range("h5:j50")
'Convertemos todos os valores no endereço definido
With rngCelula
.NumberFormat = "General"
.FormulaLocal = rngCelula.Value
End With
End Sub
Mas preciso que o formato das células seja contábil e não estou conseguindo mudar isto.
Se alguém puder me dar um Help, serei grato!
