EXCEL VBA, For Loop, print loop number?

[yousufj56]

In my worksheet, i have two sheets. Sheet2 has a list of URLs of JSON files which i will use to extract data from. Sheet1 will be where the JSON data will be extracted to.

I'm using a loop like below to extract the data sets. However, the data sets all vary in size so i need to know which loop number each set belongs to. Knowing the loop number will allow me to figure out which URL it belongs too.

Is there a way i can do that? Or is there a way maybe i can just print the URL from Sheet2 to the appropriate set?

Hope that makes sense...

For x = 1 To Application.CountA(Sheet2.Columns(1))
        URL = Sheets(2).Cells(x, 1)
        objHTTP.Open "GET", URL, False
        objHTTP.Send

If objHTTP.ReadyState = 4 Then
            If objHTTP.Status = 200 Then
            
                Set RetVal = MyScript.Eval("(" & objHTTP.responseText & ")")
                objHTTP.abort
                
                Set MyList1 = RetVal.result.buy
                NoA = Sheet1.Cells(65536, 1).End(xlUp).Row + 1
                
                For Each myData In MyList1
                    Sheets(1).Cells(NoA, 1).Value = myData.Quantity
                    Sheets(1).Cells(NoA, 2).Value = myData.Rate
                    NoA = NoA + 1
                Next
Next

 

[Joe4]

i need to know which loop number each set belongs to. Knowing the loop number will allow me to figure out which URL it belongs too.

Since "x" is your loop number, just use that. You can place it on your sheet somewhere if you want.
It really depends on what you need to do with it.

 

[yousufj56]

Hey, thanks for your answer. I have just got what i need from this URL. Sorry for the cross-post. I was in a rush. But wont happen again.

https://www.mrexcel.com/forum/excel...acro-extract-json-data-post-into-cells-4.html