Leaderboard

Olá, @DixieJoe, substitua a macro das planilhas do Crazy Rabbit para esta.....Eu mesmo atualizado diariamente, máximo de 30 minutos após resultados....Mais rápido que a Caixa.......kkkk Código: Sub Atualiza() Application.ScreenUpdating = False With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & "https://drive.google.com/u/3/uc?id=1AL9oVKA4QOukuHw5GDF20sCZIme9rLRw&expot=download" _ , 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