Jumat, 30 Maret 2012

[belajar-excel] Digest Number 1568

Messages In This Digest (12 Messages)

Messages

1a.

Re: Pindahkan data ke formulir

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Thu Mar 29, 2012 10:00 am (PDT)



Pak Kid,

Saya ingin memahami rumus yg diberikan agar saya lebih mengerti logikanya.

Contohnya formula di cell A15.

'=IF(($O$3-1)*22+(ROW(A15)-ROW($A$13))/2<=$O$1,($O$3-1)*22+(ROW(A15)-ROW($A$13))/2,"")

Apakah peran cell A13 dan kenapa harus dibagi 2 <=O1?

Kalau bisa bapak jelaskan untuk saya dan rekan rekan beExcel yg lain
mempelajarinya.

Terima kasih.

Mansor.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
1b.

Re: Pindahkan data ke formulir

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Mar 29, 2012 10:16 am (PDT)



Bagian :
($O$3-1)*22+(ROW(A15)-ROW($A$13))/2<=$O$1

22 :: per page 22 item
($O$3-1) :: jumlah item sampai dengan page sebelumnya
( *ROW(A15)* - *ROW($A$13) *) :: index baris ke-n mulai A14
/ 2 :: setiap item butuh 2 baris excel
$O$1 :: jumlah item total

Kid.

On Thu, Mar 29, 2012 at 21:55, Mansor <dbpermatasari@gmail.com> wrote:

> Pak Kid,
>
> Saya ingin memahami rumus yg diberikan agar saya lebih mengerti logikanya.
>
> Contohnya formula di cell A15.
>
>
> '=IF(($O$3-1)*22+(ROW(A15)-ROW($A$13))/2<=$O$1,($O$3-1)*22+(ROW(A15)-ROW($A$13))/2,"")
>
> Apakah peran cell A13 dan kenapa harus dibagi 2 <=O1?
>
> Kalau bisa bapak jelaskan untuk saya dan rekan rekan beExcel yg lain
> mempelajarinya.
>
> Terima kasih.
>
> Mansor.
>
>
>
>
>
>
>
>
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
1c.

Re: Pindahkan data ke formulir

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Thu Mar 29, 2012 11:54 pm (PDT)



Terima kasih Mr Kid

On Fri, Mar 30, 2012 at 1:15 AM, Kid Mr. <mr.nmkid@gmail.com> wrote:

> **
>
>
> Bagian :
> ($O$3-1)*22+(ROW(A15)-ROW($A$13))/2<=$O$1
>
> 22 :: per page 22 item
> ($O$3-1) :: jumlah item sampai dengan page sebelumnya
> ( *ROW(A15)* - *ROW($A$13) *) :: index baris ke-n mulai A14
> / 2 :: setiap item butuh 2 baris excel
> $O$1 :: jumlah item total
>
> Kid.
>
>
>
> On Thu, Mar 29, 2012 at 21:55, Mansor <dbpermatasari@gmail.com> wrote:
>
>> Pak Kid,
>>
>> Saya ingin memahami rumus yg diberikan agar saya lebih mengerti logikanya.
>>
>> Contohnya formula di cell A15.
>>
>>
>> '=IF(($O$3-1)*22+(ROW(A15)-ROW($A$13))/2<=$O$1,($O$3-1)*22+(ROW(A15)-ROW($A$13))/2,"")
>>
>> Apakah peran cell A13 dan kenapa harus dibagi 2 <=O1?
>>
>> Kalau bisa bapak jelaskan untuk saya dan rekan rekan beExcel yg lain
>> mempelajarinya.
>>
>> Terima kasih.
>>
>> Mansor.
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> ------------------------------------
>>
>>
>> ----------------------------------------------------------
>> 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
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
2a.

Re: Saat Loading Form Trouble

Posted by: "Mr Pecut" pecutmr@yahoo.co.id   pecutmr

Thu Mar 29, 2012 5:42 pm (PDT)



Tks Mr Kid atas arahannya...

--- Pada Sab, 17/3/12, Kid Mr. <mr.nmkid@gmail.com> menulis:

Dari: Kid Mr. <mr.nmkid@gmail.com>
Judul: Re: [belajar-excel] Saat Loading Form Trouble
Kepada: belajar-excel@yahoogroups.com
Tanggal: Sabtu, 17 Maret, 2012, 7:44 AM

 

Coba Mr. Pecut masuk VBE (Alt F11)
ke menu Tools -> References -> muncul daftar references yang digunakan (dicentang) dan yang terinstall tapi tidak digunakan (tak dicentang)
Cek, apa saja yang ada keterangan tulisan Missing.

Kid.

On Sat, Mar 17, 2012 at 14:01, Mr Pecut <pecutmr@yahoo.co.id> wrote:

Mohon maaf sudah membuat  gusar
para pakar Excel, bukannya saya tidak sudi untuk memberi tahu, Ki, tapi saya bener2 ga mengerti yang di maksud dengan References.....
Saya fikir dengan pejelasan gambar yang sudah terjadi, itu sudah menjawab pertanyaan para pakar...

Jadi sekai lagi, mohon maaf, itulah gunanya, mengapa saya bergabung disini, karena saya sedang dan butuh menimba ilmu dari para pakar Excel seperti Ki Semprul, Mr Kid, Hendrik Karnadi, ctv, Ihaps, dan kawan-kawan lainnya...

Sekali lagi, saya mohon maaf, mohon maklum dan harap sabar ya memberi pencerahan pada diriku yang sok tahu makro ini...
Mengenai penjelasan Ki Semprul, tentang library file yang ga ada, mengapa hal itu bisa terjadi a, Ki...?

--- Pada Sab, 17/3/12, Ki Semprul <semprul.ki@gmail.com> menulis:

Dari: Ki Semprul <semprul.ki@gmail.com>
Judul: Re: [belajar-excel] Saat Loading Form Trouble
Kepada: belajar-excel@yahoogroups.com

Tanggal: Sabtu, 17 Maret, 2012, 3:43 AM

 

Sampai dengan email terakhirpun Sdr Pecut tetap bertahan dengan gigih:TIDAK SUDI MENJAWAB permintaan : References apa yg MISSING ??

Barangkali ADA kan bisa untuk bahan  menjawab .. walaupun belum tentu dapat menyeleswaikan masalah...

Masalah yg Pak Pecut hadapi kemungkinan besar bukan karena code MAKRONYAtetapi karena KOMPUTERNYA ( library file yg tidak ada - padahal diperlukan oleh VBA)
Jika makro nya menjalankan userform dan TEXTBOX

References nya hanya seperti ini (lihat gambar) Gambar ini tidak ada menunjukkan adanya References yg MISSING.Jadi Userform dan Textbox standar dapat dijalankan dengan wajar.

Mungkin di PC / EXCEL di mana Pak Pecut menjalankan fle tsb tidak ada file bernama FM20.DLL    (lokasinya di c:\WINDOWS\SYSTEM32\ )

padahal dialah yg bertanggung jawab mengenai teredianya object ActiveX control standar 
Mungkin pula hal lain...
Semprul..Ki!

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
3.

Belajar Anti Double Entry

Posted by: "Mr Pecut" pecutmr@yahoo.co.id   pecutmr

Thu Mar 29, 2012 5:43 pm (PDT)



Para Be-Exceler...
Aku belajar bikin form anti double entry dengan syntax yang aku comot dari sana-sini, walau sudaha aku utak-atik tapi tetap aja ga berhasil... Kayaknya kok mampet terus...
Padahal keinginan saya sih, pada saat menambah data mitra kerja, jangan sampai ada dua nama identitas alias harus anti double identitas...
Mohon bantuannya seperti pada file terlampir.....
Untuk para Be-Excel, aku selalu angkat topi, karena sepertinya sejak gabung disini aku merasakan sudah ada kemajuan dikit2, terima kasih sebelumnya....Mohon jangan bosan-bosan membimbing kami semua yah....

Salam Excel,Mr. Pecut
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
4a.

