Terima kasih pak Hendrik....
Oya,saya ingin bertanya lagi. Bagaimana jika di Kolom B1 berisi (Value Formula)
saya coba utak-atik di bagian:
If Len(.Value) <> 0
tapi saya tidak berhasil karena saya belum memahami fungsi-fungsi dari vba...
Mohon solusinya...
On 11/21/14, hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Menurut saya polanya sama pak Supri...Karena ada baris judul maka
> penomorannya dimulai dari baris 2 (.Row>1). Nomornya juga harus dikurangi 1
> (.Row-1)
> Salam,HK
>
> ----- Forwarded Message -----
> From: "supri anto supriantohdl07ex...@gmail.com [belajar-excel]"
> <belajar-excel@yahoogroups.com>
> To: belajar-excel@yahoogroups.com
> Sent: Friday, 21 November 2014, 7:14
> Subject: Re: [belajar-excel] membuat no urut dengan macro
>
> 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
>>>>
>>>>
>>>
>>
> #yiv2302025197 #yiv2302025197 -- #yiv2302025197ygrp-mkp {border:1px solid
> #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2302025197
> #yiv2302025197ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2302025197
> #yiv2302025197ygrp-mkp #yiv2302025197hd
> {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
> 0;}#yiv2302025197 #yiv2302025197ygrp-mkp #yiv2302025197ads
> {margin-bottom:10px;}#yiv2302025197 #yiv2302025197ygrp-mkp .yiv2302025197ad
> {padding:0 0;}#yiv2302025197 #yiv2302025197ygrp-mkp .yiv2302025197ad p
> {margin:0;}#yiv2302025197 #yiv2302025197ygrp-mkp .yiv2302025197ad a
> {color:#0000ff;text-decoration:none;}#yiv2302025197
> #yiv2302025197ygrp-sponsor #yiv2302025197ygrp-lc
> {font-family:Arial;}#yiv2302025197 #yiv2302025197ygrp-sponsor
> #yiv2302025197ygrp-lc #yiv2302025197hd {margin:10px
> 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2302025197
> #yiv2302025197ygrp-sponsor #yiv2302025197ygrp-lc .yiv2302025197ad
> {margin-bottom:10px;padding:0 0;}#yiv2302025197 #yiv2302025197actions
> {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2302025197
> #yiv2302025197activity
> {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2302025197
> #yiv2302025197activity span {font-weight:700;}#yiv2302025197
> #yiv2302025197activity span:first-child
> {text-transform:uppercase;}#yiv2302025197 #yiv2302025197activity span a
> {color:#5085b6;text-decoration:none;}#yiv2302025197 #yiv2302025197activity
> span span {color:#ff7900;}#yiv2302025197 #yiv2302025197activity span
> .yiv2302025197underline {text-decoration:underline;}#yiv2302025197
> .yiv2302025197attach
> {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
> 0;width:400px;}#yiv2302025197 .yiv2302025197attach div a
> {text-decoration:none;}#yiv2302025197 .yiv2302025197attach img
> {border:none;padding-right:5px;}#yiv2302025197 .yiv2302025197attach label
> {display:block;margin-bottom:5px;}#yiv2302025197 .yiv2302025197attach label
> a {text-decoration:none;}#yiv2302025197 blockquote {margin:0 0 0
> 4px;}#yiv2302025197 .yiv2302025197bold
> {font-family:Arial;font-size:13px;font-weight:700;}#yiv2302025197
> .yiv2302025197bold a {text-decoration:none;}#yiv2302025197
> dd.yiv2302025197last p a
> {font-family:Verdana;font-weight:700;}#yiv2302025197 dd.yiv2302025197last p
> span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2302025197
> dd.yiv2302025197last p span.yiv2302025197yshortcuts
> {margin-right:0;}#yiv2302025197 div.yiv2302025197attach-table div div a
> {text-decoration:none;}#yiv2302025197 div.yiv2302025197attach-table
> {width:400px;}#yiv2302025197 div.yiv2302025197file-title a, #yiv2302025197
> div.yiv2302025197file-title a:active, #yiv2302025197
> div.yiv2302025197file-title a:hover, #yiv2302025197
> div.yiv2302025197file-title a:visited {text-decoration:none;}#yiv2302025197
> div.yiv2302025197photo-title a, #yiv2302025197 div.yiv2302025197photo-title
> a:active, #yiv2302025197 div.yiv2302025197photo-title a:hover,
> #yiv2302025197 div.yiv2302025197photo-title a:visited
> {text-decoration:none;}#yiv2302025197 div#yiv2302025197ygrp-mlmsg
> #yiv2302025197ygrp-msg p a span.yiv2302025197yshortcuts
> {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2302025197
> .yiv2302025197green {color:#628c2a;}#yiv2302025197 .yiv2302025197MsoNormal
> {margin:0 0 0 0;}#yiv2302025197 o {font-size:0;}#yiv2302025197
> #yiv2302025197photos div {float:left;width:72px;}#yiv2302025197
> #yiv2302025197photos div div {border:1px solid
> #666666;height:62px;overflow:hidden;width:62px;}#yiv2302025197
> #yiv2302025197photos div label
> {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2302025197
> #yiv2302025197reco-category {font-size:77%;}#yiv2302025197
> #yiv2302025197reco-desc {font-size:77%;}#yiv2302025197 .yiv2302025197replbq
> {margin:4px;}#yiv2302025197 #yiv2302025197ygrp-actbar div a:first-child
> {margin-right:2px;padding-right:5px;}#yiv2302025197 #yiv2302025197ygrp-mlmsg
> {font-size:13px;font-family:Arial, helvetica, clean,
> sans-serif;}#yiv2302025197 #yiv2302025197ygrp-mlmsg table
> {font-size:inherit;font:100%;}#yiv2302025197 #yiv2302025197ygrp-mlmsg
> select, #yiv2302025197 input, #yiv2302025197 textarea {font:99% Arial,
> Helvetica, clean, sans-serif;}#yiv2302025197 #yiv2302025197ygrp-mlmsg pre,
> #yiv2302025197 code {font:115% monospace;}#yiv2302025197
> #yiv2302025197ygrp-mlmsg * {line-height:1.22em;}#yiv2302025197
> #yiv2302025197ygrp-mlmsg #yiv2302025197logo
> {padding-bottom:10px;}#yiv2302025197 #yiv2302025197ygrp-msg p a
> {font-family:Verdana;}#yiv2302025197 #yiv2302025197ygrp-msg
> p#yiv2302025197attach-count span
> {color:#1E66AE;font-weight:700;}#yiv2302025197 #yiv2302025197ygrp-reco
> #yiv2302025197reco-head {color:#ff7900;font-weight:700;}#yiv2302025197
> #yiv2302025197ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2302025197
> #yiv2302025197ygrp-sponsor #yiv2302025197ov li a
> {font-size:130%;text-decoration:none;}#yiv2302025197
> #yiv2302025197ygrp-sponsor #yiv2302025197ov li
> {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2302025197
> #yiv2302025197ygrp-sponsor #yiv2302025197ov ul {margin:0;padding:0 0 0
> 8px;}#yiv2302025197 #yiv2302025197ygrp-text
> {font-family:Georgia;}#yiv2302025197 #yiv2302025197ygrp-text p {margin:0 0
> 1em 0;}#yiv2302025197 #yiv2302025197ygrp-text tt
> {font-size:120%;}#yiv2302025197 #yiv2302025197ygrp-vital ul li:last-child
> {border-right:none !important;}#yiv2302025197
>
>
