Selecting a column and makin a loop

[bountiful]

Sub FindAddressColumn()
  Dim rngAddress As Range
  Set rngAddress = Range("A1:Z1").Find("Search:")
  'rngAddress(Selection.Offset(1), Selection.End(xlDown))
  'rngAddress(Seleciton.Offset(1), Selection.End(xlUp)).Select
  If rngAddress Is Nothing Then
    MsgBox "Address column was not found."
    
    
While ActiveCell Is Not Nothing     <-------my problem is here
    If ActiveCell = ActiveCell.Offset(1) Then
        'dostuff    Else
       ActiveCell = ActiveCell.Offset(1)
       
    
    
    
        
    
 
 
    
    Exit Sub
  End If
'  Range(rngAddress, rngAddress.End(xlDown)).Select
End Sub

do you see what i'm trying to do? can you help?

 

[Norie]

Perhaps something like this, but it might help to know what you want to do with the column and it's values.

Sub FindAddressColumn()
  Dim rngAddress As Range
  Set rngAddress = Range("A1:Z1").Find("Search:")

  If rngAddress Is Nothing Then
    MsgBox "Address column was not found."
  Else
     Set rngAddress = rngAddress.Offset(1)  
    
     While rngAddress<>""     <-------my problem is here
        If rngAddress = rngAddress.Offset(1) Then
        'dostuff    
        End If
       Set rngAddress = rngAddress.Offset(1)
     Wend
  End If
End Sub

 

[bountiful]

Perhaps something like this, but it might help to know what you want to do with the column and it's values.

yes, like that. You have helped so far.

basically I need to go through a column that I have dynamically found/referenced/"searched for" and do things with the data if it's the same as the last row and something else if it's different.


does that make enough sense?

 

[bountiful]

new thread:
http://www.mrexcel.com/forum/excel-questions/863528-walking-through-column-row-row.html#post4193715

 

[Norie]

Why a new thread?

 

[bountiful]

Why a new thread?

for quik help, sorry