Jump to content

sorte com estudo ss

Super VIP
  • Posts

    1,805
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by sorte com estudo ss

  1. @Jimmy oque a gente podia fazer é criar um evento com dia marcado e fazer a live nesse dia ai todos vão saber e assim a audiência vai ser bem mais e o destaque da live lá no youtube também assim fica bem mais fácil de publico novo entra na live não apenas o pessoa já presente no fórum então podemos montar uma pauta de um assunto a ser debatido nessa live marcar o dia e assim fica mais organizado.
  2. @Jimmy estranho pois eu tinha pego ele na área onde diz compartilha a live
  3. eu gosto dessa configuração desse programa aqui são 50 dezenas jogadas então podemos dividir essas 50 entre esses 4 quadrantes
  4. o grude eu fazia com farinha de trigo e água kkkkk
  5. só ganha acertando os 15 em uma cartela apesar de o volante ter dois locais para marca dezenas só são dois distintos cada um valeu por um jogo só ambos não tem ligação acho que é essa sua duvida não e?
  6. Sub Matriz() 'Objetivo: Criar referências às matrizes automaticamente. 'Autor: U.L.M.S (@PedroSaavas) 'Email: pedrosaavas@gmail.com 'Mantenha a atribuição ao autor como forma de respeito à propriedade intelectual. 'Favor não usar essa macro para obter vantagem financeira. Dim ws As Worksheet Dim Mtz As Range, Mcel As Range, Rng As Range, cel As Range, Fmt As Range Dim Titulo As String On Error Resume Next Application.DisplayAlerts = False Set ws = ActiveSheet Titulo = "Formatação de Matrizes - By @PedroSaavas" 'Seleciona os números da matriz Set Mtz = ws.Application.InputBox("Selecione os Números da Matriz", Titulo, Type:=8) If Mtz.Cells.Count < 1 Then Exit Sub 'Seleciona as linhas da Matriz Set Rng = ws.Application.InputBox("Selecione as Linhas da Matriz", Titulo, Type:=8) If Mtz.Cells.Count < 1 Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'Aplica referências nas células das linhas da matriz For Each cel In Rng For Each Mcel In Mtz If Not IsEmpty(cel) And cel = Mcel Then cel = "=" & Mcel.Address End If Next Mcel Next cel 'Aplica formatação nas linhas For Each Fmt In Rng Fmt.NumberFormat = "00" Fmt.Errors(xlInconsistentFormula).Ignore = True Next Fmt MsgBox "Processo Finalizado. " & Rng.Rows.Count & " Linhas Formatadas." & vbNewLine & vbNewLine & "Substitua os NÚMEROS DA MATRIZ por dezenas de sua escolha.", vbInformation, Titulo Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic On Error GoTo 0 Application.DisplayAlerts = True ActiveCell.Select End Sub e vê o vídeo do japa ai
  7. o interessante dessa nova loteria é que ela esta começando em um tempo tecnológico muito avançado pois quando começou as demais loterias ainda não tinha toda essa tecnologia de hoje em dia hoje temos um avanço encima de programação e computadores que ajuda bastante e começar do inicio com isso é muito bom!
  8. @Gustavo F. Kerntopf nao ainda é só um projeto já até mudei vou implantar essa nova loteria a um sistema meu igual ao que eu fiz pra loto-facil
  9. tenho uma ideia um pouco diferente mas bacana também o 11 seria um coringa é provável que se analisar os padrões deve ter padrões com 11 e sem ele em 15 concursos tivemos apenas 4 vezes a saída dele. outra curiosidade já saiu algumas vezes o resultado apenas dentro de 4 quadrantes somando a 11 eles isso daria uma chance em 116.280 sendo que acertar 7 dezenas em 21 é preciso apenas isso uma redução fantástica
  10. sim mas não coloquei nas dezenas referente pois já temos o 11 como referencia repetiria dai
  11. pessoal tenho esse esquema aqui bem interessante vou fazer um vídeo e postar a planilha lá na área de downloads ok.
  12. @sy infinito estuda mais então e de forma certa estudando o total da 50.063.860 combinações ai tu vai ver que isso pode acontecer ate mais fácil que tu imagina!
  13. @Rodolfo822 joga essas 28 dezenas no meio das 50.063.860 que tu vai saber o porque
×
×
  • Create New...