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 >> >> >