РЕМОНТ ТАБЛИЦ

[king.Tut 0]

Can anyone fix this please? Matches don't load and just give out this message.

 

excelbetting-1x2-under-over2F.xlsb

[king.Tut 0]

At 01/17/2026 at 09:53, Clirim said

This file is working

AltadarODDS_15.01.26.xlsb 830.17 kB · 85 downloads

When I download matches and press «Load Champ», it gives out this error and debug starts. Can anyone help with the solution please? Also, do I need a VPN to access, since I am currently in Germany?

[Clirim 335]

Try this; it's the same code.

ODDS_ Poisson-Enigma+Dixon-Coles (1).xlsb

[kovan 2 204]

7 часов назад, king.Tut сказал:

Can anyone fix this please? Matches don't load and just give out this message.

 

excelbetting-1x2-under-over2F.xlsb 1.05 MB · 9 загрузок

Программа старая, нужно многое переписывать. Да и пароли стоят.
Даже мне не интересно за так делать.

[king.Tut 0]

7 часов назад, Clirim сказал:

Try this; it's the same code.

ODDS_ Poisson-Enigma+Dixon-Coles (1).xlsb 1.47 MB · 26 загрузок

Выдается та же ошибка, что и на скриншоте, который я уже присылал. Помогите, пожалуйста!

[king.Tut 0]

Буду очень признателен за любую поддержку!

AltadarODDS_18.01.26.xlsb

[Shurik91 1 597]

3 часа назад, king.Tut сказал:

Буду очень признателен за любую поддержку!

CDate выдаёт ошибку, так как на компьютере не стандартный формат даты

попробуй такой вариант, если нет, тогда пришли фото, как отображается дата на компьютере

AltadarODDS_18.01.26.xlsb

[king.Tut 0]

1 час назад, Shurik91 сказал:

CDate выдаёт ошибку, так как на компьютере не стандартный формат даты

попробуй такой вариант, если нет, тогда пришли фото, как отображается дата на компьютере

AltadarODDS_18.01.26.xlsb 705.77 kB · 6 загрузок

 

1 час назад, Shurik91 сказал:

CDate выдаёт ошибку, так как на компьютере не стандартный формат даты

попробуй такой вариант, если нет, тогда пришли фото, как отображается дата на компьютере

AltadarODDS_18.01.26.xlsb 705.77 kB · 6 загрузок

Спасибо, брат! Ошибка исчезла; я также изменил формат даты в системе на ДД/ММ/ГГГГ. Теперь возникла такая ситуация: при нажатии кнопки «Load Champ» (Загрузить чемпиона) программа перенаправляет меня на лист STAT (Статистика) и подтягивает оттуда данные.

[kovan 2 204]

4 часа назад, king.Tut сказал:

 

Спасибо, брат! Ошибка исчезла; я также изменил формат даты в системе на ДД/ММ/ГГГГ. Теперь возникла такая ситуация: при нажатии кнопки «Load Champ» (Загрузить чемпиона) программа перенаправляет меня на лист STAT (Статистика) и подтягивает оттуда данные.

А куда должен переслат? Если макрос заканчивается выбором страницы STAT

ThisWorkbook.Sheets("STAT").Select

[Shurik91 1 597]

4 часа назад, king.Tut сказал:

 

Спасибо, брат! Ошибка исчезла; я также изменил формат даты в системе на ДД/ММ/ГГГГ. Теперь возникла такая ситуация: при нажатии кнопки «Load Champ» (Загрузить чемпиона) программа перенаправляет меня на лист STAT (Статистика) и подтягивает оттуда данные.

так и задумано, после нажатия на Load Champ, идёт перенаправление на STAT, там ты можешь посмотреть на основе каких матчей считает Altadar, можно что-то своё туда вписать или доработать расчёт

[baggirra 0]

Ребята здравствуйте помогите починить эту таблицу .Заранее спасибо за помощь. 

nx Footbal ver-3.7 mod 2024 (1).xlsm

[igorek 7]

В 29.06.2026 в 21:34, kovan сказал:

А куда должен переслат? Если макрос заканчивается выбором страницы STAT

ThisWorkbook.Sheets("STAT").Select

