Looping - columns

[crisstyd]

I'm trying to loop through columns and have gotten stuck. The macro works, but only on Column A and I need it to do the same thing to 5 rows. Basically, this is what I need to do:

Range("a8").Select
(do something special with this data)
Range("a9").Select
(do something special with this data)

Range("a10").Select
(do the same thing to all the cells through cell A371 )

Here is where I am stuck... I need it to move on to "b8" and do the same thing, then on to "c8" or until there is no data in row 8.

I hope this makes sense. I greatly appreciate any help!!

 

[puru.sve]

Hi Cris

Try to use do while with cells object. like as

Sub YourProgram()
  i = 1   ' set i equl to 1 to start from column A
  Do While (Cells(8, i).Value <> "")  ' where i will be your counter for column till nonblank 
  Cells(8, i).select ' then do your work 
  Cells(9, i).select ' then do your work 
  Cells(10, i).select ' then do your work 

i = i + 1
Loop
 
 
End Sub

 

[Trebor76]

Hi crisstyd,

Try this:

Option Explicit
Sub Macro6()

    Dim rngCell As Range, _
        rngMyRange As Range
        
    Set rngMyRange = Range("A8:E371") 'Range to work with. Change to suit.
        
    For Each rngCell In rngMyRange
        'crisstyd, this is where your code will go for each cell in the desired range.
    Next rngCell

End Sub

HTH

Robert

 

[crisstyd]

Hi crisstyd,

Try this:

Option Explicit
Sub Macro6()

    Dim rngCell As Range, _
        rngMyRange As Range
        
    Set rngMyRange = Range("A8:E371") 'Range to work with. Change to suit.
        
    For Each rngCell In rngMyRange
        'crisstyd, this is where your code will go for each cell in the desired range.
    Next rngCell

End Sub

HTH

Robert

Thanks. With your help, I got it working. You are a lifesaver!

 

[Trebor76]

Thanks. With your help, I got it working. You are a lifesaver!

You're welcome. I'm glad MrExcel was able to provide you with a workbale solution.