Re: menyelipkan karakter di antara code Part Number (tanpa kolom ban

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Thu Mar 29, 2012 6:32 pm (PDT)









isinya/tampilannya :





asli
diubah



aui
aUEi



ajui
ajUEi



aktual
aktUEal



akitukoip
akitUEkoip


rumusnya :











asli
diubah



aui
=MID(B3,1,FIND("u",B3,1)-1)&"UE"&MID(B3,FIND("u",B3,1)+1,LEN(B3)-E3)



ajui
=MID(B4,1,FIND("u",B4,1)-1)&"UE"&MID(B4,FIND("u",B4,1)+1,LEN(B4)-E4)



aktual
=MID(B5,1,FIND("u",B5,1)-1)&"UE"&MID(B5,FIND("u",B5,1)+1,LEN(B5)-E5)



akitukoip
=MID(B6,1,FIND("u",B6,1)-1)&"UE"&MID(B6,FIND("u",B6,1)+1,LEN(B6)-E6)



To: belajar-excel@yahoogroups.com
From: mulki@aop.component.astra.co.id
Date: Thu, 29 Mar 2012 16:31:55 +0700
Subject: Re: [belajar-excel] menyelipkan karakter di antara code Part Number (tanpa kolom bantu)































mohon maaf nih rekan2, ternyata setelah
saya lakukan pengecekan secara acak, penambahan huruf E tidak harus selalu
di karakter ke-6 karna ditemukan ada yg di karakter ke-8.

Jika penyelipan karakter trsbt teracak dan
tidak bisa dihandle dg formula, apakah solusinya part number tersbt harus
saya buat baku formatnya biar semua seragam ?

Mohon pencerahannya.

thx & wassalam,
mulki akbar



----- Original Message
-----
From: ChubbyMike

To: belajar-excel@yahoogroups.com
Sent: Thursday,
March 29, 2012 4:26 PM
Subject: Re:
[belajar-excel] menyelipkan karakter di antara code Part Number (tanpa kolom
bantu)



‎​(⌣_____⌣ =-?) Hmmm ◦°◦ºº kalau begitu harusnya
ada patokan, entah itu karakter ke 6 atau setelah huruf apa, mengenai
banyaknya karakter yg berbeda2 atau sampai ribuan saya rasa tidak ada masalah
selama patokannya itu jelas

Cheers
Sent from my BlackBerry yg belum
lunas


From: "Mulki" <mulki@aop.component.astra.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Mar 2012 16:14:45
+0700
To:
<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com

Subject: Re: [belajar-excel] menyelipkan
karakter di antara code Part Number (tanpa kolom bantu)




terimakasih atas respon rekan2
semuanya.
part number yg saya contohkan tadi cuma
mengambil satu dari ribuan part number, pastinya huruf yg didepan tidak harus
selalu U, ada C, O dan mungkin lainnya jika ada tambahan Part
baru.


Thx & wassalam,
mulki akbar



----- Original
Message -----
From: Kid
Mr.
To: belajar-excel@yahoogroups.com
Sent:
Thursday, March 29, 2012 3:44 PM
Subject: Re:
[belajar-excel] menyelipkan karakter di antara code Part Number (tanpa kolom
bantu)



Hai Mike,

=substitute( ekspresi ,
yang_diganti , pengganti , yang_ke_n )
=substitute( zz1 , "U" , "UE" , 1
) -> U
pertama jadi UE
=substitute( zz1 , "U" , "E" , 1
)
-> U pertama jadi E

=replace( ekspresi , karakter_ke_n ,
jumlah_karakter_diganti , teks_baru )
=replace( zz1 , 5 , 1 , "UE"
) ->
karakter ke 5 jadi UE
=replace( zz1 , 5 , 1 , "E"
) ->
karakter ke 5 jadi E

Regards,
Kid.


On Thu, Mar 29, 2012 at
15:33, ChubbyMike <the_x_mikey@yahoo.com>
wrote:






Maaf salah, yg sy berikan adalah
mengganti u dengan e, yg hendrik jawab itu sudah benar

Sent from my BlackBerry yg belum
lunas


From: "ChubbyMike" <the_x_mikey@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Mar 2012 08:20:18
+0000
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel]
menyelipkan karakter di antara code Part Number (tanpa kolom
bantu)




Hi,
Selalu disamping u atau huruf
ke 6?
Dengan data awal di
b2,Coba
=substitute(b2,mid(b2,find("u",b2,1)+1,1),"e")
Sent from my BlackBerry yg belum
lunas


From: "Mulki" <mulki@aop.component.astra.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Mar 2012 14:54:04
+0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] menyelipkan
karakter di antara code Part Number (tanpa kolom bantu)




Assalamu'alaikum & selamat siang
B-XL-ers,


Mohon pencerahannya, bagaimana cara
menyelipkan satu karakter diantara kode part number ?
Contoh : Part Number : XSTDUNS4009P saya
mau menyelipkan huruf E setelah U jadi nantinya menjadi
XSTDUENS4009P.

Atas waktu dan pencerahannya saya haturkan
banyak terimakasih.

note : Maaf ada keterangan tambahan, kalo
bisa tanpa kolom bantu :)

Thx & waassalam,
mulki





















Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (15)
4b.

Re: menyelipkan karakter di antara code Part Number (tanpa kolom ban

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Thu Mar 29, 2012 6:52 pm (PDT)




koreksi dikit dari :=MID(B3,1,FIND("u",B3,1)-1)&"UE"&MID(B3,FIND("u",B3,1)+1,LEN(B3)-E3) menjadi :=MID(B3,1, FIND("u",B3,1) -1) &"UE"& MID(B3, FIND("u",B3,1)+1, LEN(B3)- FIND("u",B3,1) )
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Fri, 30 Mar 2012 01:32:40 +0000
Subject: RE: [belajar-excel] menyelipkan karakter di antara code Part Number (tanpa kolom bantu)




































isinya/tampilannya :









asli
diubah



aui
aUEi



ajui
ajUEi



aktual
aktUEal



akitukoip
akitUEkoip




rumusnya :












asli
diubah



aui
=MID(B3,1,FIND("u",B3,1)-1)&"UE"&MID(B3,FIND("u",B3,1)+1,LEN(B3)-E3)



ajui
=MID(B4,1,FIND("u",B4,1)-1)&"UE"&MID(B4,FIND("u",B4,1)+1,LEN(B4)-E4)



aktual
=MID(B5,1,FIND("u",B5,1)-1)&"UE"&MID(B5,FIND("u",B5,1)+1,LEN(B5)-E5)



akitukoip
=MID(B6,1,FIND("u",B6,1)-1)&"UE"&MID(B6,FIND("u",B6,1)+1,LEN(B6)-E6)




To: belajar-excel@yahoogroups.com
From: mulki@aop.component.astra.co.id
Date: Thu, 29 Mar 2012 16:31:55 +0700
Subject: Re: [belajar-excel] menyelipkan karakter di antara code Part Number (tanpa kolom bantu)































mohon maaf nih rekan2, ternyata setelah
saya lakukan pengecekan secara acak, penambahan huruf E tidak harus selalu
di karakter ke-6 karna ditemukan ada yg di karakter ke-8.

Jika penyelipan karakter trsbt teracak dan
tidak bisa dihandle dg formula, apakah solusinya part number tersbt harus
saya buat baku formatnya biar semua seragam ?

Mohon pencerahannya.

thx & wassalam,
mulki akbar



----- Original Message
-----
From: ChubbyMike

To: belajar-excel@yahoogroups.com
Sent: Thursday,
March 29, 2012 4:26 PM
Subject: Re:
[belajar-excel] menyelipkan karakter di antara code Part Number (tanpa kolom
bantu)



‎​(⌣_____⌣ =-?) Hmmm ◦°◦ºº kalau begitu harusnya
ada patokan, entah itu karakter ke 6 atau setelah huruf apa, mengenai
banyaknya karakter yg berbeda2 atau sampai ribuan saya rasa tidak ada masalah
selama patokannya itu jelas

Cheers
Sent from my BlackBerry yg belum
lunas


From: "Mulki" <mulki@aop.component.astra.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Mar 2012 16:14:45
+0700
To:
<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com

Subject: Re: [belajar-excel] menyelipkan
karakter di antara code Part Number (tanpa kolom bantu)




terimakasih atas respon rekan2
semuanya.
part number yg saya contohkan tadi cuma
mengambil satu dari ribuan part number, pastinya huruf yg didepan tidak harus
selalu U, ada C, O dan mungkin lainnya jika ada tambahan Part
baru.


Thx & wassalam,
mulki akbar



----- Original
Message -----
From: Kid
Mr.
To: belajar-excel@yahoogroups.com
Sent:
Thursday, March 29, 2012 3:44 PM
Subject: Re:
[belajar-excel] menyelipkan karakter di antara code Part Number (tanpa kolom
bantu)



Hai Mike,

=substitute( ekspresi ,
yang_diganti , pengganti , yang_ke_n )
=substitute( zz1 , "U" , "UE" , 1
) -> U
pertama jadi UE
=substitute( zz1 , "U" , "E" , 1
)
-> U pertama jadi E

=replace( ekspresi , karakter_ke_n ,
jumlah_karakter_diganti , teks_baru )
=replace( zz1 , 5 , 1 , "UE"
) ->
karakter ke 5 jadi UE
=replace( zz1 , 5 , 1 , "E"
) ->
karakter ke 5 jadi E

Regards,
Kid.


On Thu, Mar 29, 2012 at
15:33, ChubbyMike <the_x_mikey@yahoo.com>
wrote:






Maaf salah, yg sy berikan adalah
mengganti u dengan e, yg hendrik jawab itu sudah benar


Sent from my BlackBerry yg belum
lunas


From: "ChubbyMike" <the_x_mikey@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Mar 2012 08:20:18
+0000
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel]
menyelipkan karakter di antara code Part Number (tanpa kolom
bantu)




Hi,
Selalu disamping u atau huruf
ke 6?
Dengan data awal di
b2,Coba
=substitute(b2,mid(b2,find("u",b2,1)+1,1),"e")

Sent from my BlackBerry yg belum
lunas


From: "Mulki" <mulki@aop.component.astra.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Mar 2012 14:54:04
+0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] menyelipkan
karakter di antara code Part Number (tanpa kolom bantu)





Assalamu'alaikum & selamat siang
B-XL-ers,


Mohon pencerahannya, bagaimana cara
menyelipkan satu karakter diantara kode part number ?
Contoh : Part Number : XSTDUNS4009P saya
mau menyelipkan huruf E setelah U jadi nantinya menjadi
XSTDUENS4009P.

Atas waktu dan pencerahannya saya haturkan
banyak terimakasih.

note : Maaf ada keterangan tambahan, kalo
bisa tanpa kolom bantu :)

Thx & waassalam,
mulki










































Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (15)
5a.

Macro - belajar deteksi nama sheets

Posted by: "cuma.milis@gmail.com" cuma.milis@gmail.com

Thu Mar 29, 2012 10:48 pm (PDT)



dear all,
mohon dibantu lagi.

saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang dituju,
bila ada nanti nya akan ada action berikutnya. saya masih bingung bagaimana
cara deteksinya.
yang saya buat seperti ini (misal sheet nya ingin di delete) :

If Worksheets.Name = "hapus" Then
Sheets("hapus").Delete
End If

tapi malah muncul warning kira2 bunyinya "object or method not find".
penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik
tentang workbook dibuat expired.
kira2 salahnya dimana ya?
maaf kalau pertanyaannya newbie bgt.

salam
vega

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5b.

Re: Macro - belajar deteksi nama sheets

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Thu Mar 29, 2012 11:13 pm (PDT)



Coba di perbaiki sedikit Macronya,

Sub Coba()
    Dim ws As Worksheet  'utk deklarasi variable
    Application.DisplayAlerts = False  'utk meniadakan display (tampilan) dialog   
    For Each ws In ActiveWorkbook.Worksheets 'utk looping seluruh worksheets dalam Workbook
        If ws.Name = "Hapus" Then
            ws.Delete'Untuk menghapus ws (Worksheet) bernama "Hapus"
        End If
    Next
End Sub

Salam,
Hendrik Karnadi

________________________________
From: "cuma.milis@gmail.com" <cuma.milis@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 30 March 2012, 12:13
Subject: [belajar-excel] Macro - belajar deteksi nama sheets


 
dear all,
mohon dibantu lagi.

saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang dituju,
bila ada nanti nya akan ada action berikutnya. saya masih bingung bagaimana
cara deteksinya.
yang saya buat seperti ini (misal sheet nya ingin di delete) :

