[belajar-excel] Digest Number 4206

Milis Belajar Microsoft Excel Group

6 Messages

Digest #4206

1a

Re: Filter dalam Tabel by "Mr. Kid" nmkid.family@ymail.com

2a

Re: Hidden Baris Otomatis by "M.Ade Alfarid" aderyo

2b

Re: Hidden Baris Otomatis by "Eira I Arie" cheivory_bridge

2c

Re: Hidden Baris Otomatis by "Mr. Kid" nmkid.family@ymail.com

3

Delete Hidden Names dengan VBA by "Zainul Ulum" zainul_ulum

4

Re: Delete Hidden Names dengan VBA [1 Attachment] by "Zainul Ulum" zainul_ulum

Messages

1a

Re: Filter dalam Tabel

Thu Jun 8, 2017 8:15 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

File terlampir adalah contoh.

Regards,
Kid

2017-06-08 5:38 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Hai Roy,
>
> Maaf nih, bisa dijelaskan lebih detil kasusnya kah ?
> Kalau bulan ini adalah Juni 2017, lalu Bulan Tahun diisi Feb 2019, lalu
> opsi dipilih Jatuh tempo bulan ini, sedangkan data tanggal hanya ada kolom
> tanggal jatuh tempo, maka outputnya itu record yang mana ?
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
> 2017-06-07 15:30 GMT+07:00 'Roy@ld' talengong@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear pada suhu2 Excel.
>>
>> mohon bantuanya terkait permasalahan yg saya hadapi.
>>
>> maaf sekiranya sudah pernah dibahas sebelumnya.
>>
>> atas bantuan para suhu saya sangat berterima kasih.
>>
>> Salam
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

2a

Re: Hidden Baris Otomatis

