Någon som kan säga vad det är för fel på följande kod. Satta villkor för de jämförande operatorerna genererar fel svar.
Koden levererar 1,2,3,4 och 5 för variabeln a, trots att det rätta ska vara 2,3 och 4
Sub prov_räknare()
Worksheets("Blad1").Range("A1:W55500").ClearContents
Dim a, b, c, d, e, t, s As Long
For a = 1 To 5
For b = 1 To 5
For c = 1 To 5
s = s + 1
If 2 <= a <= 4 And b <= 2 Then
t = t + 1
GoTo 100
Else: GoTo 200
End If
100
Cells(t + 1, 3).Value = a
Cells(t + 1, 4).Value = ","
Cells(t + 1, 5).Value = b
Cells(t + 1, 6).Value = ","
Cells(t + 1, 7).Value = c
Cells(3, 12).Value = "Godkännda rader"
Cells(3, 15).Value = t
200
Cells(5, 12).Value = "Ej Godkännda rader"
Cells(4, 15).Value = "Ej rätt"
Next c
Next b
Next a
Cells(5, 15).Value = s
End Sub