copy multiple records based on criteria or total amount

  • Thread starter Thread starter David
  • Start date Start date
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.
 
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?
 
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top