Приветствую с темы "мастерская Shurik91", вечером скину, но проблем в том что все таблицы так себя ведут, попробовал скачал файл OTO(ka) который подчинили в той теме, и этот файл ведет себя точно так же.

[kovan 2 204]

1 час назад, igorek сказал:

Приветствую с темы "мастерская Shurik91", вечером скину, но проблем в том что все таблицы так себя ведут, попробовал скачал файл OTO(ka) который подчинили в той теме, и этот файл ведет себя точно так же.

" файл ведет себя точно так же" - Это неочём, подробней. Зависает сразу как нажмёшь Start или что-то происходит? 

[igorek 7]

8 часов назад, kovan сказал:

" файл ведет себя точно так же" - Это неочём, подробней. Зависает сразу как нажмёшь Start или что-то происходит?

Да, после нажатия на старт зависает и сколько не жди ничего не происходит.

[igorek 7]

9 часов назад, kovan сказал:

" файл ведет себя точно так же" - Это неочём, подробней. Зависает сразу как нажмёшь Start или что-то происходит? 

Вот этот файл

ALLBETPRO+5Match 2026_FREE Mod_TIW_05.02.2026(1).xlsb

[kovan 2 204]

2 часа назад, igorek сказал:

Вот этот файл

ALLBETPRO+5Match 2026_FREE Mod_TIW_05.02.2026(1).xlsb 616.61 kB · 2 загрузки

Файл конечно нерабочий, как и все после изменений, но у меня не зависает, что-то у Вас с excel. Если раньше работал, вспомните, что меняли, если нечего - обновите.

[igorek 7]

1 час назад, kovan сказал:

Файл конечно нерабочий, как и все после изменений, но у меня не зависает, что-то у Вас с excel. Если раньше работал, вспомните, что меняли, если нечего - обновите.

Спасибо

[igorek 7]

1 час назад, kovan сказал:

Файл конечно нерабочий, как и все после изменений, но у меня не зависает, что-то у Вас с excel. Если раньше работал, вспомните, что меняли, если нечего - обновите.

А что за изменения? Опять на сайте что то поменяли, я недели две не подходил к программам.

[Виталий Васильев 22]

Народ,подскажите,что происходит? Почему опять таблицы не работают?

GuxyyZ+KA.xlsb

[sad 15]

2 часа назад, Виталий Васильев сказал:

Народ,подскажите,что происходит? Почему опять таблицы не работают?

GuxyyZ+KA.xlsb 344.74 kB · 2 загрузки

У меня всё работает в таблице. Грузится правда долговато а так всё нормально.

[Виталий Васильев 22]

40 минут назад, sad сказал:

У меня всё работает в таблице. Грузится правда долговато а так всё нормально.

Понятно, буду искать ошибку у себя

[kovan 2 204]

6 часов назад, Виталий Васильев сказал:

Народ,подскажите,что происходит? Почему опять таблицы не работают?

GuxyyZ+KA.xlsb 344.74 kB · 9 загрузок

Проверил, всё работает и скорость нормальная, список с кефами за примерно 20 сек скачал. Только рекомендую для России livescore.in/ru русский, и livescore.in английский. Вот файл более обновлён: 

 

GuxyyZ+KA.xlsb

[sad 15]

В 18.03.2026 в 14:01, kovan сказал:

Просто открой листы: "Дома" и "Гости"

Опа, уже ответили, не увидел

Тогда, держи готовое:

DeluX+СИСТЕМА 2025 АРХИВ(РЕН).xlsm 15.15 MB · 98 загрузок

Скачал попробовать. Работает только с ВПН и почему то кэфы не грузятся 

[Clirim 335]

В 11/07/2026 в 21:52, igorek сказал:

Che cosa è cambiato? Hanno modificato di nuovo qualcosa sul sito web, non accedo ai programmi da due settimane.

It would be enough to change "Get odds".

[Clirim 335]

'Get Odds

Set HTTP = CreateObject("MSXML2.XMLHTTP")

 

' usa lo stesso sourcer e suffix dei match

HTTP.Open "GET", "http://www." & sourcer & "x/feed/fo_1_" & dayzone & "_" & timezone & suffix & "0", False

