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