kalau dibuat fixed ya sangat bisa
malah tidak perlu INPUTBOX lagi
langsung saja; misalnya
*Set dRng = SheetX.Range("C10:C1000")*
tetapi: artinya tidak dapat diberlakukan bagi masalah sejenis
milik orang lain
misalnya orang lain range nya di CX1000:CX:2000
apa harus mengubah makro nya
jadi kesimpulannya makro itu sebagian besar bersifat khusus
terutama kalau mau dipakai sendiri
tks
On Sat, Sep 5, 2009 at 3:39 PM, easy goin <[email protected]> wrote:
>
>
> 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
>