If Worksheets.Name = "hapus" Then
Sheets("hapus").Delete
End If

tapi malah muncul warning kira2 bunyinya "object or method not find".
penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik
tentang workbook dibuat expired.
kira2 salahnya dimana ya?
maaf kalau pertanyaannya newbie bgt.

salam
vega

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5c.

Re: Macro - belajar deteksi nama sheets

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Thu Mar 29, 2012 11:54 pm (PDT)



Keberadaan suatu SHEET di dalam sebuah workbook jika diTEBAK namanya, akan
menghasilkan dua kemungkinan:
Sheet itu memang ada atau Sheet itu tidak ada

Karena keperluan seperti ini (=menebak keberadaan sheet yg anda ketahui
NAMANYA) akan sering terpakai, maka lebih keren kalau anda punya simpanan
UDF untuk keperluan tsb (sebab VBA sendiri belum menyediakan fungsi spt
itu)

Misal UDF diberi NAMA * IsSheetFound*
Nantinya didalam program anda dapat digunakan

If IsSheetFound(*"JaranDipecut"*) Then
-- tindakan kalau Sheet "Jaran" memang ada
Else
-- tindakan kalau Sheet "Jaran" ternyata heuweuh ' 'teuk aya..
End if

Berikut ini dicontohkan 3 fungsi/UDF IsSheetOpen

Function *IsSheetFound1*(WsName As String) As Boolean
Dim Ws As Worksheet
On Error Resume Next
Set Ws = Sheets(WsName)
If *Not* Ws Is Nothing Then IsSheetFound1 = True
End Function
'--------------------

Function *IsSheetFound2*(ShName As String) As Boolean
On Error Resume Next
IsSheetFound2 = Sheets(ShName).Name <> ""
End Function
'---------------------

Function *IsSheetFound3*(NamaSht As String) As Boolean
Dim Sht As Worksheet
For Each Sht In Worksheets
If Sht.Name = NamaSht Then
IsSheetFound3 = True
Exit For
End If
Next Sht
End Function

Prosedur yg terpendek itu buatan Pak Anton (Summonery); Sedangkan 2 yg agak
penjang, ditulis oleh tante bidadari...

Di milis ini sekitar setahun y.l. pernah ada diskusi Seru, Ramai dan Meriah
mengenai membuat fungsi IsSheetFound (dan IsWBookOpen)
File kompilasi hasil diskusi masih dapat diunduh di Folder_Bidadari: (ini
link-nya)
http://www.box.com/s/579d4e3d45077b0899f4

On Fri, Mar 30, 2012 at 12:13 PM, <cuma.milis@gmail.com> wrote:

> **
>
> dear all,
> mohon dibantu lagi.
>
> saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang dituju,
> bila ada nanti nya akan ada action berikutnya. saya masih bingung
> bagaimana
> cara deteksinya.
> yang saya buat seperti ini (misal sheet nya ingin di delete) :
>
> If Worksheets.Name = "hapus" Then
> Sheets("hapus").Delete
> End If
>
> tapi malah muncul warning kira2 bunyinya "object or method not find".
> penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik
> tentang workbook dibuat expired.
> kira2 salahnya dimana ya?
> maaf kalau pertanyaannya newbie bgt.
>
> salam
> vega
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5d.

Re: Macro - belajar deteksi nama sheets

Posted by: "cuma.milis@gmail.com" cuma.milis@gmail.com

Fri Mar 30, 2012 12:11 am (PDT)



terima kasih atas bantuannya pak Hendrik,terima kasih juga untuk contoh lampiran xlsm nya.

tadinya saya berpikir macro excel sudah dapat mendeteksi setiap nama sheets yg dimiliki tanpa menggunakan pengecekan For Next.