Thu Jun 8, 2017 9:01 pm (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Ini pelajaran basic yg dulu pernah di uraikan oleh master kid ya

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Friday, June 9, 2017 6:52 AM
*To:* BeExcel
*Subject:* Re: [belajar-excel] Hidden Baris Otomatis

hehehe...

trus apa beda sebenarnya ? apa iya sekedar hasilnya 0 sama tampak seperti
blank ?

kok bisa beda hasilnya ?

Regards,

Kid

On Thu, Jun 8, 2017 at 8:46 AM, Eira I Arie cheivory_bridge@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Yth. Mr. Kid

Formula pertama = menghasilkan 0

Formula kedua = menghasilkan kosong " "

fungsi trim sepanjang saya tahu berguna untuk menghilangkan spasi yang
berlebih. tetapi sheet baru kan masih bersih yaa ..

setelah saya praktekkan arahan Mr. Kid dalam case ini sudah berhasil.

terima kasih Mr. Kid

On Thursday, June 8, 2017 5:29 AM, "'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

Hai Eria,

Coba buat sheet baru. Seluruh cells dalam sheet baru pastilah masih kosong
beneran (blank).
di A1 tulis formula =B1 enter

di A2 tulis formula =Trim( B1 )

Apa beda dari kedua formula tersebut (kedua formula sama-sama merujuk ke
cells B1 bukan) ?

Regards,

Kid

On Wed, Jun 7, 2017 at 11:11 AM, Eira I Arie cheivory_bridge@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Yth > *Pak Nang dan Mr. Kid terima kasih atas bantuannya ..*

Mohon maaf tanya lagi masih terkait case tersebut ..

dalam case tersebut terdapat formula misalnya =IF(H40<>"";COUNTA($H$26:H40);
"") .. beberapa rujukan dari formula tersebut sebenarnya adalah kosong /
tidak ada isinya tetapi mengapa hasilnya ada ya ? yang akhirnya dalam case
ini menyebabkan baris (mestinya) kosong tidak terhidden... Mengapa ya kira2
bisa seperti itu dan mohon solusinya ..

Terima kasih

On Wednesday, June 7, 2017 5:46 AM, "'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com > wrote:

Wa'alaikumussalam wr wb

File terlampir.

Wassalamu'alaikum wr wb

Kid

2017-06-02 13:56 GMT+07:00 cheivory_bridge@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com >:

Yth. *Be-Exceler*

*Assalaamu&#39;alaikum Wr Wb*

Mohon bantuannya untuk case terlampir.

Terima Kasih

*Wassalaamu&#39;alaikum Wr Wb*

*Ari*

Reply to sender . Reply to group . Reply via Web Post . All Messages (12) . Top ^

2b

Re: Hidden Baris Otomatis

Fri Jun 9, 2017 2:44 am (PDT) . Posted by:

"Eira I Arie" cheivory_bridge

Yth. Mr. Kid dan M. Ade

hmmmmm hehehehe .. terlihat kasat penglihatan saya semacam itu Mr. Kid (hasilnya 0 sama tampak seperti blank). untuk tanda tanya yang pertama dan ketiga, saya belum mudeng .. hehehehemohon kiranya berkenan memberi penjelasan ..

Terima kasih

On Friday, June 9, 2017 6:52 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  hehehe...

trus apa beda sebenarnya ? apa iya sekedar hasilnya 0 sama tampak seperti blank ?
kok bisa beda hasilnya ?

Regards,
Kid

On Thu, Jun 8, 2017 at 8:46 AM, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Yth. Mr. Kid
Formula pertama = menghasilkan 0Formula kedua = menghasilkan kosong " "
fungsi trim sepanjang saya tahu berguna untuk menghilangkan spasi yang berlebih. tetapi sheet baru kan masih bersih yaa ..
setelah saya praktekkan arahan Mr. Kid dalam case ini sudah berhasil. 
terima kasih Mr. Kid

On Thursday, June 8, 2017 5:29 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:


  Hai Eria,

Coba buat sheet baru. Seluruh cells dalam sheet baru pastilah masih kosong beneran (blank).
di A1 tulis formula =B1 enter
di A2 tulis formula =Trim( B1 )

Apa beda dari kedua formula tersebut (kedua formula sama-sama merujuk ke cells B1 bukan) ?

Regards,
Kid

On Wed, Jun 7, 2017 at 11:11 AM, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:

  Yth > Pak Nang dan Mr. Kid terima kasih atas bantuannya ..
Mohon maaf tanya lagi masih terkait case tersebut .. 
dalam case tersebut terdapat formula misalnya =IF(H40<>"";COUNTA($H$26:H40); "") .. beberapa rujukan dari formula tersebut sebenarnya adalah kosong / tidak ada isinya tetapi mengapa hasilnya ada ya ? yang akhirnya dalam case ini menyebabkan baris (mestinya) kosong tidak terhidden... Mengapa ya kira2 bisa seperti itu dan mohon solusinya .. 
Terima kasih

On Wednesday, June 7, 2017 5:46 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:


  Wa'alaikumussalam wr wb

File terlampir.

Wassalamu'alaikum wr wb
Kid

2017-06-02 13:56 GMT+07:00 cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

  Yth. Be-Exceler
Assalaamu'alaikum Wr Wb
Mohon bantuannya untuk case terlampir.
Terima Kasih
Wassalaamu&#39;alaikum Wr Wb
Ari

#yiv6278175647 #yiv6278175647 -- #yiv6278175647ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6278175647 #yiv6278175647ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6278175647 #yiv6278175647ygrp-mkp #yiv6278175647hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6278175647 #yiv6278175647ygrp-mkp #yiv6278175647ads {margin-bottom:10px;}#yiv6278175647 #yiv6278175647ygrp-mkp .yiv6278175647ad {padding:0 0;}#yiv6278175647 #yiv6278175647ygrp-mkp .yiv6278175647ad p {margin:0;}#yiv6278175647 #yiv6278175647ygrp-mkp .yiv6278175647ad a {color:#0000ff;text-decoration:none;}#yiv6278175647 #yiv6278175647ygrp-sponsor #yiv6278175647ygrp-lc {font-family:Arial;}#yiv6278175647 #yiv6278175647ygrp-sponsor #yiv6278175647ygrp-lc #yiv6278175647hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6278175647 #yiv6278175647ygrp-sponsor #yiv6278175647ygrp-lc .yiv6278175647ad {margin-bottom:10px;padding:0 0;}#yiv6278175647 #yiv6278175647actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6278175647 #yiv6278175647activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6278175647 #yiv6278175647activity span {font-weight:700;}#yiv6278175647 #yiv6278175647activity span:first-child {text-transform:uppercase;}#yiv6278175647 #yiv6278175647activity span a {color:#5085b6;text-decoration:none;}#yiv6278175647 #yiv6278175647activity span span {color:#ff7900;}#yiv6278175647 #yiv6278175647activity span .yiv6278175647underline {text-decoration:underline;}#yiv6278175647 .yiv6278175647attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6278175647 .yiv6278175647attach div a {text-decoration:none;}#yiv6278175647 .yiv6278175647attach img {border:none;padding-right:5px;}#yiv6278175647 .yiv6278175647attach label {display:block;margin-bottom:5px;}#yiv6278175647 .yiv6278175647attach label a {text-decoration:none;}#yiv6278175647 blockquote {margin:0 0 0 4px;}#yiv6278175647 .yiv6278175647bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6278175647 .yiv6278175647bold a {text-decoration:none;}#yiv6278175647 dd.yiv6278175647last p a {font-family:Verdana;font-weight:700;}#yiv6278175647 dd.yiv6278175647last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6278175647 dd.yiv6278175647last p span.yiv6278175647yshortcuts {margin-right:0;}#yiv6278175647 div.yiv6278175647attach-table div div a {text-decoration:none;}#yiv6278175647 div.yiv6278175647attach-table {width:400px;}#yiv6278175647 div.yiv6278175647file-title a, #yiv6278175647 div.yiv6278175647file-title a:active, #yiv6278175647 div.yiv6278175647file-title a:hover, #yiv6278175647 div.yiv6278175647file-title a:visited {text-decoration:none;}#yiv6278175647 div.yiv6278175647photo-title a, #yiv6278175647 div.yiv6278175647photo-title a:active, #yiv6278175647 div.yiv6278175647photo-title a:hover, #yiv6278175647 div.yiv6278175647photo-title a:visited {text-decoration:none;}#yiv6278175647 div#yiv6278175647ygrp-mlmsg #yiv6278175647ygrp-msg p a span.yiv6278175647yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6278175647 .yiv6278175647green {color:#628c2a;}#yiv6278175647 .yiv6278175647MsoNormal {margin:0 0 0 0;}#yiv6278175647 o {font-size:0;}#yiv6278175647 #yiv6278175647photos div {float:left;width:72px;}#yiv6278175647 #yiv6278175647photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6278175647 #yiv6278175647photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6278175647 #yiv6278175647reco-category {font-size:77%;}#yiv6278175647 #yiv6278175647reco-desc {font-size:77%;}#yiv6278175647 .yiv6278175647replbq {margin:4px;}#yiv6278175647 #yiv6278175647ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6278175647 #yiv6278175647ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6278175647 #yiv6278175647ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6278175647 #yiv6278175647ygrp-mlmsg select, #yiv6278175647 input, #yiv6278175647 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6278175647 #yiv6278175647ygrp-mlmsg pre, #yiv6278175647 code {font:115% monospace;}#yiv6278175647 #yiv6278175647ygrp-mlmsg * {line-height:1.22em;}#yiv6278175647 #yiv6278175647ygrp-mlmsg #yiv6278175647logo {padding-bottom:10px;}#yiv6278175647 #yiv6278175647ygrp-msg p a {font-family:Verdana;}#yiv6278175647 #yiv6278175647ygrp-msg p#yiv6278175647attach-count span {color:#1E66AE;font-weight:700;}#yiv6278175647 #yiv6278175647ygrp-reco #yiv6278175647reco-head {color:#ff7900;font-weight:700;}#yiv6278175647 #yiv6278175647ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6278175647 #yiv6278175647ygrp-sponsor #yiv6278175647ov li a {font-size:130%;text-decoration:none;}#yiv6278175647 #yiv6278175647ygrp-sponsor #yiv6278175647ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6278175647 #yiv6278175647ygrp-sponsor #yiv6278175647ov ul {margin:0;padding:0 0 0 8px;}#yiv6278175647 #yiv6278175647ygrp-text {font-family:Georgia;}#yiv6278175647 #yiv6278175647ygrp-text p {margin:0 0 1em 0;}#yiv6278175647 #yiv6278175647ygrp-text tt {font-size:120%;}#yiv6278175647 #yiv6278175647ygrp-vital ul li:last-child {border-right:none !important;}#yiv6278175647

Reply to sender . Reply to group . Reply via Web Post . All Messages (12) . Top ^

2c

Re: Hidden Baris Otomatis

Fri Jun 9, 2017 7:45 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai BeExceller,

Pakai contoh yang lebih banyak ya, supaya mudah dalam menemukan benang
merahnya.

​
Silakan dirembug bareng-bareng...
Moga-moga jadi bagian dari tafakur.

Regards,
Kid

On Fri, Jun 9, 2017 at 12:47 PM, Eira I Arie cheivory_bridge@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Yth. Mr. Kid dan M. Ade
>
> hmmmmm hehehehe .. terlihat kasat penglihatan saya semacam itu Mr. Kid
> (hasilnya 0 sama tampak seperti blank). untuk tanda tanya yang pertama
> dan ketiga, saya belum mudeng .. hehehehe
> mohon kiranya berkenan memberi penjelasan ..
>
> Terima kasih
>
>
> On Friday, June 9, 2017 6:52 AM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> hehehe...
>
> trus apa beda sebenarnya ? apa iya sekedar hasilnya 0 sama tampak seperti
> blank ?
> kok bisa beda hasilnya ?
>
> Regards,
> Kid
>
>
>
> On Thu, Jun 8, 2017 at 8:46 AM, Eira I Arie cheivory_bridge@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Yth. Mr. Kid
>
> Formula pertama = menghasilkan 0
> Formula kedua = menghasilkan kosong " "
>
> fungsi trim sepanjang saya tahu berguna untuk menghilangkan spasi yang
> berlebih. tetapi sheet baru kan masih bersih yaa ..
>
> setelah saya praktekkan arahan Mr. Kid dalam case ini sudah berhasil.
>
> terima kasih Mr. Kid
>
>
> On Thursday, June 8, 2017 5:29 AM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>
>
>
> Hai Eria,
>
> Coba buat sheet baru. Seluruh cells dalam sheet baru pastilah masih kosong
> beneran (blank).
> di A1 tulis formula =B1 enter
> di A2 tulis formula =Trim( B1 )
>
> Apa beda dari kedua formula tersebut (kedua formula sama-sama merujuk ke
> cells B1 bukan) ?
>
> Regards,
> Kid
>
>
>
>
> On Wed, Jun 7, 2017 at 11:11 AM, Eira I Arie cheivory_bridge@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>
>
> Yth > *Pak Nang dan Mr. Kid terima kasih atas bantuannya ..*
>
> Mohon maaf tanya lagi masih terkait case tersebut ..
>
> dalam case tersebut terdapat formula misalnya =IF(H40<>"";COUNTA($H$26:H40);
> "") .. beberapa rujukan dari formula tersebut sebenarnya adalah kosong /
> tidak ada isinya tetapi mengapa hasilnya ada ya ? yang akhirnya dalam case
> ini menyebabkan baris (mestinya) kosong tidak terhidden... Mengapa ya kira2
> bisa seperti itu dan mohon solusinya ..
>
> Terima kasih
>
>
>
>
> On Wednesday, June 7, 2017 5:46 AM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> File terlampir.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2017-06-02 13:56 GMT+07:00 cheivory_bridge@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com >:
>
>
> Yth. *Be-Exceler*
>
> *Assalaamu&#39;alaikum Wr Wb*
>
> Mohon bantuannya untuk case terlampir.
>
> Terima Kasih
>
> *Wassalaamu&#39;alaikum Wr Wb*
>
> *Ari*
>
>
>
>
>
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (12) . Top ^

3

Delete Hidden Names dengan VBA

Fri Jun 9, 2017 4:14 pm (PDT) . Posted by:

"Zainul Ulum" zainul_ulum

Be-Excelers,
File excel terlampir, terdiri dari dari 4 (empat) named range berupa object tabel jika dilihat melalui [Name Manager]. Tetapi jika saya jalankan vba code berikut:
'==============
Sub ShowAllNames()
Dim n
For Each n In ActiveWorkbook.Names
n.Visible = True
Next
End Sub
'===========

maka akan ditampilkan named range yang tersembunyi.
Saya bermaksud untuk menghilangkan / men-delete names ini karena jika masih ada names tersebut akan menimbulkan masalah saat copy sheet. Biasanya saat copy sheet akan muncul pesan :

The Name '_' Already Exist……

Sebelumnya saya delete secara manual names yang tidak diperlukan melalui [Name Manager].

Supaya proses delete dan pemiihan bisa dilakukan dengan vba, saya telah menulis code berikut:

'===================================
Sub DeleteNames()
Dim n As Name, ex As Variant, x As Variant
ex = Array("tbl", "print","znl")'name yang tidak dihapus
For Each n In ActiveWorkbook.Names
For Each x In ex
If InStr(1, x, n.Name) = 0 Then
n.Delete
Exit For
End If
Next
Next n
End Sub
'===================================

Mohon petunjuknya mengapa procedure DeleteNames tersebut tidak bisa dijalankan?

Karena tidak tahu penyebab erronya, sementara saya modifikasi macro tersebut menjadi:

'====================================
Sub DeleteNames()
Dim n As Name, ex As Variant, x As Variant
ex = Array("tbl", "print")
For Each n In ActiveWorkbook.Names
For Each x In ex
If InStr(1, x, n.Name) = 0 Then
On Error Resume Next
n.Delete
If Err.Number Then Resume Next
Exit For
End If
Next
Next n
End Sub
'===================================

Apakah memang solusinya seperti itu? atau ada cara lain selain menggunakan trapping error "On Resume Next"?

Terimakasih,
-zainul
dari Blang Nisam, Aceh Timur.

#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

4

Re: Delete Hidden Names dengan VBA [1 Attachment]

Fri Jun 9, 2017 5:13 pm (PDT) . Posted by:

"Zainul Ulum" zainul_ulum

#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#

--------------------------------------------
On Sat, 10/6/17, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Subject: [belajar-excel] Delete Hidden Names dengan VBA [1 Attachment]
To: belajar-excel@yahoogroups.com
Date: Saturday, 10 June, 2017, 6:10 AM

Maaf ada revisi sedikit

 
'====================================

Sub DeleteNames()

Dim n As Name, ex As Variant, x As Variant,i as integer

ex = Array("tbl", "print")

For Each n In ActiveWorkbook.Names
i=0'edited

For Each x In ex
i=i+InStr(1, x, n.Name)'edited

If i = 0 Then'edited

On Error Resume Next

n.Delete

If Err.Number Then err.clear 'edited

Exit For

End If

Next

Next n

End Sub

'===================================









Be-Excelers,

File excel terlampir, terdiri dari dari 4 (empat) named
range berupa object tabel jika dilihat melalui [Name
Manager]. Tetapi jika saya jalankan vba code berikut:

'==============

Sub ShowAllNames()

Dim n

For Each n In ActiveWorkbook.Names

n.Visible = True

Next

End Sub

'===========



maka akan ditampilkan named range yang tersembunyi.

Saya bermaksud untuk menghilangkan / men-delete names ini
karena jika masih ada names tersebut akan menimbulkan
masalah saat copy sheet. Biasanya saat copy sheet akan
muncul pesan :



The Name '_' Already Exist……



Sebelumnya saya delete secara manual names yang tidak
diperlukan melalui [Name Manager].



Supaya proses delete dan pemiihan bisa dilakukan dengan vba,
saya telah menulis code berikut:



'===================================

Sub DeleteNames()

Dim n As Name, ex As Variant, x As Variant

ex = Array("tbl",
"print","znl")'name yang tidak
dihapus

For Each n In ActiveWorkbook.Names

For Each x In ex

If InStr(1, x, n.Name) = 0 Then

n.Delete

Exit For

End If

Next

Next n

End Sub

'===================================



Mohon petunjuknya mengapa procedure DeleteNames tersebut
tidak bisa dijalankan?



Karena tidak tahu penyebab erronya, sementara saya
modifikasi macro tersebut menjadi:



'====================================

Sub DeleteNames()

Dim n As Name, ex As Variant, x As Variant

ex = Array("tbl", "print")

For Each n In ActiveWorkbook.Names

For Each x In ex

If InStr(1, x, n.Name) = 0 Then

On Error Resume Next

n.Delete

If Err.Number Then Resume Next

Exit For

End If

Next

Next n

End Sub

'===================================



Apakah memang solusinya seperti itu? atau ada cara lain
selain menggunakan trapping error "On Resume
Next"?



Terimakasih,

-zainul

dari Blang Nisam, Aceh Timur.



#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#









#yiv3163626853 #yiv3163626853 --
#yiv3163626853ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv3163626853 #yiv3163626853ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv3163626853 #yiv3163626853ygrp-mkp #yiv3163626853hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv3163626853 #yiv3163626853ygrp-mkp #yiv3163626853ads {
margin-bottom:10px;}

