Hi,
I have this code and its not working on VBA, but applied with Ctrl+Shift+enter manual its works.
I have this code and its not working on VBA, but applied with Ctrl+Shift+enter manual its works.
Code:
With Worksheets("Sheet2") 'Rank
With .Range("G5:G" & .Range("A" & .Rows.Count).End(xlUp).Row)
.FormulaArray = "=IF(E5="""","""",COUNTIF($E$5:$E$8000,"">""&E5)+SUM(IF(E5=$E$5:E5,1,0)))" --- Same is not working
.Value = .Value
End With
End With
Last edited by a moderator: