Sub Nadji_sva_gotova_natjecanja()

Dim Wbk_radna As Workbook
Dim zadnjired As Integer
Dim hlink As Hyperlink

Application.ScreenUpdating = True

Set Wbk_radna = Workbooks.Open("AllCompetitions")
Wbk_radna.Worksheets(1).Activate
Wbk_radna.EnableConnections

zadnjired = Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.Row

For i = 1 To zadnjired
    
    Call Perform_Web_Query(Wbk_radna.Worksheets(1).Cells(i, 1).Value & "fixtures/", Wbk_radna)

   
    Wbk_radna.Worksheets(1).Cells(i, 7).Value = "processed"
    
    For Each hlink In Wbk_radna.Worksheets(2).Hyperlinks
        
        If InStr(1, hlink.Address, "nextmatch.php") > 0 Then 
            
            Wbk_radna.Worksheets(1).Cells(i, 6).Value = "ongoing"
            Exit For
        
        End If
        
    Next hlink

    Wbk_radna.Worksheets(2).UsedRange.Clear
    
Next i

End Sub

Sub Perform_Web_Query(trazeni_string As String, radna As Workbook, Optional s_popisom As Workbook)

Dim hlink As Hyperlink

radna.Worksheets(2).Activate
radna.EnableConnections

    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & trazeni_string, Destination:=Range("$A$1"))
        .Name = "sweden"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

End Sub