Cut and paste if conditions are met
Jeremy,
Try the macro below. I've assumed that your Summary page is named Summary.
HTH,
Bernie
MS Excel MVP
Sub MakeSummary()
Dim myS As Worksheet
Dim mySS As Worksheet
Dim myR As Long
Dim myC As Range
Dim myF As Range
Dim FirstAddress As String
Set mySS = Worksheets("Summary")
For Each myS In Worksheets
If myS.Name < mySS.Name Then
With myS.Range("H:H")
Set myC = .Find("YES")
If Not myC Is Nothing Then
Set myF = myC
FirstAddress = myC.Address
Set myC = .FindNext(myC)
If Not myC Is Nothing And myC.Address < FirstAddress Then
Do
Set myF = Union(myF, myC)
Set myC = .FindNext(myC)
Loop While Not myC Is Nothing And myC.Address < FirstAddress
End If
myF.EntireRow.Copy mySS.Cells(Rows.Count, 1).End(xlUp)(2).EntireRow
myF.EntireRow.Delete
End If
End With
End If
Next myS
End Sub
"Jeremy" <jeremiah.a.reynolds @ gmail.com wrote in message
...
Hi:
I have a call log workbook that has a sheet for each employee (14). I am
looking to create a push button macro that will populate a summary page for
all sheets when H=YES.
Essentially, I want to go into the summary page and click a button and have
all of the closed out items (yes = closed out) taken out of the individual
employee worksheet and put into the summary page. Then I want all of the
individual sheets cleaned up so that there are not a lot of blank rows
|