Do Loop, Please help!

[dhlesg]

Hello,
I try to layout a Matrix

A1 A2 A3 A4
A1 1
A2 1
A3 1
A4 1

The code is
___________________________________
Dim numberofcriteria As Integer
Dim Col As Long
numberofcriteria = Range("c7").Value
For i = 1 To numberofcriteria
For Col = 10 To 10 + numberofcriteria - 1
Range("I" & 7 + i).Value = Range("b" & 9 + i).Value
Cells(7, Col).Value = Range("b" & 9 + i).Value
Next Col
'Range("I" & 7 + i).Value = Range("b" & 9 + i).Value
Next i
____________________________________
Somehow my Loop does not work and I can only obtain
A4 A4 A4 A4
A1
A2
A3
A4

Please help .
Thank you in advance

 

[Ralajer]

If I understand your requirements you only need 1 for loop.

Try:

Sub foo()
    Dim numberofcriteria As Integer
    Dim i As Integer
    
    numberofcriteria = Range("C7").Value
    
    For i = 1 To numberofcriteria
        'Row Output
        Cells(7 + i, 9).Value = Cells(9 + i, 2).Value
        'Column Output
        Cells(7, 9 + i).Value = Cells(9 + i, 2).Value
    Next i
End Sub

 

[dhlesg]

Hi Rob,
Thank you for the answer.

 

[Ralajer]

dhlesg,

Thanks for the feedback. It is always appreciated.