check group status

macropod · #1 05-01-2012, 07:47 AM

Here's a macro for processing the data in Excel. If the number of columns is liable to vary as you suggest, the simplest solution would be to have the status data as the second field, with the group IDs as the first field. The macro would need some minor re-coding for that, but that's a lot easier than coding for variable column counts, especially if the number of columns per row varies.

Code:

Sub UpdateGroupFlags()
Application.ScreenUpdating = False
Dim I As Long, LastRow As Long, strGrp As String, strStatus As String
LastRow = Worksheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row
With Worksheets("Sheet1")
  .Range("A1:C" & LastRow).Sort Key1:=.Columns("A"), Key2:=.Columns("C"), _
    Key2:=.Columns("B"), Order1:=xlAscending, Header:=xlNo
    For I = 2 To LastRow
      If .Range("A" & I).Value <> strGrp Then
        strGrp = .Range("A" & I).Value
        strStatus = .Range("C" & I).Value
      Else
        .Range("C" & I).Value = strStatus
      End If
    Next
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Resource Status	BrownHornet	Outlook	0	04-12-2012 10:47 PM
Link word check box to access check box	Mrkieth	Word	4	01-30-2012 06:43 AM
Checking ref # status based on sheet2 ref #.	aligahk06	Excel	1	04-26-2010 11:22 PM
Sending 1 message but status bar says 1 of 4...	baldmancan	Outlook	4	03-06-2009 12:04 PM
Document status changes to read only	rtankersley	Word	0	10-01-2008 05:15 AM