Planilha Loto Facil (Projeto) (Macros) "excel 2010"

January 31, 2015

https://www.sendspace.com/file/des0gm, Baixe com SuperLinksBR

Sei que o pessoal já deve ter uma planilha que atualiza online

Mas essa vai ser a base do meu projeto, onde vou adicionar varias ideias

ela atualiza de um site app da caixa, então assim que tiver o resultado no site da caixa pode atualizar, "não sei se é estável"

vai atualizar em ordem de sorteio, e mostrar o premio estimado e a data do próximo sorteio.

como não sei colocar arquivos aqui coloquei no sendspace

https://www.sendspace.com/file/3tad1h

caso alguém saiba como melhorar as macros

a planilha não está protegida nem nada

aos pouco vou adicionar as funcionalidades

já que é para estudo do que o pessoal usa não vão ser coisas que já tenho na minha.

próximo passo (em vba), na mesma aba (isso pq são números fixos)

Pares e ímpares, Faltantes

Edited February 13, 2015 by Zangado

January 31, 2015

agora com pares ímpares e faltantes
tudo por macro e função
podendo ser aproveitados em outras planilhas
ainda tenho que mexer na macro que atualiza os resultados pq está muito lenta

https://www.sendspace.com/file/3lm3qa

agora vai ser :

atrasos dos numeros ausentes

repetições dos numeros sorteados

vou continuar na mesma Aba e com macros

Se alguem tiver uma ideia para o layout da planilha é só falar

Edited January 31, 2015 by Zangado

January 31, 2015

só para avisar,

essa planilha é facilmente adaptável para outras loterias, escolhi lotofacil pq parece que é oq o pessoal mais joga depois da megasena.

as ferramentas que eu estou querendo incluir pode ser qualquer coisa, mas eu tenho que entender como é que funciona antes

tipo as matrizes,

não entendi muito bem como o pessoal gera as matrizes, então nem sei como colocar um gerador de matrizes na planilha

estou pensando em colocar varios tipos filtros, e um gerador de palpites que vai pegar desses numeros.

mas não entendo os sistemas que são usados e os mais viaveis

para falar a verdade nem sei se a planilha está prestando pq ninguem falou nada até agora

estou disposto a le as criticas, pq com elas saberei onde estou falhando "claro que tem os gostos e opiniões pessoais"

kinka · January 31, 2015

ola caro edcronos baixei e dei uma rapida olhada aqui muito bom ela e vi uma coisa nao sei se e certo ou tem q corrigir ai voce viu que os resultados nas datas ai sao todos de ano 2015. do 1 ao ultimo excelente para atualizaçao.

January 31, 2015

ola, vc tá certo, eu nem tinha reparado nisso,

deve ter sido na hora que estava fazendo teste da macro que atualiza e como minha internet é meio"muito" lenta pode ter acontecido isso.
vou consertar,

mas acho que foi somente as datas pq no restante eu coloquei um loop para o numero do concurso corresponde

mas tem alguma opinião sobre, ou dica para a planilha? o que colocar primeiro

Edited January 31, 2015 by Zangado

January 31, 2015

creio que a primeira coisa é colocar um atualizador que baixe o arquivo, para quando faltarem muitos sorteios

pelo menos o da mega sena eles demoravam bastante para atualizar o arquivo que se baixa, já teve vezes que de eu baixar que estava mais desatualizado do que o anterior, faltando mais de 15 sorteios

bem vou consertar as datas e seguir com as implementações,

isso não vai fazer diferença para quem acompanha sempre as loterias

Edited January 31, 2015 by Zangado

February 1, 2015

mais uma atualização na planilha

coloquei um filtro de jogos com os numeros escolhidos

e consertei as datas "eu acho"

se acharem qualquer erro é só falar.

https://www.sendspace.com/file/t981kk

February 1, 2015

como não vi muito interesse do pessoal vou deixar de lado as melhorias

se algum moderador quiser colocar o arquivo como parte do forum fique a vontade

"no sendspace com o tempo sem download é apagado"

até mais...

February 8, 2015

essa planilha ficou tão ruim assim?

ninguem pediu nem mesmo alteração

eu já tinha até feito um conferidor de atrasos para os numeros sorteados e os faltantes , e uma macro para quem gosta de analisar em ordem crescente

bem mas deixa pra la

February 10, 2015

