Jumat, 21 November 2014

[belajar-excel] Digest Number 3195

11 Messages

Digest #3195

Messages

Thu Nov 20, 2014 6:18 am (PST) . Posted by:

"Abid Kausar"

السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Semangat Pagi Juga Mas :)

Kalo saya ubah Tanggal realisasinya (Seperti file terlampir)
berarti saya harus ke conditional formating di edit lagi ya mas?

apakah ada yang secara otomatis, begitu kita masukkan tanggal realisasi

atau tanpa mengisi tanggal realisasi otomatis warnanya sesuai kolom.
karena nantinya digunakan sebagai Template.

Apakah harus memakai VBA?

Terima kasih sebelumnya mas Heri atas bantuannya

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Pada 20 November 2014 16.32, 'Heri Pamungkas ( Gmail )'
ghery.dharma@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
menulis:

>
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Mungkin ada berbagai macam cara untuk case warna mewarnai.
>
> Dari Pakai VBA, Penggunaan Formula + Conditional Formating sampai
> Formula di Conditional Formating.
>
> Berikut adalah contoh memakai Formula di Conditional Formating.
> Saya berikan contoh 1 kolom, untuk 3 Kolom selanjutnya
> coba di utak-utak yaa...
>
> Untuk melihat formulanya bisa dilihat di Conditional Formating.
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 20/11/2014 14:08, Abid Kausar muhabka@gmail.com [belajar-excel] wrote:
>
>
> Terima kasih mas Nang Agus,
>
> maksudnya seperti ini mas,
>
> - Jika Target Date sama dengan Tanggal Realisasi maka terdapat warna
> hijau di kolom "Sesuai Target Date".
> - Jika Target Date melewati tanggalnya dan belum ada Tanggal realisasinya
> maka terdapat warna merah di kolom "Overdue".
> - Jika Target Date belum melewati tanggal target date dan belum ada
> tanggal realisasinya maka terdapat warna kuning di kolom "On Progress"
> - Jika Tanggal Realisasi melewati tanggal target date maka terdapat
> warna Orange di kolom "Tidak sesuai Target date".
>
> Terlampir ilustrasi nya mas Nang Agus
>
>
>
> Wassalam
>
> Pada 20 November 2014 06.49, Nang Agus nangagus@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
>
>>
>> Seperti inikah?
>>
>> sayangnya excel 2003 hanya dapat mewarnai 3 macam (3 conditional
>> formating), karena persoalan 4 kondisi maka digunakan excel 2007.
>>

>> salam
>>
>>
>> 2014-11-19 19:54 GMT+07:00 Abid Kausar muhabka@gmail.com [belajar-excel]
>> <belajar-excel@yahoogroups.com>:
>>
>>>
>>> Dear Suhu Excell,
>>>
>>> mohon bantuannya lagi,
>>>
>>> saya punya data schedule. dimana data ini memiliki beberapa kriteria di
>>> setiap kolomnya. Yaitu :
>>> 1. Sesuai Target Date (Berwarna Hijau)
>>> 2. On Progress (Berwarna Kuning)
>>> 3. Overdue (Berwarna Merah)
>>> 4. Tidak Sesuai Target Date (Orange)
>>>
>>> Dari data ini, jika sesuai dengan target date berwarna Hijau, jika
>>> belum melewati Target date maka di kolomnya berwarna kuning, jika telah
>>> melewati target date berwarna merah, dan jika tidak sesuai target date
>>> berwarna merah.
>>>
>>> saya ingin secara otomatis warnanya terisi disetiap kolomnya.
>>>
>>> Terima kasih atas bantuannya suhu Excell
>>>
>>>
>>>
>>> Wassalam,
>>>
>>
>>
>
>
>

Thu Nov 20, 2014 8:27 am (PST) . Posted by:

"parlin regar"

