Jump to content

Macro Atualizar Resultado quem fez?


Neguin

Recommended Posts

Boa noite gostaria de saber quem foi o autor desta macro e de quem a conta do Dropbox, pois o arquivo que essa macro puxa está com um erro: No concurso 1129 da lotofácil está duplicada a dezena 19:

Conc. 1129 (errado)

 

02 03 04 05 07 08 12 13 16 17 19 19 21 22 23

 

Conc. 1129 - (correto)

 

02 03 04 05 07 08 12 13 16 17 18 19 21 22 23

 

E preciso corrigir o arquivo original, pois toda vez que clica para atualizar a macro puxa a dezena duplicada, mesmo que você corrija a dezena.

Segue a macro:

Sub Atualiza()
Application.ScreenUpdating = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & "https://www.dropbox.com" & "/s/grq21rthhbnxurf/resultados_lotofacil.txt?dl=1" _
        , Destination:=Range("$B$2"))
        .Name = "transaction"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1)), TrailingMinusNumbers:=True
        Cells.ColumnWidth = 5
    Range("A1").Select
End Sub

 

Neguin

Link to comment
Share on other sites

Aparentemente o erro está no arquivo de onde está buscando o resultado. A macro parece ok.

 

Edit, realmente o arquivo está OK. Mistérios da computação....

 

Edit 2. testei a macro e não duplicou

  • Like 1
Link to comment
Share on other sites

19 minutos atrás, MOC disse:

Aparentemente o erro está no arquivo de onde está buscando o resultado. A macro parece ok.

 

Edit, realmente o arquivo está OK. Mistérios da computação....

 

Edit 2. testei a macro e não duplicou

Pois é, vai entender. Sempre que executo a macro o concurso 1129 vem com a dezena 19 duplicada!!! Executei várias vezes e sempre puxa duplicada...

Link to comment
Share on other sites

25 minutos atrás, MOC disse:

Aparentemente o erro está no arquivo de onde está buscando o resultado. A macro parece ok.

 

Edit, realmente o arquivo está OK. Mistérios da computação....

 

Edit 2. testei a macro e não duplicou

 

10 minutos atrás, Neguin disse:

Pois é, vai entender. Sempre que executo a macro o concurso 1129 vem com a dezena 19 duplicada!!! Executei várias vezes e sempre puxa duplicada...

 

Olha aí que interessante, fui executar agora a macro novamente, veio certinho o concurso... o arquivo foi corrigido??? Como ninguém se pronunciou...!!! Tenho essa macro em mais ou menos 10 planilhas diferentes e em todas estava com o mesmo erro, agora já testei em umas 4  e todas estão certinho. Mistérios da meia noite... o arquivo se corrigiu sozinho... :-o:shock:

Link to comment
Share on other sites

  • Jimmy locked this topic
Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

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