essa planilha ficou tão ruim assim?
oq precisa ser modificado nela para ficar pelo menos usável?

eu tinha pensado em adicionar
um desdobramento na aba do conferidor .
uma media de atrasos e frequência dos números, podendo escolher variações de datas e colunas.

e um sorteador que iria escolher dentro dos próprios números sorteados podendo definir vários critérios

February 13, 2015

Estou com algumas ideias para colocar na planilha

por enquanto tenho que ver como fazer um desenho mais compreensível antes de colocar as novas ideias

ela está ficando colorida demais para o meu gosto

https://www.sendspace.com/file/3tad1h

quero adicionar uma comparação entre os repetidos, os ausentes repetidos, e os sorteados não repetidos

e juntar uma comparação binaria dos mesmos

e fazer um grafico comparativo entre eles de numero em numero

February 14, 2015

Estou com algumas ideias para colocar na planilha

por enquanto tenho que ver como fazer um desenho mais compreensível antes de colocar as novas ideias

ela está ficando colorida demais para o meu gosto

https://www.sendspace.com/file/3tad1h

quero adicionar uma comparação entre os repetidos, os ausentes repetidos, e os sorteados não repetidos
e juntar uma comparação binaria dos mesmos
e fazer um grafico comparativo entre eles de numero em numero

Cronos,

Grande trabalho!

Vou compartilhar consigo o motivo de não ter lhe fornecido feedback, seu código é incompatível para plataforma 64 bits?

Entretanto vou colaborar consigo;

Enviei esse mesmo código a um site especializado em loterias e o máximo que o responsável fez foi me dizer "Obrigado!", incluiu imediatamente em suas planilhas e passou a vender.....!!!

Que bacana!

Se desejar continuamos, o que acontece em loteria é que é difícil convergir os interesses;

Segue, vai ajudar, basta realizar algumas alterações;

"Para atualizar o resultado automáticamente, vou lhe fornecer o código";

Private Declare PtrSafe Function InternetGetConnectedState _

Lib "wininet.dll" (ByRef dwflags As Long, _

ByVal dwReserved As Long) As Long

Private Const INTERNET_CONNECTION_MODEM As Long = &H1

Private Const INTERNET_CONNECTION_LAN As Long = &H2

Private Const INTERNET_CONNECTION_PROXY As Long = &H4

Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20

Function IsInternetConnected() As Boolean

Dim L As Long

Dim R As Long

R = InternetGetConnectedState(L, 0&)

If R = 0 Then

IsInternetConnected = False

Else

If R <= 4 Then

IsInternetConnected = True

Else

IsInternetConnected = False

End If

End Function

Sub AtualizarResultados()

Dim FSO, oApp As Object

Dim objHttp, DefPath, Arquivo As String

Dim Dados() As Byte

Dim Fname As Variant

Dim FileNameFolder As Variant

Dim FileName As Variant

Dim iFileNumber As Long

Dim Ret As Long

Application.ScreenUpdating = False

Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")

If IsInternetConnected() = True Then

objHttp.Open "GET", "http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip", False

objHttp.Send

DefPath = ThisWorkbook.Path & "\"

Arquivo = DefPath & "D_lotfac.zip"

FileName = Arquivo

If objHttp.Status = "200" Then

Dados = objHttp.ResponseBody

iFileNumber = FreeFile

Open Arquivo For Binary Access Write As #iFileNumber

Put #iFileNumber, 1, Dados

Close #iFileNumber

End If

If Right(DefPath, 1) <> "\" Then

DefPath = DefPath & "\"

End If

FileNameFolder = DefPath

Set oApp = CreateObject("Shell.Application")

oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(FileName).items

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Worksheets("Início").Range("C7") = diretorio

Worksheets("Início").Range("C7").Select

Selection.Replace What:="\", Replacement:="/", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=True

diretorio = Worksheets("Início").Range("C7")

Sheets("Base").Select

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;file:///" & DefPath & "/D_LOTFAC.HTM", Destination:=Range( _

"Base!$A$1"))

.Name = "D_MEGA"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlEntirePage

.WebFormatting = xlWebFormattingNone

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

End With

Sheets("Base").Select

Rows("1:2").Select

Selection.Delete Shift:=xlUp

Application.ScreenUpdating = True

Call OrdenaResultados

Call Auto_Open

