copy multiple records based on criteria or total amount

J

Joel

Try this change. I didn't test but should work

Set CopyRange = .Rows("2:" & LastRow) _
.SpecialCells(Type:=xlCellTypeVisible)
If Not CopyRange Is Nothing Then
CopyRange.Copy _
Destination:=NonAwardSht.Rows(NewRow)
End If

You don't have to manually assign the unasigned contacts. If you have a
rane with buckets

10%, 30%, 20%,40%

You can make the last bucket 100% and it will get all the unassigned
contracts. Also changing the order of the buckets gets different results.
I'm no sure if it is better to assign the buckets from lowest to highest
percenage or highest to lowest percentage.
 
D

David

Hi Joel,

I want to add another sheet to the file called "Forced" and i dont want the
macro to delete it, what could should i change?
 
J

Joel

from

For ShtCount = Sheets.Count To 1 Step -1
If Sheets(ShtCount).Name <> "Awards" And _
Sheets(ShtCount).Name <> "Contracts" Then


to

For ShtCount = Sheets.Count To 1 Step -1
If Sheets(ShtCount).Name <> "Awards" And _
Sheets(ShtCount).Name <> "Contracts" And _
Sheets(ShtCount).Name <> "Forced" Then
 
Top