Loop through row in Excel VBA

This short article giving a code snippet for looping through a row in Excel using VBA.

Public Sub RunDetermineDate()

  Dim rng1 As Range

  ‘Set the activecell to Range

  Set rng1 = ActiveCell

 

  ‘Check if the cell is not empty

  Do While Not (IsEmpty(ActiveCell.Value))

    DetermineDate (ActiveCell.Value)

    ‘Move on cell down

    rng1.Offset(1, 0).Select

    ‘reassign ActiveCell to Range

    Set rng1 = ActiveCell

  Loop

End Sub

About chanmingman

Since March 2011 Microsoft Live Spaces migrated to Wordpress (http://www.pcworld.com/article/206455/Microsoft_Live_Spaces_Moves_to_WordPress_An_FAQ.html) till now, I have is over 1 million viewers. This blog is about more than 50% telling you how to resolve error messages, especial for Microsoft products. The blog also has a lot of guidance teaching you how to get stated certain Microsoft technologies. The blog also uses as a help to keep my memory. The blog is never meant to give people consulting services or silver bullet solutions. It is a contribution to the community. Thanks for your support over the years. Ming Man is Microsoft MVP since year 2006. He is a software development manager for a multinational company. With 25 years of experience in the IT field, he has developed system using Clipper, COBOL, VB5, VB6, VB.NET, Java and C #. He has been using Visual Studio (.NET) since the Beta back in year 2000. He and the team have developed many projects using .NET platform such as SCM, and HR based applications. He is familiar with the N-Tier design of business application and is also an expert with database experience in MS SQL, Oracle and AS 400.
This entry was posted in .Net, Community, Microsoft Office and tagged , , , . Bookmark the permalink.

One Response to Loop through row in Excel VBA

  1. Eva Vogel says:

    Hi Chan Ming Man, nice little blog!! Go ahead 🙂 … I ve seen your Excel-VBA-Code and would like to offer a better one, because function “DetermineDate” must have been written there and people could be astonished while its not working with your code. Let me suggest another like this:
    Public Sub RunPrintit()

    Dim rng1 As Range, printit As String
    Dim thiscol As Long

    ‘ ‘Set the activecell to Range

    Set rng1 = ActiveCell
    ‘check out the column of rng1 and select 1st row
    thiscol = ActiveCell.Column
    Cells(1, thiscol).Select

    ‘ ‘Check if the cell is not empty

    Do While Not (IsEmpty(rng1.Value))
    printit = printit & ActiveCell.Value & ” ”
    Debug.Print printit
    ‘ ‘Move on cell down
    rng1.Offset(1, 0).Select
    ‘ ‘reassign ActiveCell to Range
    Set rng1 = ActiveCell

    Loop
    ‘set it back to row 1
    Cells(1, thiscol).Select

    ‘tell the world your values in rng1
    MsgBox printit
    End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s