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 2
  • Thanks 2

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 2
  • Thanks 1

Share this post


Link to post
Share on other sites

Baixei a planilha do loto Minas mais não abre no meu Excel office 2016. O que devo fazer agora para que posso abri-lo?

 

Edited by abedospassos

Share this post


Link to post
Share on other sites

@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

Share this post


Link to post
Share on other sites
2 horas atrás, clelio disse:

preparar/montar 
filtros, para qquer loteria, de forma q possam ser usados diretamente no Cologa

 

Valeu.

Aguardo...:mrgreen:...

 

Abraço.

8-)

...

Share this post


Link to post
Share on other sites

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

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

  • Recently Browsing   0 members

    No registered users viewing this page.