MsgBox "Planilha atualizada com sucesso!"

Else

MsgBox "Para atualizar é necessário estar conectado à internet."

End If

End Sub

Edited February 17, 2015 by Pitaco_certo!

February 14, 2015

ola,

cara mó merda isso hem,

eu tbm tenho esse medo , mesmo não trabalhando com planilha , nunca ganhei nada nem com planilhas nem com loterias
mas tenho o trabalho de pensar e aplicar

as vezes as pessoas pegam usam e simplesmente nem agradecem

mas isso só faz a gente desistir de compartilhar oq criamos e descobrimos,

a minha planilha já atualiza da internet

não gosto de usar o arquivo zipado, já vi esses aquivos virem com varios sorteios de diferença

atualizo direto da pagina em ordem de sorteio "foi osso montar o código", é meio bagunçado mas funciona.

uso o site app da caixa

Edited February 14, 2015 by Zangado

April 13, 2015

Esse e um dos motivos que ninguém compartilha maus seus estudos e esquemas.
Pois criamos algo, compartilhamos por exemplo no fórum..
Vem alguns espertos copia e sai postando em seus blogs e site como se o esquema fosse de autoria deles.
Outros já copia, monta um e-book e sai vendendo..
Isso desanima completamente.
Acredito que ninguém que ficar famoso por ser o criador de um esquema mágico, coisa que nao existe.
Porem ter o trabalho respeitado e bom...
Também tenho interesse em monta uma planilha com funções em VBA..
Podemos trocar umas idéias..

Se desejar envie uma MP, posso lhe fornecer algum material para estudo!

Mauricio Pimenta · May 20, 2015

??? está tudo OFF ?

Não consegui baixar

C.R.B · December 5, 2015

Olá ed, vi que tu é fera em Excel, Pow cara tu pode me ajudar? Gostaria dessa tua planilha da lotofacil, pelo que vi ela tem tudo que eu queria.cara estou fazendo um estudo sobre a lotofacil e encontrei algo muito interessante mas eu perco muito tempo fazendo tudo na mão escrevendo em cadernos. Como faço para conseguir essa tua planilha da lotofacil?

C.R.B · December 5, 2015

Eu queria uma planilha que mostrasse as que repetiram do concurso passado, as ausentes, conte as pares e ímpares, tendo isso já facilitaria bastante para mim e essa tua tem tudo isso e mais um pouco.

C.R.B · December 5, 2015

Vou dar uma idéia de um filtro:filtrar todos os concursos passados.ja que até hoje pelo que sei acho que uma vez ou foi duas que repetiu a mesma combinação. Não me recordo muito bem mas se não estou me confundindo nunca repetiu.

C.R.B · December 5, 2015

Se for possível eu pago para vc fazer uma para mim, mas tem que ter umas coisas que eu tenho em mente. Coisas que eu observei que se torna dados importantes para elaboração de uma boa aposta.

jau288 · January 1, 2016

Cronos,

Grande trabalho!

Vou compartilhar consigo o motivo de não ter lhe fornecido feedback, seu código é incompatível para plataforma 64 bits?

Entretanto vou colaborar consigo;

Enviei esse mesmo código a um site especializado em loterias e o máximo que o responsável fez foi me dizer "Obrigado!", incluiu imediatamente em suas planilhas e passou a vender.....!!!

Que bacana!

Se desejar continuamos, o que acontece em loteria é que é difícil convergir os interesses;

Segue, vai ajudar, basta realizar algumas alterações;

"Para atualizar o resultado automáticamente, vou lhe fornecer o código";

Private Declare PtrSafe Function InternetGetConnectedState _
   Lib "wininet.dll" (ByRef dwflags As Long, _
   ByVal dwReserved As Long) As Long
Private Const INTERNET_CONNECTION_MODEM As Long = &H1
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Function IsInternetConnected() As Boolean
    Dim L As Long
    Dim R As Long
    R = InternetGetConnectedState(L, 0&)
    If R = 0 Then
        IsInternetConnected = False
    Else
        If R <= 4 Then
            IsInternetConnected = True
        Else
            IsInternetConnected = False
        End If
    End If