Dear be-excel
Mohon bantuannya, saya memiliki sebuah tabel yg berisi banyak formula.
Pertanyaanya bagaimana caranya untuk memproteksi formula yg ada di
tabel tersebut, saya sudah mencoba dgn format cells terpilih, proteksi
berhasil namun saat ada record baru tabel tdk berjalan.

Salam
Parlin

Thu Nov 20, 2014 3:12 pm (PST) . Posted by:

"Nang Agus"

Dear Parlin,
Saat akan membuat record baru silahkan protectnya dibuka dahulu, jika
recordnya selesai sheet di protect lagi.

2014-11-20 21:27 GMT+07:00 parlin regar parlin.regar4@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear be-excel
> Mohon bantuannya, saya memiliki sebuah tabel yg berisi banyak formula.
> Pertanyaanya bagaimana caranya untuk memproteksi formula yg ada di
> tabel tersebut, saya sudah mencoba dgn format cells terpilih, proteksi
> berhasil namun saat ada record baru tabel tdk berjalan.
>
> Salam
> Parlin
>
>

Thu Nov 20, 2014 7:24 pm (PST) . Posted by:

"parlin regar"

Dear Pak Agus

Terimakasih atas responnya, ribet dong kalau harus bongkar pasang
proteksi. Gk da cara lain ya.

Pada tanggal 20/11/14, Nang Agus nangagus@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> menulis:
> Dear Parlin,
> Saat akan membuat record baru silahkan protectnya dibuka dahulu, jika
> recordnya selesai sheet di protect lagi.
>
> 2014-11-20 21:27 GMT+07:00 parlin regar parlin.regar4@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear be-excel
>> Mohon bantuannya, saya memiliki sebuah tabel yg berisi banyak formula.
>> Pertanyaanya bagaimana caranya untuk memproteksi formula yg ada di
>> tabel tersebut, saya sudah mencoba dgn format cells terpilih, proteksi
>> berhasil namun saat ada record baru tabel tdk berjalan.
>>
>> Salam
>> Parlin
>>
>>
>

--
regards
Parlin

Thu Nov 20, 2014 8:10 pm (PST) . Posted by:

"Nang Agus"

Protect dan unprotect sheet khan dapat diserahkan ke VBA? jadi kalau
diperintah untuk isi record dibuka protecknya dulu, diisi record terus
diprotect lagi, semua perintah itu kahan dapat diwakili satu tombol.
atau dapat pula digunakan cara dengan menambahkan cekrip dengan perintah
untuk tidak dapat menghapus cell berformula tapi dapat mengisi cell kosong.

2014-11-21 8:23 GMT+07:00 parlin regar parlin.regar4@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Pak Agus
>
> Terimakasih atas responnya, ribet dong kalau harus bongkar pasang
> proteksi. Gk da cara lain ya.
>
> Pada tanggal 20/11/14, Nang Agus nangagus@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
> > Dear Parlin,
> > Saat akan membuat record baru silahkan protectnya dibuka dahulu, jika
> > recordnya selesai sheet di protect lagi.
> >
> > 2014-11-20 21:27 GMT+07:00 parlin regar parlin.regar4@gmail.com
> > [belajar-excel] <belajar-excel@yahoogroups.com>:
> >
> >>
> >>
> >> Dear be-excel
> >> Mohon bantuannya, saya memiliki sebuah tabel yg berisi banyak formula.
> >> Pertanyaanya bagaimana caranya untuk memproteksi formula yg ada di
> >> tabel tersebut, saya sudah mencoba dgn format cells terpilih, proteksi
> >> berhasil namun saat ada record baru tabel tdk berjalan.
> >>
> >> Salam
> >> Parlin
> >>
> >>
> >
>
> --
> regards
> Parlin
>
>

Thu Nov 20, 2014 3:03 pm (PST) . Posted by:

"Nang Agus"

Waalaikumsalam
Mas Prazt, bagaimana kalau dicoba record macro dahulu? file di A dicopy
kemudian di paste value kan di file B, lihat macro hasil record. ubah
sesuai keinginan.
Semoga saya tidak salah
Wasalamualaikumwarahmatullah.

