Update cell value in another column based on conditional formatting

[vineet78]

Hi,

i am finding top 10 values using VBA in a particular column but not able to update next column cell value based on this conditional formatting.

 

[vineet78]

am using below vba

Set rg = Range("AU2:AU" & last_row).SpecialCells(xlCellTypeVisible)
Set tt = rg.FormatConditions.AddTop10

With tt
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
.Interior.Color = vbYellow
End With