mba egi saya telah mencoba menambahkan fungsi row sehingga menjadi :
Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 2 Then If .Row > 1 Then If Len(.Value) <> 0 Then .Offset(, -1).Value = .Row - 1 End If End If End If End With End Sub berhasil... tapi apakah sama polanya menurut mba egi.... On 11/21/14, supri anto <supriantohdl07ex...@gmail.com> wrote: > Alhamdulillah... > terima kasih atas tanggapannya pak Hendrik dan mba egi... > > pak hendrik... Oya, saya lupa Headernya kolom di A1 dan B1 > Range("A1:A" saya coba ganti menjadi Range("A2:A" tapi malah restar... > > mba egi... bagaimana jika ada Headernya di kolom A1 dan B1 > > On 11/20/14, egidia seftyanaputri egidia.s.pu...@gmail.com > [belajar-excel] <belajar-excel@yahoogroups.com> wrote: >> Wa'alaikumsalam wr. wb., >> >> coba cekrip berikut ini: >> >> Private Sub Worksheet_Change(ByVal Target As Range) >> With Target >> If .Column = 2 Then >> If Len(.Value) <> 0 Then >> .Offset(, -1).Value = .Row >> End If >> End If >> End With >> End Sub >> >> Wassalamu'alaikum wr wb. >> >> Egi >> >> Pada 20 November 2014 11.02, supri anto supriantohdl07ex...@gmail.com >> [belajar-excel] <belajar-excel@yahoogroups.com> menulis: >> >>> >>> >>> Assalamu'alaikum wr wb... >>> Para Master Excel.... >>> >>> Mohon bantuannya,. >>> Bagaimana ya membuat no urut otomatis dengan macro. >>> jika kolom B terisi data maka kolom A akan otomatis No urutnya.... >>> >>> Terima kasih >>> salam >>> supri >>> >>> >> >