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 [email protected]
[belajar-excel] <[email protected]> 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
>
>
