Este fórum está sendo desativado

[rafael84]

pessoal, tenho essa situação:

Código: Selecionar todos

ColA                                                ColB
9999999999999999999                               aaaaaa
7777777777777777777                               bbbbbb
ccccc                                             ffffff 

preciso jogar numa
colunaC
9999999999999999999 : aaaaaa
7777777777777777777: bbbbbb
ccccc: ffffff


O problema é que só está pegando o número científico, 9999+19 .... preciso que apareça toda a string na coluna, mas não estou conseguindo fazer. Alguma ideia? Preciso fazer isso em VB pra adicionar ao resto do aplicativo.

Obrigado.

[PietroFarias]

A célula da coluna A deve está formatada como TEXTO para aparecer o valor completo. Assim que você alterar o formato, continuará como cientifico, com isso deverá inserir os dados novamente para atualizar

[rafael84]

realmente, assim funciona, porém não tenho como mudar os dados numérico pra texto e depois alterar os valores, são muitos. há como fazer pelo vba ?

[PietroFarias]

Dá sim. Usa o procedimento abaixo que vai fazer essa alteração.

Código: Selecionar todos

Sub Alterar()
    For Each Rng In Selection
        Rng.FormulaR1C1 = Format(Rng, "#")
    Next
End Sub

Mas te um porém: Não sei como está na sua base mas, como no exemplo que você passou, se na célula você inseriu 9999999999999999999 o valor da célula foi alterado para 9999999999999990000 por causa da capacidade. Ok?

[rafael84]

obrigado, resolveu sim.

Se está cadastrado como científico já está errado e não tem o que fazer, pelo menos fica uma parte "normal" aparecendo, o que já me resolve.

Obrigado.