' esempio finale: fo_1_..._en_1_0 oppure fo_1_..._ru_1_0

 

HTTP.setRequestHeader "X-Fsign", "SW9D1eZo"

HTTP.Send

 

fs_input = HTTP.ResponseText

fs_rows = Split(fs_input, "¬~")

fs_rows_length = UBound(fs_rows) - LBound(fs_rows)

 

Call Show_PrBar_Or_No(fs_rows_length, "Incarca Odds ....")

 

For i = 0 To fs_rows_length - 4

 

    If bShowBar Then Call MyProgresBar

 

    fs_row = Split(fs_rows(i), "¬")

    fs_row_length = UBound(fs_row) - LBound(fs_row)

 

    fs_index = Split(fs_row(0), ChrW(&HF7))

    If IsArray(fs_index) Then

        fs_index_name = fs_index(0)

        fs_index_value = fs_index(1)

    End If

 

    If fs_index_name = "SA" Then

        sport_id = fs_index_value

 

    ElseIf fs_index_name = "ZA" Then

        tour_name = ""

        home_name = ""

        For j = 0 To fs_row_length - 1

            fs_row_parts = Split(fs_row(j), ChrW(&HF7))

            If fs_row_parts(0) = "ZA" Then tour_name = fs_row_parts(1)

            If fs_row_parts(0) = "ZB" Then country_id = fs_row_parts(1)

        Next j

 

    ElseIf fs_index_name = "AA" Then

 

        home_name = ""

        start_home = 0: start_draw = 0: start_away = 0

        current_home = 0: current_draw = 0: current_away = 0

        match_id = ""

 

        For j = 0 To fs_row_length - 1

 

            fs_row_parts = Split(fs_row(j), ChrW(&HF7))

 

            If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1)

 

            If fs_row_parts(0) = "AD" Then

                date_match = DateAdd("s", fs_row_parts(1), "01/01/1970")

                date_match = DateAdd("h", timezone, date_match)

                date_match = Format(date_match, "yyyy.mm.dd hh:mm")

            End If

 

            If fs_row_parts(0) = "AE" Then home_name = fs_row_parts(1)

            If fs_row_parts(0) = "AF" Then away_name = fs_row_parts(1)

 

            ' quote apertura 1X2 (tag storici XA/XB/XC)

            If fs_row_parts(0) = "XA" Then start_home = Val(fs_row_parts(1))

            If fs_row_parts(0) = "XB" Then start_draw = Val(fs_row_parts(1))

            If fs_row_parts(0) = "XC" Then start_away = Val(fs_row_parts(1))

 

            ' quote live 1X2 (tag storici YA/YB/YC)

            If fs_row_parts(0) = "YA" Then current_home = Val(fs_row_parts(1))

            If fs_row_parts(0) = "YB" Then current_draw = Val(fs_row_parts(1))

            If fs_row_parts(0) = "YC" Then current_away = Val(fs_row_parts(1))

 

        Next j

 

        ' scrittura su LISTE

        If match_id <> "" And start_home > 0 Then

 

            Set rFndRng = Sheets("LISTE").Columns("E").Find(match_id, , xlValues, xlWhole)

 

            If Not rFndRng Is Nothing Then

 

                ' Quote apertura (L, M, N)

                Sheets("LISTE").Cells(rFndRng.Row, "L").Value = start_home

                Sheets("LISTE").Cells(rFndRng.Row, "M").Value = start_draw

                Sheets("LISTE").Cells(rFndRng.Row, "N").Value = start_away

 

                ' Quote live (O, P, Q)

                Sheets("LISTE").Cells(rFndRng.Row, "O").Value = current_home

                Sheets("LISTE").Cells(rFndRng.Row, "P").Value = current_draw

                Sheets("LISTE").Cells(rFndRng.Row, "Q").Value = current_away

 

            End If

 

        End If

 

    End If

 

Next i

 

If bShowBar Then Unload frmStatusBar

 

Application.ScreenUpdating = True

Application.Calculation = xlAutomatic

Application.EnableEvents = True

Application.StatusBar = True

 

End Sub