2014-11-20 17:13 GMT+07:00 'prazt' praztmath@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum
>
> Selamat sore mmaster semua, bagaimana cara impor data dari excel ke excel,
> disini yaitu impor data dari file A dan file B ke File Wadah menggunakan
> MACRO, data yang ada difile A sheet 1 di impor ke file wadah sheet
> januari, dan data di file B sheet 1 diimpor ke file wadah pada sheet feb,
> dst
>
> Mohon bantuannya para master
>
>
>

Thu Nov 20, 2014 7:24 pm (PST) . Posted by:

"supri anto"

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 <supriantohdl07excel@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.putri@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 supriantohdl07excel@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
>>>
>>>
>>
>

Thu Nov 20, 2014 7:32 pm (PST) . Posted by:

"supri anto"

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.putri@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 supriantohdl07excel@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
>>
>>
>

Thu Nov 20, 2014 7:43 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

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 supriantohdl07excel@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 <supriantohdl07excel@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.putri@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 supriantohdl07excel@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

Fri Nov 21, 2014 1:36 am (PST) . Posted by:

"supri anto"

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 hendrikkarnadi@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 supriantohdl07excel@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 <supriantohdl07excel@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.putri@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 supriantohdl07excel@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
>
>

Fri Nov 21, 2014 1:36 am (PST) . Posted by:

"Prodev SIMPLE PB" prodev_simple

Terima kasih banyak Pak HK...Kadang sering juga bekerja dengan workbook excel yang panjang sheet  nya mirip kereta Babaranjang (Batu Bara Rangkaian Panjang) :)
Salam.
 - prodev simple -