#yiv3163626853 #yiv3163626853ygrp-mkp .yiv3163626853ad {
padding:0 0;}

#yiv3163626853 #yiv3163626853ygrp-mkp .yiv3163626853ad p {
margin:0;}

#yiv3163626853 #yiv3163626853ygrp-mkp .yiv3163626853ad a {
color:#0000ff;text-decoration:none;}
#yiv3163626853 #yiv3163626853ygrp-sponsor
#yiv3163626853ygrp-lc {
font-family:Arial;}

#yiv3163626853 #yiv3163626853ygrp-sponsor
#yiv3163626853ygrp-lc #yiv3163626853hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv3163626853 #yiv3163626853ygrp-sponsor
#yiv3163626853ygrp-lc .yiv3163626853ad {
margin-bottom:10px;padding:0 0;}

#yiv3163626853 #yiv3163626853actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv3163626853 #yiv3163626853activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv3163626853 #yiv3163626853activity span {
font-weight:700;}

#yiv3163626853 #yiv3163626853activity span:first-child {
text-transform:uppercase;}

#yiv3163626853 #yiv3163626853activity span a {
color:#5085b6;text-decoration:none;}

#yiv3163626853 #yiv3163626853activity span span {
color:#ff7900;}

#yiv3163626853 #yiv3163626853activity span
.yiv3163626853underline {
text-decoration:underline;}

