Coba pakai Worksheet Event BeforeDoubleClick berikut ini:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
If Target.Row = 3 Then
Range("A3:A106").Select
Selection.FormulaR1C1 = "=N(R[-1]C)+1"
End If
End If
End Sub
Salam,
Hendrik Karnadi
________________________________
From: Suka Sih <[email protected]>
To: [email protected]
Sent: Saturday, 24 November 2012, 11:32
Subject: ]] XL-mania [[ Buat Nomor Urut Otomatis
Kepada penggemar excel saya mohon bantuannya untuk meringkas/menyederhanakan
kode mengurutkan nomor yang saya buat, terima kasih
