coba script yang ini..
Dim rgNpb As Range, cel As Range, rgCount As Range
Dim lRow As Long, lCel As Long
Dim iCount As Integer
lRow = Cells(Rows.Count, 2).End(xlUp).Row
Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
For Each cel In rgNpb
lCel = cel.Row
Set rgCount = Range(Cells(6, 2), Cells(lCel, 2))
iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
cel.Offset(, 20).Value = cel.Value & "-" & iCount
Next cel
Salam,
-Miss Jan Raisin-
Pada 6 September 2013 07.19, neza ibaneza <[email protected]> menulis:
> **
>
>
> Salam B-Excel
>
> Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada
> sebagian yang tidak running
> masalahnya dimana ya?
>
> Salam
> Neza
>
> __.
>