#yiv3163626853 .yiv3163626853attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv3163626853 .yiv3163626853attach div a {
text-decoration:none;}

#yiv3163626853 .yiv3163626853attach img {
border:none;padding-right:5px;}

#yiv3163626853 .yiv3163626853attach label {
display:block;margin-bottom:5px;}

#yiv3163626853 .yiv3163626853attach label a {
text-decoration:none;}

#yiv3163626853 blockquote {
margin:0 0 0 4px;}

#yiv3163626853 .yiv3163626853bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv3163626853 .yiv3163626853bold a {
text-decoration:none;}

#yiv3163626853 dd.yiv3163626853last p a {
font-family:Verdana;font-weight:700;}

#yiv3163626853 dd.yiv3163626853last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv3163626853 dd.yiv3163626853last p
span.yiv3163626853yshortcuts {
margin-right:0;}

#yiv3163626853 div.yiv3163626853attach-table div div a {
text-decoration:none;}

#yiv3163626853 div.yiv3163626853attach-table {
width:400px;}

#yiv3163626853 div.yiv3163626853file-title a, #yiv3163626853
div.yiv3163626853file-title a:active, #yiv3163626853
div.yiv3163626853file-title a:hover, #yiv3163626853
div.yiv3163626853file-title a:visited {
text-decoration:none;}

