Revise!! Excel VBA Code question?

[Javi]

I am totally failing at this one.

Column B has multiple duplicates, Column K has my 2nd criteria.

All matches in column B with only 0 in column K needs to be indicated in column 0 with a true or false or whatever anthing to sort by.

If a match single or group has a value other than 0 in column K it needs to be ignored or indicated with a different indicator so I may sort by.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I would post what I have to this point however nothing is working.

 

[LxQ]

Did you do =0 or >0?

 

[Trebor76]

This formula (initially in cell P2 and copied down to P40) reconciles to Col Q from your latest upload...

=IF(SUMIF($B$2:$B$40,B2,$K$2:$K$40)=0,"K","D")

...or via a macro:

Option Explicit
Sub Macro1()

    'http://www.mrexcel.com/forum/newreply.php?do=newreply&noquote=1&p=2876479

    Dim lngLastRow As Long
    
    lngLastRow = Range("B" & Rows.Count).End(xlUp).Row 'Finds the last row from Col B.  Change to suit.

    With Range("O2:O" & lngLastRow)
        .Formula = "=IF(SUMIF($B$2:$B$" & lngLastRow & ",B2,$K$2:$K$" & lngLastRow & ")=0,""K"",""D"")"
        .Value = .Value
    End With

End Sub

HTH

Robert

 

[Javi]

With much help from LxQ the below formula worked great! What would it look like in VBA?

=IF(AND(COUNTIF($B$2:$B$85000,B5)>0,SUMIF($B$2:$B$85000,B5,$K$2:$K$85000)=0),"K","D")