Este fórum está sendo desativado

[danilov]

Bom dia, pessoal!
Não sei se esse assunto é realmente em Macro, porém vamos lá:

Trabalho em uma empresa em que o sistema ERP deixa eu importar tabelas de preço que estejam em excel.
Só que para importar, o sistema lê algumas informações para saber quais produtos alterar o preço. Uma dessas leituras é uma coluna do Código de Fábrica, só que na tabela que o fornecedor manda o código de fábrica está assim, por exemplo:

19210

Só que no sistema, para eu conseguir alterar, tem 13 números zeros antes desse número, dessa forma:

000000000000019210

Ou seja, o sistema não importa a tabela de preço, pois no sistema está de uma forma e no excel de outra.
Como eu faço para colocar esses 13 números zeros em uma determinada coluna tudo de uma vez? O problema maior é que tem que ser em formato de texto para o sistema reconhecer, pois eu sei que tem a opção no FORMATAR CÉLULAS, no campo PERSONALIZADO, eu consigo colocar, só que o excel não identifica que tem vários zeros lá, só mostra na célula, e isso não me resolve, pois na hora que eu formato para Texto, o excel remove os zeros automaticamente.

Alguém pode me ajudar? Estou anexando a tabela que eu preciso colocar os 13 zeros. É a coluna "C", e tem que ser os zeros antes do números que já estão lá, e em formato de texto.

Desde já agradeço.

[osvaldomp]

opção1 - em uma coluna auxiliar cole uma cópia da fórmula abaixo e estenda até a última linha com dados na coluna C, em seguida copie a seleção / selecione C1 / Colar Valores (ou cole na própria coluna auxiliar)

Código: Selecionar todos

="0000000000000"&C1

opção2 - via macro

Código: Selecionar todos

Sub AcrescentaZeros()
 Dim c As Range
  Columns(3).NumberFormat = "@"
  For Each c In Range("C1:C" & Cells(Rows.Count, 3).End(3)(2).Row)
   c.Value = "0000000000000" & c.Value
  Next c
End Sub

[danilov]

Muito obrigado meu amigo, deu certo. Me poupou um tempão, senão iria ter que fazer manual.