dear Mba siti,
iseng2 saya coba inputboxnya dirubah jadi fixed range juga bisa jalan.
terima kasih banyak atas bantuannya
Dim i As Long, n As Long
Dim dRange As Range
Dim d As Variant
Set dRange = Range("C3") 'Application.InputBox( _
'"Tunjukkan padaku Cell DataPertama :", _
'"NomorUrut Data", Selection.Address, _
', , , , 8)
Set dRange = Range(dRange, dRange.End(xlDown))
For i = 1 To dRange.Rows.Count
d = dRange(i, 1)
If d <> dRange(i - 1, 1) Then n = 0
n = n + 1
dRange(i, 0) = n
Next i
Selalu bisa chat di profil jaringan, blog, atau situs web pribadi! Yahoo!
memungkinkan Anda selalu bisa chat melalui Pingbox. Coba!
http://id.messenger.yahoo.com/pingbox/
