Excel cycle through column - for loop problem

[pecsenye]

Hello everyone,
I have a problem with the following: excel cycle through column.

This code lists the data in 15 columns:

Set divs = WPage.FindElementsByClass("xxx")
For i = 1 To 15
Worksheets("test").Range("C2").Columns(i).Value = divs(i).Text
Next

I would like to open new rows after 5 datas.
Without "for" loop the code is:

Set divs = WPage.FindElementsByClass("xxx")
For i = 1 To 15
    Worksheets("test").Range("C2").Value = divs(1).Text
    Worksheets("test").Range("D2").Value = divs(2).Text
    Worksheets("test").Range("E2").Value = divs(3).Text
    Worksheets("test").Range("F2").Value = divs(4).Text
    Worksheets("test").Range("G2").Value = divs(5).Text
    Worksheets("test").Range("H2").Value = divs(6).Text
    
    Worksheets("test").Range("C3").Value = divs(7).Text
    Worksheets("test").Range("D3").Value = divs(8).Text
    Worksheets("test").Range("E3").Value = divs(9).Text
    Worksheets("test").Range("F3").Value = divs(10).Text
    Worksheets("test").Range("G3").Value = divs(11).Text
    Worksheets("test").Range("H3").Value = divs(12).Text
    
    Worksheets("test").Range("C4").Value = divs(13).Text
    Worksheets("test").Range("D4").Value = divs(14).Text
    Worksheets("test").Range("E4").Value = divs(15).Text
    Worksheets("test").Range("F4").Value = divs(16).Text
    Worksheets("test").Range("G4").Value = divs(17).Text
    Worksheets("test").Range("H4").Value = divs(18).Text

I would like to do with "for loop".
Thanks for helping!

 

[James006]

Hi,
You could test following:

Sub Test()
Dim i As Long, lrow As Long, lcol As Long
    For i = 1 To 18
        lrow = Int(Int(i - 1) / 6) + 2
        lcol = ((i - 1) Mod 6) + 3
        Worksheets("test").Cells(lrow, lcol).Value = divs(i).Text
    Next i
End Sub