Sign in to follow this  
Wata

[AJUDA] Formatação rápida do EXCEL para o COLOGA

Recommended Posts

Alguém sabe uma maneira rápida de acertar a formatação correta do EXCEL para o COLOGA?

Explicando:

Segue a imagem:

image.thumb.png.9f88888ec7088002542c2ded6b37a295.png 

 

Em amarelo são linhas com quantidades diferentes de números, que quero formatar como está na coluna HI.

Este formato da coluna HI é o formato que o COLOGA aceita como filtros.

Alguém sabe se há uma "forma inteligente" de fazer essa formatação?

 

Obrigado.

8-)

... 

 

 

Share this post


Link to post
Share on other sites

Não entendi bem o que pretende, se for a diferença de múltiplas colunas para apenas uma, vc pode fazer a concatenação, o que provavelmente dará um pouco de trabalho, outro modo seria copiar os dados em .txt e substituir o espaço entre os números por uma virgula e depois colar novamente no Excel,  ai seria só fazer o procedimento contrário troncando virgulas por espaços. 

  • Like 1

Share this post


Link to post
Share on other sites
Em 10/01/2018 at 05:04, Wata disse:

Alguém sabe uma maneira rápida de acertar a formatação correta do EXCEL para o COLOGA?

Explicando:

Segue a imagem:

image.thumb.png.9f88888ec7088002542c2ded6b37a295.png 

 

Em amarelo são linhas com quantidades diferentes de números, que quero formatar como está na coluna HI.

Este formato da coluna HI é o formato que o COLOGA aceita como filtros.

Alguém sabe se há uma "forma inteligente" de fazer essa formatação?

 

Obrigado.

8-)

... 

 

 

 

 Olá, @Wata

 

Olha se essa função te ajuda.

Option Explicit
Public Function UConcatenar(ByVal Rng As Range) As String
Application.Volatile
Dim Cel As Range
    If Rng Is Nothing Then
        UConcatenar = ""
   Else
        For Each Cel In Rng
            If Cel.Value <> "" Then
                If UConcatenar = "" Then
                   UConcatenar = CStr(Format(Cel.Value, "00"))
                Else
                    UConcatenar = UConcatenar + " " + CStr(Format(Cel.Value, "00"))
               End If
           End If
        Next Cel
    End If
End Function

http://www.mediafire.com/file/ub7qcqg7kdsesb2/FormataçãoCologa.xlsm

 

  • Like 1
  • Thanks 1

Share this post


Link to post
Share on other sites
7 horas atrás, pedrosaavas disse:

 

 Olá, @Wata

 

Olha se essa função te ajuda.

Option Explicit
Public Function UConcatenar(ByVal Rng As Range) As String
Application.Volatile
Dim Cel As Range
    If Rng Is Nothing Then
        UConcatenar = ""
   Else
        For Each Cel In Rng
            If Cel.Value <> "" Then
                If UConcatenar = "" Then
                   UConcatenar = CStr(Format(Cel.Value, "00"))
                Else
                    UConcatenar = UConcatenar + " " + CStr(Format(Cel.Value, "00"))
               End If
           End If
        Next Cel
    End If
End Function

http://www.mediafire.com/file/ub7qcqg7kdsesb2/FormataçãoCologa.xlsm

 

 

Valeu @pedrosaavas!!!

Excelente!

Tem algum "jeito fácil" de tornar essa função "universal", quero dizer para funcionar em qualquer planilha?

Tô pesquisando aqui... tem algo a ver com "Suplemento...xlam..."...:wacko:...

Se não tiver um jeito mais rápido deixa quieto.

Já me ajudou muito mesmo.

Valeu.

Abraço.

8-)

...

 

Share this post


Link to post
Share on other sites
Em 13/01/2018 at 01:20, Wata disse:

 

Valeu @pedrosaavas!!!

Excelente!

Tem algum "jeito fácil" de tornar essa função "universal", quero dizer para funcionar em qualquer planilha?

Tô pesquisando aqui... tem algo a ver com "Suplemento...xlam..."...:wacko:...

Se não tiver um jeito mais rápido deixa quieto.

Já me ajudou muito mesmo.

Valeu.

Abraço.

8-)

...

 

 

Olá, @Wata

  

Tem sim. É só salvar esse arquivo nessa extensão, ".xlam" e depois vai em ( Arquivo >> Opções >>  Suplementos >>  {Gerenciar: Suplemetos do Excel } Ir ).

daí estará disponível para todas as planilhas.

 

  • Like 1
  • Thanks 1

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.