Hai Suka,
Coba gunakan event Worksheet Change daripada Worksheet Selection Change.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long 'nomor baris excel
'simpan nomor baris terakhir yang berubah
lRow = Target.Cells(Target.Rows.Count, 1).Row
If lRow > 2 Then 'yang berubah di bawah header (header baris 2)
Application.EnableEvents = False 'turnoff event (ada pengubahan
nilai di kolom A)
With Sheet1.Range("a3:a" & lRow) 'pada range a3 sampai baris
berubah di kolom a
.Formula = "=row()-2" 'pasang formula =row()-2
(karena header di baris 2)
.Parent.Calculate 'kalkulasi sheet (siapa tahu
setting calculation manual)
.Value = .Value 'di-values-ken
End With 'selesai bekerja pada range
nomor
Application.EnableEvents = True 'event boleh aktif lagi
End If 'selesai blok kerja terhadap baris data
End Sub
Event worksheet selection bisa dihapus
Wassalam,
Kid.
2012/11/24 Suka Sih <[email protected]>
> **
>
>
> Kepada penggemar excel saya mohon bantuannya untuk
> meringkas/menyederhanakan kode mengurutkan nomor yang saya buat, terima
> kasih
>
> _
>