------- Original message -------
> From: hendrik karnadi <hendrikkarnadi@yahoo.com>
> To: belajar-excel@yahoogroups.com
> Sent: 30.3., 13:13
>
>  
>
> Coba di perbaiki sedikit Macronya,
>
> Sub Coba()
>     Dim ws As Worksheet  'utk deklarasi variable
>     Application.DisplayAlerts = False   'utk meniadakan display (tampilan) dialog   
>     For Each ws In ActiveWorkbook.Worksheets  'utk looping seluruh worksheets dalam Workbook
>         If ws.Name = "Hapus" Then
>             ws.Delete 'Untuk menghapus ws (Worksheet) bernama "Hapus"
>         End If
>     Next
> End Sub
>
> Salam,
> Hendrik Karnadi
>
> ---------------
> From: "cuma.milis@gmail.com" <cuma.milis@gmail.com>
> To: belajar-excel@yahoogroups.com
> Sent: Friday, 30 March 2012, 12:13
> Subject: [belajar-excel] Macro - belajar deteksi nama sheets
>
>  
> dear all,
> mohon dibantu lagi.
>
> saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang dituju,
> bila ada nanti nya akan ada action berikutnya. saya masih bingung bagaimana
> cara deteksinya.
> yang saya buat seperti ini (misal sheet nya ingin di delete) :
>
> If Worksheets.Name = "hapus" Then
> Sheets("hapus").Delete
> End If
>
> tapi malah muncul warning kira2 bunyinya "object or method not find".
> penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik
> tentang workbook dibuat expired.
> kira2 salahnya dimana ya?
> maaf kalau pertanyaannya newbie bgt.
>
> salam
> vega
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
5e.

Re: Macro - belajar deteksi nama sheets

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Mar 30, 2012 12:18 am (PDT)



Coba buat function :

public function SheetnyaAda( sNamaSheet as string ) as long
on error resume next
sheetnyaada=-not sheets(snamasheet) is nothing
err.clear
on error goto 0
end function

Cara pakai : misal di sebuah prosedur

public sub SebuahProsedur()
if sheetnyaada("mysheet")<>0 then
'kodenya di here ya...
endif
end sub

Kid.
On Fri, Mar 30, 2012 at 13:56, <cuma.milis@gmail.com> wrote:

> **
>
>
> terima kasih atas bantuannya pak Hendrik,terima kasih juga untuk contoh
> lampiran xlsm nya.
>
> tadinya saya berpikir macro excel sudah dapat mendeteksi setiap nama
> sheets yg dimiliki tanpa menggunakan pengecekan For Next.
>
>
> ------- Original message -------
> > From: hendrik karnadi <hendrikkarnadi@yahoo.com>
> > To: belajar-excel@yahoogroups.com
> > Sent: 30.3., 13:13
> >
> >
> >
> > Coba di perbaiki sedikit Macronya,
> >
> > Sub Coba()
> > Dim ws As Worksheet 'utk deklarasi variable
> > Application.DisplayAlerts = False 'utk meniadakan display
> (tampilan) dialog
> > For Each ws In ActiveWorkbook.Worksheets 'utk looping seluruh
> worksheets dalam Workbook
> > If ws.Name = "Hapus" Then
> > ws.Delete 'Untuk menghapus ws (Worksheet) bernama "Hapus"
> > End If
> > Next
> > End Sub
> >
> > Salam,
> > Hendrik Karnadi
> >
> > ---------------
>
> > From: "cuma.milis@gmail.com" <cuma.milis@gmail.com>
> > To: belajar-excel@yahoogroups.com
> > Sent: Friday, 30 March 2012, 12:13
> > Subject: [belajar-excel] Macro - belajar deteksi nama sheets
> >
> >
> > dear all,
> > mohon dibantu lagi.
> >
> > saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang
> dituju,
> > bila ada nanti nya akan ada action berikutnya. saya masih bingung
> bagaimana
> > cara deteksinya.
> > yang saya buat seperti ini (misal sheet nya ingin di delete) :
> >
> > If Worksheets.Name = "hapus" Then
> > Sheets("hapus").Delete
> > End If
> >
> > tapi malah muncul warning kira2 bunyinya "object or method not find".
> > penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik
> > tentang workbook dibuat expired.
> > kira2 salahnya dimana ya?
> > maaf kalau pertanyaannya newbie bgt.
> >
> > salam
> > vega
> >
> >
> >
> >
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
Recent Activity
Visit Your Group
Dog Groups

on Yahoo! Groups

Share pictures &

stories about dogs.

Yahoo! Groups

Small Business Group

A community for

small business owners

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.21

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)