Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
guelfo

Formatação de Células e Ajuda VBA

Mensagem Recomendada

Bom dia,

Criei uma planilha que gera um arquivo .txt para a importação em um programa e estou com o seguinte problema.

Preciso que, ao copiar os valores para a planilha, este seja integrado ao "arquivo final", que é o que será exportado para o .txt,
porém, este precisa ter a formatação "00000000000.00" (14 caracteres e ponto no lugar da vírgula)

Preciso de uma forma para, ao copiar os valores, já assuma a formatação desejada OU que isso seja feito no VBA ao clicar no botão "Exportar".

A forma que consegui fazer está dando muito trabalho pelo seguinte

1- Copio os valores para uma coluna (J)
2- Transformo os valores em texto, assumindo a formatação com os zeros a esquerda (I)
3- Copio os valores para uma terceira coluna, e substituo as vírgulas por ponto. (K)

Estou anexando a planilha para o melhor entendimento e agradeço desde já. 

Layout para importação.xlsm

Compartilhar este post


Link para o post
Compartilhar em outros sites

Experimente:

Sub CaixaDeTexto1_Clique()
 Application.ScreenUpdating = False
 [L:L] = ""
 Range("L2:L" & Cells(Rows.Count, "A").End(3).Row) = _
  "=CONCATENATE(A2,B2,C2,D2,E2,F2,G2,H2,SUBSTITUTE(TEXT(J2,""00000000000,00""),"","","".""))"
 With Plan2
  .[A:A] = ""
  Range("L2:L" & Cells(Rows.Count, "L").End(3).Row).Copy
  .[A1].PasteSpecial xlPasteValues
   Application.DisplayAlerts = False
   .SaveAs "C:\MinhaPasta\MeuArquivo.txt", xlTextWindows
   Application.DisplayAlerts = True
 End With
 Application.ScreenUpdating = True
End Sub

obs.
1. considerei que os dados a serem formatados como "00000000000.00" estão na coluna J, se necessário altere a coluna nesta parte  ...TEXT(J2, ...
2. se necessário altere as partes em vermelho "C:\MinhaPasta\MeuArquivo.txt", xlTextWindows

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...