Este fórum está sendo desativado

[RBShoT]

Boa tarde,
Estou tentando formatar um texto via VBA mas a função parece não funcionar
A1 = 10044026
A2 deveria ficar = 0010044026

Range("A2") = WorksheetFunction.Text(Range("A1"), "0000000000")
Mas o valor retornado no A2 não altera, permanece o 10044026.

[osvaldomp]

Código: Selecionar todos

Range("A2").NumberFormat = "@"
Range("A2").Value = WorksheetFunction.Text(Range("A1").Value, "0000000000")

ou

Código: Selecionar todos

Range("A2").NumberFormat = "@"
Range("A2").Value = Format(Range("A1").Value, "0000000000")

[RBShoT]

Código: Selecionar todos

Range("A2").NumberFormat = "@"
Range("A2").Value = WorksheetFunction.Text(Range("A1").Value, "0000000000")

ou

Código: Selecionar todos

Range("A2").NumberFormat = "@"
Range("A2").Value = Format(Range("A1").Value, "0000000000")

Bom dia prezado osvaldomp,
Funcionou,
no caso faltou apenas o .Value depois do Range("A1").
Se póssivel me explique, o porque da linha: Range("A2").NumberFormat = "@"

[osvaldomp]

Se póssivel me explique, o porque da linha: Range("A2").NumberFormat = "@"

O comando acima formata a célula A2 como Texto. O conteúdo que você deseja inserir (0010044026) deve ser inserido em célula formatada como Texto, se não, o Excel desconsidera os zeros iniciais.

dica - para saber mais sobre comandos VBA clique sobre o comando e aperte F1.