Pada Rabu, 19 November 2014 11:55, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dalam Excel, kadang2 kita bekerja dengan banyak sheet.Untuk memilih sheet secara cepat kita bisa membuat Daftar Sheet dengan link, seperti yang pernah ditampilkan dalam blog B-Excel.
Ada alternatif lain yang saya dapat dari internet, dengan mengaktifkan macro berikut ini :Sub PilihSheet()    Application.CommandBars("Workbook tabs").ShowPopupEnd Sub
Pada saat macro diaktifkan akan tampil seluruh sheet yang ada dalam bentuk Pop Up.Kita tinggal memilih sheet, kemudian kita akan langsung diarahkan ke sheet tsb.
Salam,HK
<!--#yiv5190211674 #yiv5190211674ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5190211674 #yiv5190211674ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5190211674 #yiv5190211674ygrp-mkp #yiv5190211674hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5190211674 #yiv5190211674ygrp-mkp #yiv5190211674ads {margin-bottom:10px;}#yiv5190211674 #yiv5190211674ygrp-mkp .yiv5190211674ad {padding:0 0;}#yiv5190211674 #yiv5190211674ygrp-mkp .yiv5190211674ad p {margin:0;}#yiv5190211674 #yiv5190211674ygrp-mkp .yiv5190211674ad a {color:#0000ff;text-decoration:none;}#yiv5190211674 #yiv5190211674ygrp-sponsor #yiv5190211674ygrp-lc {font-family:Arial;}#yiv5190211674 #yiv5190211674ygrp-sponsor #yiv5190211674ygrp-lc #yiv5190211674hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5190211674 #yiv5190211674ygrp-sponsor #yiv5190211674ygrp-lc .yiv5190211674ad {margin-bottom:10px;padding:0 0;}#yiv5190211674 #yiv5190211674actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5190211674 #yiv5190211674activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5190211674 #yiv5190211674activity span {font-weight:700;}#yiv5190211674 #yiv5190211674activity span:first-child {text-transform:uppercase;}#yiv5190211674 #yiv5190211674activity span a {color:#5085b6;text-decoration:none;}#yiv5190211674 #yiv5190211674activity span span {color:#ff7900;}#yiv5190211674 #yiv5190211674activity span .yiv5190211674underline {text-decoration:underline;}#yiv5190211674 .yiv5190211674attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5190211674 .yiv5190211674attach div a {text-decoration:none;}#yiv5190211674 .yiv5190211674attach img {border:none;padding-right:5px;}#yiv5190211674 .yiv5190211674attach label {display:block;margin-bottom:5px;}#yiv5190211674 .yiv5190211674attach label a {text-decoration:none;}#yiv5190211674 blockquote {margin:0 0 0 4px;}#yiv5190211674 .yiv5190211674bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5190211674 .yiv5190211674bold a {text-decoration:none;}#yiv5190211674 dd.yiv5190211674last p a {font-family:Verdana;font-weight:700;}#yiv5190211674 dd.yiv5190211674last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5190211674 dd.yiv5190211674last p span.yiv5190211674yshortcuts {margin-right:0;}#yiv5190211674 div.yiv5190211674attach-table div div a {text-decoration:none;}#yiv5190211674 div.yiv5190211674attach-table {width:400px;}#yiv5190211674 div.yiv5190211674file-title a, #yiv5190211674 div.yiv5190211674file-title a:active, #yiv5190211674 div.yiv5190211674file-title a:hover, #yiv5190211674 div.yiv5190211674file-title a:visited {text-decoration:none;}#yiv5190211674 div.yiv5190211674photo-title a, #yiv5190211674 div.yiv5190211674photo-title a:active, #yiv5190211674 div.yiv5190211674photo-title a:hover, #yiv5190211674 div.yiv5190211674photo-title a:visited {text-decoration:none;}#yiv5190211674 div#yiv5190211674ygrp-mlmsg #yiv5190211674ygrp-msg p a span.yiv5190211674yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5190211674 .yiv5190211674green {color:#628c2a;}#yiv5190211674 .yiv5190211674MsoNormal {margin:0 0 0 0;}#yiv5190211674 o {font-size:0;}#yiv5190211674 #yiv5190211674photos div {float:left;width:72px;}#yiv5190211674 #yiv5190211674photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5190211674 #yiv5190211674photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5190211674 #yiv5190211674reco-category {font-size:77%;}#yiv5190211674 #yiv5190211674reco-desc {font-size:77%;}#yiv5190211674 .yiv5190211674replbq {margin:4px;}#yiv5190211674 #yiv5190211674ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5190211674 #yiv5190211674ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5190211674 #yiv5190211674ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5190211674 #yiv5190211674ygrp-mlmsg select, #yiv5190211674 input, #yiv5190211674 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5190211674 #yiv5190211674ygrp-mlmsg pre, #yiv5190211674 code {font:115% monospace;}#yiv5190211674 #yiv5190211674ygrp-mlmsg * {line-height:1.22em;}#yiv5190211674 #yiv5190211674ygrp-mlmsg #yiv5190211674logo {padding-bottom:10px;}#yiv5190211674 #yiv5190211674ygrp-msg p a {font-family:Verdana;}#yiv5190211674 #yiv5190211674ygrp-msg p#yiv5190211674attach-count span {color:#1E66AE;font-weight:700;}#yiv5190211674 #yiv5190211674ygrp-reco #yiv5190211674reco-head {color:#ff7900;font-weight:700;}#yiv5190211674 #yiv5190211674ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5190211674 #yiv5190211674ygrp-sponsor #yiv5190211674ov li a {font-size:130%;text-decoration:none;}#yiv5190211674 #yiv5190211674ygrp-sponsor #yiv5190211674ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5190211674 #yiv5190211674ygrp-sponsor #yiv5190211674ov ul {margin:0;padding:0 0 0 8px;}#yiv5190211674 #yiv5190211674ygrp-text {font-family:Georgia;}#yiv5190211674 #yiv5190211674ygrp-text p {margin:0 0 1em 0;}#yiv5190211674 #yiv5190211674ygrp-text tt {font-size:120%;}#yiv5190211674 #yiv5190211674ygrp-vital ul li:last-child {border-right:none !important;}-->

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com

berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar