Scrape from webpages without table and classes

[Bruzio]

Hi to everyone, surfing I found this website BsportsFan It has some interesting data.
The landing pages haven't tables or classes so I wasn't able to get that data. A few months ago @smozgur who I greet, made a vba code for me, I'm still using that sheet, maybe also using this website.
Inspecting the site I found this info:

The destination url is https://app.bsportsfan.com/events/inplay, by clicking on an event i found:

The destination url is https://app.bsportsfan.com/event/odds?id=3225440.
By changing the id I can find all the data for each event.

My goal is to have this data in a sheet.
I would like to know what tools I need to use.
I apologize if mine are trivial requests.

Thank you for your attention and have a nice day

 

[John_w]

How can I fix it?

If you're saying that the 1.39, 4.00,7.40 etc. values are in the wrong row then subtract 1 from the row number in the code where you write those values to the sheet.

 

[Bruzio]

I'm saying about column A, rows 5, 6, 7 etc are blanks but the are values duplicates 3.05, 3.25, 2.08 etc.

 

[John_w]

Sorry, I don't know and I don't see how it relates to the few lines of code you posted. Best to step through in the Debugger.

 

[Bruzio]

I'm using this code:

    i = 1
    
    For r = 1 To 20 'lastrow  '.Cells(.Rows.Count, "A").End(xlUp).Row  'test on id rows 4-10
    
    id = .Cells(r, "A").Value
    
            For Each item In json("olist")
                If json("eb_v") = True Then
                    If item("t") = 0 Then
                    .Cells(i, 11).Value = Trim(item("fu")) '1X2 OPEN
                    .Cells(i, 12).Value = Trim(item("fg"))
                    .Cells(i, 13).Value = Trim(item("fd"))
                    .Cells(i, 23).Value = Trim(item("u")) '1X2 CLOS
                    .Cells(i, 24).Value = Trim(item("g"))
                    .Cells(i, 25).Value = Trim(item("d"))
                    End If
                    
                    If item("t") = 1 Then
                    .Cells(i, 14).Value = Trim(item("fu") + 1)
                    .Cells(i, 15).Value = Trim(item("fg"))
                    .Cells(i, 16).Value = Trim(item("fd") + 1)
                    .Cells(i, 26).Value = Trim(item("u") + 1)
                    .Cells(i, 27).Value = Trim(item("g"))
                    .Cells(i, 28).Value = Trim(item("d") + 1)
                    End If

                    If item("t") = 2 Then
                    .Cells(i, 17).Value = Trim(item("fu") + 1)
                    .Cells(i, 18).Value = Trim(item("fg"))
                    .Cells(i, 19).Value = Trim(item("fd") + 1)
                    .Cells(i, 29).Value = Trim(item("u") + 1) 
                    .Cells(i, 30).Value = Trim(item("g"))
                    .Cells(i, 31).Value = Trim(item("d") + 1)
                    End If
                End If
            Next
            i = i + 1
        Next

 

[Bruzio]

1903230	Israel Leumit Liga	Hapoel Umm al-Fahm	Hapoel Petah Tikva		0	0	49		2.58	2.71	2.75	0	1.75
									2.58	2.71	2.75	0	1.75
									2.58	2.71	2.75	0	1.75
									2.58	2.71	2.75	0	1.75
									2.58	2.71	2.75	0	1.75
									2.58	2.71	2.75	0	1.75
									2.58	2.71	2.75	0	1.75

with

    For r = 1 To 20
   
    id = .Cells(r, "A").Value

The loop continues even if column A is empty and the values from 2.58 to 1.75 of the last row not blank are duplicated.
I can't fix this loop.

 

[John_w]

.Cells(i, 11)

Shouldn't you be using r (the row number loop variable) instead of i in all code like the above?

 

[Bruzio]

Should I change variable?

I'm trying with i, so

    For i = 1 To 20
  
    id = .Cells(i, "A").Value

The partial result is:

	Germany Landespokal	1860 Munich	Turkgucu Munchen	0	0	3
1996734​	Brazil Campeonato Brasiliense	Real FC	SE Santa Maria	0	0	6
1937295​	Northern Ireland Premier	Coleraine	Larne	0	0	7							2.01	0.25	1.75	1.96	2.75	1.80
1887607​	Scotland Championship	Raith	Dunfermline	2	1	30
	Belgium Super League Women	Charleroi Women	OH Leuven Women	0	2	45							2.01	0.25	1.75	1.96	2.75	1.80
1751742​	Asia - World Cup Qualifying	Saudi Arabia	Palestine	2	0	47
1915030​	Spain Segunda	Malaga	Almeria	0	2	49				2.81	2.92	2.62	2.02	0	1.88	1.95	2	1.95
	Netherlands Eredivisie Women	PSV Women	FC Twente Women	0	0	49
1994058​	Lithuania 1 Lyga	BFA Vilnius	FK Kauno Zalgiris II	4	2	59
1915027​	Spain Segunda	Alcorcon	Oviedo	1	0	79

Rows incomplete and duplicates and values on rows where isn't ID.

Or maybe I didn't understand?

 

[Bruzio]

Ok, I understand, I deleted i = i + 1, it's working

 

[Bruzio]

I was deluded, it doesn't work, I used

lastrow = .Cells(.Rows.Count, "A").End(xlUp).row
For i = 7 To lastrow

1814992​	Africa Cup of Nations Qualification	Morocco	Burundi	0	0	26				1.28	4.50	8.50	1.99	1.5	1.85	2.03	2.5	1.79
1996745​	Brazil Campeonato Sul-Matogrossense	Uniao ABC	Chapadao	1	0	29							1.88	0.25	1.92	1.85	2.5	1.95
1970084​	European U21 Championship	Italy U21	Slovenia U21	3	0	29				1.56	3.80	5.80	2.04	1	1.88	2.11	2.5	1.80
1815003​	Africa Cup of Nations Qualification	Cameroon	Rwanda	0	0	29				1.57	3.50	5.00	1.79	0.75	2.05	1.78	2	2.04
1970083​	European U21 Championship	Spain U21	Czech Rep U21	0	0	30				1.54	4.10	5.40	2.00	1	1.92	2.02	2.5	1.88
1815004​	Africa Cup of Nations Qualification	Mozambique	Cape Verde Islands	0	0	30				2.30	2.88	2.96	2.09	0.25	1.75	1.99	2	1.83
1915032​	Spain Segunda	Ponferradina	UD Logrones	0	1	30				2.18	2.99	3.50	1.87	0.25	2.03	2.11	2	1.80
1887828​	Scotland League Two	Albion	Queen's Park	0	2	43				6.60	5.00	1.30	1.95	-1.5	1.89	2.05	3.25	1.77
1887831​	Scotland League Two	Stirling	Stenhousemuir	0	0	43				2.23	3.15	2.81	1.95	0.25	1.89	2.07	2.75	1.75
1887713​	Scotland League One	Cove Rangers	Airdrieonians	0	0	43				2.03	3.30	3.05	2.04	0.5	1.80	1.94	2.5	1.88
1887714​	Scotland League One	Falkirk	Dumbarton	0	0	43				1.27	5.20	7.20	1.88	1.5	1.96	1.87	2.75	1.95
1887717​	Scotland League One	Peterhead	Clyde	0	0	43				2.24	3.30	2.71	1.97	0.25	1.87	1.87	2.5	1.95
1937293​	Northern Ireland Premier	Ballymena Utd	Carrick Rangers	1	0	44							1.81	1	1.95	2.01	2.75	1.75
1887829​	Scotland League Two	Brechin	Elgin	1	0	44				6.00	5.00	1.32	1.90	-1.5	1.94	2.02	3.25	1.80
1887830​	Scotland League Two	Cowdenbeath	Edinburgh City	1	2	44				3.90	3.55	1.72	1.90	-0.75	1.94	1.98	2.75	1.84
1887715​	Scotland League One	Montrose	East Fife	2	0	44				2.34	3.45	2.49	2.07	0.25	1.77	1.87	2.75	1.95
1937298​	Northern Ireland Premier	Portadown	Crusaders	0	0	44							1.80	-1.25	1.96	1.81	2.75	1.95
1988773​	Europe - World Cup Qualifying	Gibraltar	Netherlands	0	1	44							1.88	-4.5	1.96	2.06	5	1.76
1887716​	Scotland League One	Partick	Forfar	1	2	44				1.30	4.80	7.00	2.00	1.5	1.84	2.02	2.75	1.80
1988803​	Europe - World Cup Qualifying	Croatia	Malta	0	0	44				1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98
										1.08	6.00	36.00	2.02	2.75	1.82	1.84	3.25	1.98

Column A (ID) is a formula