The For Loop

Setting cell values.

Dim x As IntegerFor x = 1 To 5ActiveSheet.Cells(x, 1).Value = xNext

Looping based on variables.

'ConstantsPrivate Const colIndex = 1'VariablesDim initialRow As IntegerDim finalRow As Integer
Sub RUN_ME()'Set row valuesinitialRow = 1finalRow = 6'Loop based on row valuesIf (initialRow > finalRow) Then MsgBox "Cannot run the For loop. Initial row index is larger than final row index."Else Dim x As Integer For x = initialRow To finalRow ActiveSheet.Cells(x, colIndex).Value = x NextEnd IfEnd Sub

Adding rows to the used range.

'ConstantsPrivate Const colIndex = 1'VariablesDim initialRow As IntegerDim finalRow As Integer
Sub RUN_ME()'Set row valuesinitialRow = ActiveSheet.UsedRange.Rows.CountfinalRow = initialRow + 3'Loop based on row valuesIf (initialRow > finalRow) Then MsgBox "Cannot run the For loop. Initial row index is larger than final row index."Else Dim x As Integer For x = initialRow To finalRow ActiveSheet.Cells(x, colIndex).Value = x NextEnd IfEnd Sub

Page updated

Google Sites

Report abuse