Jump to content

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


Wata

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-)

... 

 

 

Link to comment
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
Link to comment
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 2
  • Thanks 2
Link to comment
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-)

...

 

Link to comment
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 2
  • Thanks 2
Link to comment
Share on other sites

  • 3 weeks later...

@Wata

tudo bom?

 

vi q o @pedrosaavas já respondeu ao seu pedido com uma ótima planilha - gostei!
 

mas como eu já tinha iniciado a construção de um algoritmo não poderia deixar de apresentar
minha solução, até porque quanto mais opções melhor, não? além do mais, fica aí mais uma linha 
de código para quem gosta de vba.


a plan é algo bem simples:
   (tomei como exemplo as linhas q vc postou, - e considerei q a qtde máxima de colunas é de 25)
    -   é só marcar a primeira célula da sequência e depois ir em "Executar"... (ou, se preferir,
        pode-se excluir o botão e executar direto pelos controles). 

 

Segue o link:
http://www.mediafire.com/file/cc5ot1iuj5w2ikt/Formatar+Filtro+Cologa.xlsm 

 

-------------------------------------------------------------------------------------------------

ocorreu q seu pedido me serviu tbm como sugestão: projetei uma planilha para preparar/montar 
filtros, para qquer loteria, de forma q possam ser usados diretamente no Cologa (como explicado
em seu vídeo - depois entro em mais detalhes)... a plan já está quase pronta e estarei postando 
nesses próximos dias... 


[off topic]:
depois comento no seu tópico "Lucro se 15 em 22"...

 

               saudações,


                                      cvs Kinski

  • Like 1
  • Thanks 2
Link to comment
Share on other sites

  • 3 months later...

nossaaa!

 

que malukisse !!!

 

não precisa de makro use a formula:

 

ponha as dzs de B até P e na celula de result ponha a formula:

 

=TEXTO(B2;"00")&" "&TEXTO(C2;"00")&" "&TEXTO(D2;"00")&" "&TEXTO(E2;"00")&" "&TEXTO(F2;"00")&" "&TEXTO(G2;"00")&" "&TEXTO(H2;"00")&" "&TEXTO(I2;"00")&" "&TEXTO(J2;"00")&" "&TEXTO(K2;"00")&" "&TEXTO(L2;"00")&" "&TEXTO(M2;"00")&" "&TEXTO(N2;"00")&" "&TEXTO(O2;"00")&" "&TEXTO(P2;"00")

 

at.

 

Matrix

  • Like 1
Link to comment
Share on other sites

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...