Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO
atau No. PR
Sub xxx()
Dim Data As Range, Rng As Range
Dim iCol As Integer, lRow As Long
'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
iCol = Evaluate("=MATCH(U5,A5:T5,0)")
'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2 MILIH
DATANYA, MUTER2 :D)
Set Data = Range(Cells(6, iCol), Cells(6, 1).End(xlDown).Offset(,
iCol - 1).Address)
For Each Rng In Data
Cells(Rng.Row, 22) = Rng & "-" & Evaluate("=COUNTIF(" &
Cells(6, iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")")
Next
End Sub
On 09-09-2013 11:06, dwint ruswanto wrote:
Dim rgNpb As Range, cel As Range
Dim lRow As Long, lCel As Long
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
cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B" &
lCel & ",B" & lCel & ")")
Next cel
