VBA Macro to Match Cells in Range

[DallyDally]

Hello,

Looking for a macro to match already entered cells. I would be matching the persons picks ($1 fields) with the earnings field. After the match, I would sort highest to lowest.

sheet is attached and a picture for quick reference.

Any help would be appreciated and thanks in advance!

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Macro to Match Cells
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[DallyDally]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Macro to Match Cells
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

Hey Sorry about that. I will edit post now. I have posted same question in another forum. Thank you

 

[Fluff]

How about

Sub Dally()
   With Range("F3:J12")
      .Value = Evaluate("if(" & .Address & "="""",""""," & .Address & "*e3:e12)")
   End With
End Sub

If you want to sort by total row, then you will need to get rid of the merged cells.

 

[DallyDally]

How about

Sub Dally()
   With Range("F3:J12")
      .Value = Evaluate("if(" & .Address & "="""",""""," & .Address & "*e3:e12)")
   End With
End Sub

If you want to sort by total row, then you will need to get rid of the merged cells.

Thank you very much that worked perfectly! I will unmerge the cells at the top and try to figure out a way to auto sort in the code. Thank you again I appreciate it!

 

[Fluff]

Once the cells are unmerged you can use

Sub Dally()
   With Range("F3:J12")
      .Value = Evaluate("if(" & .Address & "="""",""""," & .Address & "*e3:e12)")
   End With
   Range("F1:J15").Sort Rows(15), xlDescending, , , , , , , , , xlSortRows
End Sub

which will sort by row 15.

 

[DallyDally]

Cant thank you enough Fluff! Much appreciated.

 

[Fluff]

You're welcome & thanks for the feedback.