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.
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