For i = 1 To 6
For k = i + 1 To 6
For y = 1 To 5

If criterc(y) = 1 Then
h(i, 0) = " c(" & i & ", " & k & ")"
h(i, y + 1) = y

Else


If criterd(y) = 1 Then
l(i, 0) = " c(" & i & ", " & k & ")"
l(i, y + 1) = y
End If
Next y
Next k
Next i

End If


End Sub


bole bi kod yazdim ama surekli hata veriyor...next without for..for without next gibi ne yaptiysam olmadi