End Function
Sub AtualizarResultados()
    Dim FSO, oApp As Object
    Dim objHttp, DefPath, Arquivo As String
    Dim Dados() As Byte
    Dim Fname As Variant
    Dim FileNameFolder As Variant
    Dim FileName As Variant
    Dim iFileNumber As Long
    Dim Ret As Long

    Application.ScreenUpdating = False
    Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")

    If IsInternetConnected() = True Then

        objHttp.Open "GET", "http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip", False
        objHttp.Send

        DefPath = ThisWorkbook.Path & "\"
        Arquivo = DefPath & "D_lotfac.zip"
        FileName = Arquivo

        If objHttp.Status = "200" Then
            Dados = objHttp.ResponseBody
            iFileNumber = FreeFile
            Open Arquivo For Binary Access Write As #iFileNumber
            Put #iFileNumber, 1, Dados
            Close #iFileNumber
        End If

        If Right(DefPath, 1) <> "\" Then
            DefPath = DefPath & "\"
        End If
        FileNameFolder = DefPath

        Set oApp = CreateObject("Shell.Application")
        oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(FileName).items

        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

        Worksheets("Início").Range("C7") = diretorio
        Worksheets("Início").Range("C7").Select
        Selection.Replace What:="\", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=True
            diretorio = Worksheets("Início").Range("C7")
        Sheets("Base").Select
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;file:///" & DefPath & "/D_LOTFAC.HTM", Destination:=Range( _
            "Base!$A$1"))
            .Name = "D_MEGA"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
        Sheets("Base").Select
        Rows("1:2").Select
        Selection.Delete Shift:=xlUp
        Application.ScreenUpdating = True

        Call OrdenaResultados
        Call Auto_Open
        MsgBox "Planilha atualizada com sucesso!"
    Else
        MsgBox "Para atualizar é necessário estar conectado à internet."
    End If
End Sub

o link não funciona.. tem um outro .... Gostaria de entender o codigo ... Obrigado....

jau288 · January 1, 2016

Oi,a muito tempo venho procurado por isto, quero ver e entender o código em vba ( estudo a pouco tempo vba). Mas nunca consigo no seu caso o link quebrado . Poderia mandar em outro link ou email ( meu email - jau288@gmail.com) . Fico agradecido desde já ...

jau288 · October 4, 2017

Bom dia , link quebrado... poderia mandar por email - jau288@gmail.com.

Muito obrigado pela a atenção...

October 4, 2017

1 hora atrás, jau288 disse:

Bom dia , link quebrado... poderia mandar por email - jau288@gmail.com.

Muito obrigado pela a atenção...

nem tenho mais essa planilha, talvez alguem que tenha baixado te mande"oq eu duvido"

@Crazy Rabbit

esse topico é de quando conheci e entrei no forum

pode ver que minha intenção era compartilhar

mas apenas baixavam e ninguem ajudou nem com dicas , os unicos que comentaram foram para reclamar

depois disso adaptei para outras loterias para as planilhas pessoais de algumas pessoas que nunca postaram as planilhas no forum, a função de ciclo, conta rep, conta conjunto tbm foram para outras pessoas

claro que tem planilhas desse pessoal que eu poderia disponibilizar já que fiz sem ganhar nada, e nem se pode dizer que são as mesmas que eles pediram para modificar , mas infelizmente se foram junto do hd defeituoso

eu não sou assim como sou , o pessoal do forum que me fez mudar

jau288 · November 26, 2017

Em 04/10/2017 at 10:03, edcronos2 disse:

nem tenho mais essa planilha, talvez alguem que tenha baixado te mande"oq eu duvido"

@Crazy Rabbit

esse topico é de quando conheci e entrei no forum

pode ver que minha intenção era compartilhar

mas apenas baixavam e ninguem ajudou nem com dicas , os unicos que comentaram foram para reclamar

depois disso adaptei para outras loterias para as planilhas pessoais de algumas pessoas que nunca postaram as planilhas no forum, a função de ciclo, conta rep, conta conjunto tbm foram para outras pessoas

claro que tem planilhas desse pessoal que eu poderia disponibilizar já que fiz sem ganhar nada, e nem se pode dizer que são as mesmas que eles pediram para modificar , mas infelizmente se foram junto do hd defeituoso

eu não sou assim como sou , o pessoal do forum que me fez mudar

OBRIGADO!!!

Sign In

Planilha Loto Facil (Projeto) (Macros) "excel 2010"

Recommended Posts

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Pitaco_certo!

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Guest Pitaco_certo!

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest Zangado

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members