View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
MJKelly MJKelly is offline
external usenet poster
 
Posts: 114
Default search a row for data then move to next row

On Dec 16, 11:30*am, Joel wrote:
Sub test
Dim SickStaff As String
Can you give more details. *You are sreaching from G2:BB1000 which is more
than 10 columns and more than 50 rows. *Which is right. *The Range G2:BB1000 *
or your description of 10 columns and 50 rows?



"MJKelly" wrote:

Hi,


Iwant to search 10 columns of data one row at a time (50 rows). *If
the row contains the value "SL" then I want to add the value of the
first column of the current row to a variable. *I've tried looping
through the entire range, but I then end up with duplicated data. *I
need to move to the next row once the first instance of "SL" is found.


I have this so far (but it does not work


Sub test
Dim SickStaff As String
Dim d As Range


For Each d In ThisWorkbook.Sheets("AWD Grid").Range("G2:BB1000")
* * If d.Value = "SL" Then
* * * * SickStaff = SickStaff & Cells(d.Row, 1).Value & ", "
* * End If
Next d


End sub
Hope you can help.- Hide quoted text -


- Show quoted text -


Sorry,
I started writing the problem and tried to use easy numbers. I added
the code to show where I had got so far. I actualy want to search the
range in the code.

Many thanks,
Matt