Checks values in a range 10 rows by 5 columns

 

Sub CheckValues3()
    Dim colIndex As Integer
    Dim rwIndex As Integer
    For colIndex = 1 To 5
            For rwIndex = 1 To 10
                If Cells(rwIndex, colIndex).Value <> 0 Then _
                    Cells(rwIndex, colIndex).Value = 1
            Next rwIndex
    Next colIndex
End Sub

Related examples in the same category

1.	For Loops with different steps
2.	you can go backward and use increments other than 1
3.	For...Next Loop
4.	The For...Next construct is used when you have an exact number of iterations you want to perform
5.	For loop whose step is 2
6.	Nest if statement into a for statement
7.	Iterates six times outputting the numbers 0, 2, 4, 6, 8, and 10 in a message box:
8.	iterates four times outputting the numbers 0, 3, 6, and 9 in a message box:
9.	the loop iterates just three times outputting the numbers 10, 5, and 0 in a message box:
10.	Non integer step for loop

Checks values in a range 10 rows by 5 columns : For « Language Basics « VBA / Excel / Access / Word

Related examples in the same category