#yiv3163626853 div.yiv3163626853photo-title a,
#yiv3163626853 div.yiv3163626853photo-title a:active,
#yiv3163626853 div.yiv3163626853photo-title a:hover,
#yiv3163626853 div.yiv3163626853photo-title a:visited {
text-decoration:none;}

#yiv3163626853 div#yiv3163626853ygrp-mlmsg
#yiv3163626853ygrp-msg p a span.yiv3163626853yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv3163626853 .yiv3163626853green {
color:#628c2a;}

#yiv3163626853 .yiv3163626853MsoNormal {
margin:0 0 0 0;}

#yiv3163626853 o {
font-size:0;}

#yiv3163626853 #yiv3163626853photos div {
float:left;width:72px;}

#yiv3163626853 #yiv3163626853photos div div {
border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}

#yiv3163626853 #yiv3163626853photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv3163626853 #yiv3163626853reco-category {
font-size:77%;}

#yiv3163626853 #yiv3163626853reco-desc {
font-size:77%;}

#yiv3163626853 .yiv3163626853replbq {
margin:4px;}

#yiv3163626853 #yiv3163626853ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv3163626853 #yiv3163626853ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv3163626853 #yiv3163626853ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv3163626853 #yiv3163626853ygrp-mlmsg select,
#yiv3163626853 input, #yiv3163626853 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv3163626853 #yiv3163626853ygrp-mlmsg pre, #yiv3163626853
code {
font:115% monospace;}

