Wata Posted January 10, 2018 Share Posted January 10, 2018 Alguém sabe uma maneira rápida de acertar a formatação correta do EXCEL para o COLOGA? Explicando: Segue a imagem: 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. ... Quote Link to comment Share on other sites More sharing options...
Fernandes20 Posted January 10, 2018 Share Posted January 10, 2018 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. 1 Quote Link to comment Share on other sites More sharing options...
pedrosaavas Posted January 12, 2018 Share Posted January 12, 2018 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: 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. ... 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 2 2 Quote Link to comment Share on other sites More sharing options...
Wata Posted January 13, 2018 Author Share Posted January 13, 2018 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..."...... Se não tiver um jeito mais rápido deixa quieto. Já me ajudou muito mesmo. Valeu. Abraço. ... Quote Link to comment Share on other sites More sharing options...
pedrosaavas Posted January 16, 2018 Share Posted January 16, 2018 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..."...... Se não tiver um jeito mais rápido deixa quieto. Já me ajudou muito mesmo. Valeu. Abraço. ... 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. 2 2 Quote Link to comment Share on other sites More sharing options...
abedospassos Posted January 18, 2018 Share Posted January 18, 2018 (edited) 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 January 18, 2018 by abedospassos Quote Link to comment Share on other sites More sharing options...
abedospassos Posted January 18, 2018 Share Posted January 18, 2018 (edited) Resolvido !!! Edited January 18, 2018 by abedospassos Quote Link to comment Share on other sites More sharing options...
clelio Posted February 3, 2018 Share Posted February 3, 2018 @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 1 2 Quote Link to comment Share on other sites More sharing options...
Wata Posted February 3, 2018 Author Share Posted February 3, 2018 2 horas atrás, clelio disse: preparar/montar filtros, para qquer loteria, de forma q possam ser usados diretamente no Cologa Valeu. Aguardo...... Abraço. ... Quote Link to comment Share on other sites More sharing options...
MATRIX_1536 Posted June 2, 2018 Share Posted June 2, 2018 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 1 Quote Link to comment Share on other sites More sharing options...
sorte com estudo ss Posted July 9, 2018 Share Posted July 9, 2018 @pedrosaavas seria tu o irmão do guy Novaes o criador do cologa? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.