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

[Hacker 117]

45 минут назад, Василий Ярандаев сказал:

Всем доброй ночи или у кого утро.Может кто  возратить таблицу к работе ? Таблица отличная проход  первые тайм  и тотал 1,5 .

Quartz CoteBet 2024.xlsb 1.22 MB · 0 загрузок

Держи! Парсинг с первого сайта 

Quartz CoteBet (1).xlsb

[Василий Ярандаев 23]

Большое спасибо

[KAISER 325]

54 минуты назад, Hacker сказал:

Держи! Парсинг с первого сайта 

Quartz CoteBet (1).xlsb 2.12 MB · 1 загрузка

Странно, загрузил игры, а счета уже есть, хотя они не сыграны  + архив не работает.

[Василий Ярандаев 23]

она с ошибкой

11 минут назад, KAISER сказал:

Странно, загрузил игры, а счета уже есть, хотя они не сыграны  + архив не работает.

она с ошибкой у меня тоже самое

[Murat Sanli 154]

Quartz CoteBet; excel sekme isimlerinde hatalar mevcuttu. LISTING ve ARCHIVA gibi. Sayfaları bulamadığı için kotlar çalışmıyordu. Excel sekme isimlerini değiştirdiğiniz zaman, gidip ALT+F11 den de kot içindeki isimleri de değişmeniz gerekiyor. Şimdi düzelttim, bugünün bültenini çekip forum sayfasında paylaşacağım. Kusura bakmayın google translate kullandım. Tüm kuponlarımız yeşil olsun :)))

[Murat Sanli 154]

Tüm kuponlarımız yeşil olsun :)))

Fix_Quartz CoteBet_14.09.24.xlsb

[igorek 7]

Ребят может кто нибудь подчинить данную табличку? Готов отблагодарить. 

DeluX_plus+(Mod 24.02.2024).xlsm

[sdsd 8]

BET-ON_2022_ только вчера пахал,сегодня уж нет

[Plonk 1]

в allbetpro после изменений выдает такую ошибку, почему?

[Plonk 1]

файл для восстановления

ALLBETPRO 2024 FREE Mod SJ (2).xlsb

[KAISER 325]

В 14.09.2024 в 19:21, igorek сказал:

Ребят может кто нибудь подчинить данную табличку? Готов отблагодарить. 

DeluX_plus+(Mod 24.02.2024).xlsm 2.37 MB · 17 загрузок

Что с ней не так? Вроде всё работает.

[igorek 7]

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

Что с ней не так? Вроде всё работает.

Да уже заметил, она в пятницу и в субботу не грузила матчи, но там многие таблицы не работали, походу сбой на сайте какой то был. 

[Lenchiko 44]

В 14.09.2024 в 03:54, Василий Ярандаев сказал:

Всем доброй ночи или у кого утро.Может кто  возратить таблицу к работе ? Таблица отличная проход  первые тайм  и тотал 1,5 .

Quartz CoteBet 2024.xlsb 1.22 MB · 11 загрузок

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

[Elimay1998 58]

В 11.09.2024 в 20:37, Валерий Иванович сказал:

Можно или нет - на это что бы ответить, нужно сначала указать какую статистику хотите там видеть?

1. Матчи 5 и 15 есть уже в программе, осталось понять, чтобы они выводились сразу в таблицу, рядом с кф *(в рассчеты).

2. Очные матчи (их в стате вообще нет , программа их не парсит ) - 2.1 отдельно очные встречи 5 минимум общие и строгое - 5 матчей очных - для тех кто дома играет.

3. Добавить функции рассчета (это уже сть формулы, если 1и 2 критерий будет, смогу вписать и показать , что получается.

4. аналогично для очных тоже  сделать можно.

5. И если возможно (пока читаю, не нашел ответа - идет к примеру лайв - по лайв отбирать, от счета).

[Bahodir Quchqorov 0]

!InfinityBook.xlsm  Подскажите, пожалуйста, можно ли разработать эту программу?

[KAISER 325]

5 часов назад, Bahodir Quchqorov сказал:

!InfinityBook.xlsm  Подскажите, пожалуйста, можно ли разработать эту программу?

Она есть в программе от фарела.

[Mayson7 2]

В 13.09.2024 в 22:54, Василий Ярандаев сказал:

Всем доброй ночи или у кого утро.Может кто  возратить таблицу к работе ? Таблица отличная проход  первые тайм  и тотал 1,5 .

Quartz CoteBet 2024.xlsb 1.22 MB · 11 загрузок

Привет Василий. Может поделишься  какими фильтрами (настройками) находишь тоталы на 1,5 ?

[Валерий Иванович 687]

Кто-нибудь сталкивался с такой проблемкой? ))) Как от этого избавится?
Заголовки cтолбцов C и D сменили привычное название 

Изменено 18 сентября, 2024 пользователем Валерий Иванович

[Валерий Иванович 687]

Гениальные куски кода от GPT:

 

' Определяем целевой лист в зависимости от активного листа
If ActiveSheet.Name = "Список" Then: Set tSheet = Sheets("Список")
If ActiveSheet.Name = "Архив" Then: Set tSheet = Sheets("Архив")

'Запись данных в целевой лист
Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
.Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
.Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If

В таком случае не приходится дублировать массивные макросы дважды и более, что бы вызывать их к примеру с разных листов для обновления результатов. Достаточно разместить кнопки на разных листах, а макрос сам уже определит в какие листы записывать результаты, архив или список  

Изменено 18 сентября, 2024 пользователем Валерий Иванович

[Mayson7 2]

Добрый вечер Валерий Иванович. По моему Вы сделали в этой таблице АРХИВ рабочим.

Почему-то  не возможно стало архивировать отфильтрованное. А так удобно было.

Конечно можно скрины делать , но уже не то.

Спасибо заранее.

FC+BETON 18.09.xlsb

Изменено 18 сентября, 2024 пользователем Mayson7

[SergioJek 2 110 545]

11 часов назад, Валерий Иванович сказал:

Гениальные куски кода от GPT:

 

' Определяем целевой лист в зависимости от активного листа
If ActiveSheet.Name = "Список" Then: Set tSheet = Sheets("Список")
If ActiveSheet.Name = "Архив" Then: Set tSheet = Sheets("Архив")

'Запись данных в целевой лист
Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
.Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
.Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If

В таком случае не приходится дублировать массивные макросы дважды и более, что бы вызывать их к примеру с разных листов для обновления результатов. Достаточно разместить кнопки на разных листах, а макрос сам уже определит в какие листы записывать результаты, архив или список  

' Определяем целевой лист в зависимости от активного листа
Dim ActiveSheet As Long 'Запись данных в целевой лист

Set tSheet = ActiveSheet

Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
   .Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
   .Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If

Думаю так проще

Изменено 18 сентября, 2024 пользователем SergioJek

[Віталік Іванець 32]

В 16.09.2024 в 20:01, KAISER сказал:

Она есть в программе от фарела.

а можно прогу фарела?)

[Віталік Іванець 32]

скиньте пожалуйста таблицу где есть такое окошко)

[Apostroff 0]

14 часов назад, SergioJek сказал:

' Определяем целевой лист в зависимости от активного листа
Dim ActiveSheet As Long 'Запись данных в целевой лист

Ай-яй-яй

Эта строчка - точно лишняя!

[SergioJek 2 110 545]

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

Ай-яй-яй

Эта строчка - точно лишняя!

Согласен

Изменено 19 сентября, 2024 пользователем SergioJek