#yiv3163626853 #yiv3163626853ygrp-mlmsg * {
line-height:1.22em;}

#yiv3163626853 #yiv3163626853ygrp-mlmsg #yiv3163626853logo {
padding-bottom:10px;}


#yiv3163626853 #yiv3163626853ygrp-msg p a {
font-family:Verdana;}

#yiv3163626853 #yiv3163626853ygrp-msg
p#yiv3163626853attach-count span {
color:#1E66AE;font-weight:700;}

#yiv3163626853 #yiv3163626853ygrp-reco
#yiv3163626853reco-head {
color:#ff7900;font-weight:700;}

#yiv3163626853 #yiv3163626853ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv3163626853 #yiv3163626853ygrp-sponsor #yiv3163626853ov
li a {
font-size:130%;text-decoration:none;}

#yiv3163626853 #yiv3163626853ygrp-sponsor #yiv3163626853ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv3163626853 #yiv3163626853ygrp-sponsor #yiv3163626853ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv3163626853 #yiv3163626853ygrp-text {
font-family:Georgia;}

#yiv3163626853 #yiv3163626853ygrp-text p {
margin:0 0 1em 0;}

#yiv3163626853 #yiv3163626853ygrp-text tt {
font-size:120%;}

#yiv3163626853 #yiv3163626853ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv3163626853

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

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

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use