Neguin Posted April 15, 2018 Share Posted April 15, 2018 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 More sharing options...
MOC Posted April 15, 2018 Share Posted April 15, 2018 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 1 Link to comment Share on other sites More sharing options...
Neguin Posted April 15, 2018 Author Share Posted April 15, 2018 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 More sharing options...
Neguin Posted April 15, 2018 Author Share Posted April 15, 2018 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... Link to comment Share on other sites More sharing options...
Wata Posted April 15, 2018 Share Posted April 15, 2018 ... 2 Link to comment Share on other sites More sharing options...
Recommended Posts