current community

your communities

more stack exchange communities

Stack Exchange
tour help
careers 2.0
Take the 2-minute tour ×
Stack Overflow is a question and answer site for professional and enthusiast programmers. It's 100% free, no registration required.
up vote 0 down vote favorite

This question already has an answer here:

I am trying to set up a simple for loop in Excel VBA that starts at a specified row, and iterates till the end of the document? I cant seem to find out how to do this through google. Any help would be greatly appreciated.

share|improve this question

marked as duplicate by KazJaw, Jon Crowell, chris neilsen, me how, psubsee2003 Mar 1 at 1:19

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.
1  
Refer this link stackoverflow.com/questions/6301665/… –  Santosh Jun 3 '13 at 2:31
1  
And this link, too. –  chuff Jun 3 '13 at 2:32
2  
Or this one: Creating a Loop in VBA –  Jon Crowell Jun 3 '13 at 3:55

3 Answers 3

up vote 1 down vote

This will loop through rows until a blank cell is found. 

  Dim iRow As Integer
  iRow = 0
  Do
    iRow = iRow + 1
    'do something
    Debug.Print ActiveSheet.Range("A" & iRow).Value

  Loop Until ActiveSheet.Range("A" & iRow).Formula = ""
share|improve this answer
    
Note that this won't work if you have any blank rows in the range you are looping through. –  Jon Crowell Jun 3 '13 at 12:33
    
Yes, that's why it says "will look through rows until a BLANK cell is found". –  nemmy Jun 3 '13 at 21:02
1  
Many data sets have blank rows sprinkled throughout. If you stop once you hit a blank, you won't process all of the data. The standard approach to this is to find the last row and them stop when you hit that, NOT a blank. –  Jon Crowell Jun 3 '13 at 21:26
up vote 1 down vote

If you would like the user to specify which cell to start in this will work.

Sub myLoop()
Dim userInput As String
Dim count As Integer
Dim first As Integer

userInput = InputBox("Which cell would you like to start in?", "Enter Range like 'A1'")
first = ActiveSheet.Range(userInput).Row
count = ActiveSheet.UsedRange.Rows.count

For i = first To count
    MsgBox "Row: " & i
    'Replace the above msgbox function with the code you would like to run
Next i
End Sub
share|improve this answer
up vote -2 down vote 
Dim CurrentRow
Dim LastRow
Dim i

CurrentRow = ActiveCell.Row
CurrentColumn = ActiveCell.Column
LastRow = ActiveSheet.Rows.Count

For i = CurrentRow to LastRow
   Cells(i, CurrentColumn).Value = "X"
Next i
share|improve this answer

Not the answer you're looking for? Browse other questions tagged or ask your own question.