Senin, 13 Oktober 2014

[belajar-excel] Digest Number 3133

6 Messages

Digest #3133
1a
UserForm Login by "belajar excell" belajar.excell
2b
Re: Mencari dan menggabung isi cell by "Mr. Kid" nmkid.family@ymail.com
4a
Re: VBA by "Mr. Kid" nmkid.family@ymail.com

Messages

Sun Oct 12, 2014 11:19 am (PDT) . Posted by:

"belajar excell" belajar.excell

Selamat malam rekan2 pecinta excel,
Pada saat ini saya sedang membuat userform, tapi ada
beberapa kendala yang saya temui,
1. Bgaimana caranya agar Pada saat pertama kli
userform muncul, hanya sheet
Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
2. Untuk terminate userform, saya hanya memakain
VBA code seperti di bawah ini :
Private sub userform_terminate ()
Thisworkbook.close 1
End
sub
Tapi pada
saat saya mengisi user name dan juga password, yang ada malah excel langsung
tertutup.

Mohon bantuannya ya teman2 smuanya,

Terima kasih sebelummnya..

Sun Oct 12, 2014 6:30 pm (PDT) . Posted by:

"Nang Agus"

Dear Belajar Excel,

1. Coba dibuat pada object workbook dengan prosedur open:
Private Sub Workbook_Open()
Sheet1.visible = xlSheetVeryHidden
Sheet3.visible = xlSheetVeryHidden
Sheet4.visible = xlSheetVeryHidden
Sheet5.visible = xlSheetVeryHidden
Sheet6.visible = xlSheetVeryHidden
end sub

2.
Private sub userform_terminate ()
Me.Hide
End sub

Wasalam
NangAgus

2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selamat malam rekan2 pecinta excel,
> Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang
> saya temui,
> 1. Bgaimana caranya agar Pada saat pertama kli userform muncul,
> hanya sheet
> Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
> 2. Untuk terminate userform, saya hanya memakain VBA code seperti
> di bawah ini :
> Private sub userform_terminate ()
> Thisworkbook.close 1
> End sub
> Tapi pada saat saya mengisi user name dan juga password,
> yang ada malah excel langsung tertutup.
>
> Mohon bantuannya ya teman2 smuanya,
>
> Terima kasih sebelummnya..
>
>
>

Sun Oct 12, 2014 8:45 pm (PDT) . Posted by:

"Yayan Ajah"

Assalamu'alaikum
Mr. Kid, ternyata setelah dipakai pada data real ada masalah pada saat kode barang di sheet 2 tidak ada di sheet 1, sehingga di sheet2 muncul No. Rak yang entah dari mana hasil pencariannya.
Mohon bantuannya jika kode barang di sheet2 tidak ada pada sheet1 tidak muncul nomor rak (angka) atau mungkin di beri keterangan lain yang membedakan bahwa kode tsb tidak ada di sheet1

Terima kasih
Wassalam
Yayan

Pada Jumat, 10 Oktober 2014 18:05, "Yayan Ajah erte_try@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


Terima kasih banyak Mr. Kid sangat membantu sekali fungsinya dan hasilnya sesuai dengan yang saya inginkan.

Wassalamu'alaikum Wr. Wb.

Yayan
Pada Jumat, 10 Oktober 2014 17:50, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


Wa'alaikumussalam Wr. Wb.

Hai Yayan,

File terlampir menggunakan sebuah kolom bantu penyusun gabungan No Rak pada sisi tabel sumber data.

Sumber data dituntut sorted berdasar kolom Kode (ASC) dan No. Rak (ASC/DESC)

Wassalamu'alaikum Wr. Wb.
Kid.

2014-10-10 21:33 GMT+11:00 Yayan Ajah erte_try@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>Assalamu&#39;alaikum Wr. Wb.
>Mohon bantuannya kepada para master excel di milis ini, saya punya data stok opname yang datanya sampai puluhan ribu baris (data yang terlampir hanya sebagai sample saja)
>
>
>Yang ingin saya tanyakan adalah fungsi apa yang harus dipakai agar no rak pada data "sheet 1" bisa terekap di cell no rak "sheet 2" dengan patokan datanya adalah kode barang ? sehingga saya bisa tau barang pada sheet 2 ada di rak ke berapa saja.
>
>
>Mohon bantuan fungsi dan penjelasannya
>
>
>Terima kasih
>Wassalamu&#39;alaikum Wr. Wb.
>
>
>-Yayan-
>
>

Sun Oct 12, 2014 11:26 pm (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Tambahkan IF pada formulanya dengan susunan :
=IF( isnumber( match( cell_kode , range_kode_disheet_sebelah , 0 ) ) ,
formula_yang_sudah_ada , "Tidak ada" )

Wassalamu'alaikum Wr. Wb.
Kid.

2014-10-13 14:34 GMT+11:00 Yayan Ajah erte_try@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum
> Mr. Kid, ternyata setelah dipakai pada data real ada masalah pada saat
> kode barang di sheet 2 tidak ada di sheet 1, sehingga di sheet2 muncul No.
> Rak yang entah dari mana hasil pencariannya.
> Mohon bantuannya jika kode barang di sheet2 tidak ada pada sheet1 tidak
> muncul nomor rak (angka) atau mungkin di beri keterangan lain yang
> membedakan bahwa kode tsb tidak ada di sheet1
>
> Terima kasih
> Wassalam
> Yayan
>
>
> Pada Jumat, 10 Oktober 2014 18:05, "Yayan Ajah erte_try@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Terima kasih banyak Mr. Kid sangat membantu sekali fungsinya dan
> hasilnya sesuai dengan yang saya inginkan.
>
> Wassalamu'alaikum Wr. Wb.
> Yayan
> Pada Jumat, 10 Oktober 2014 17:50, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Yayan,
>
> File terlampir menggunakan sebuah kolom bantu penyusun gabungan No Rak
> pada sisi tabel sumber data.
> Sumber data dituntut sorted berdasar kolom Kode (ASC) dan No. Rak
> (ASC/DESC)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2014-10-10 21:33 GMT+11:00 Yayan Ajah erte_try@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum Wr. Wb.
> Mohon bantuannya kepada para master excel di milis ini, saya punya data
> stok opname yang datanya sampai puluhan ribu baris (data yang terlampir
> hanya sebagai sample saja)
>
> Yang ingin saya tanyakan adalah fungsi apa yang harus dipakai agar no rak
> pada data "sheet 1" bisa terekap di cell no rak "sheet 2" dengan patokan
> datanya adalah kode barang ? sehingga saya bisa tau barang pada sheet 2
> ada di rak ke berapa saja.
>
> Mohon bantuan fungsi dan penjelasannya
>
> Terima kasih
> Wassalamu'alaikum Wr. Wb.
>
> -Yayan-
>
>
>
>
>
>
>
>
>

Sun Oct 12, 2014 11:15 pm (PDT) . Posted by:

"Abudi Doank"

Terima kasih, Mr. Kid.

Salam,
Abdi

On Friday, October 10, 2014 6:31 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


sudah 2 hari ndak ada yang melirik :(

Hai Abudi,

File terlampir sekedar contoh template yang bisa dikembangkan lebih lanjut, terutama ketika ada proses yang nilainya sangat negatif (melebihi anggaran).

Wassalam,
Kid.

2014-10-08 20:46 GMT+11:00 Abudi Doank abudi.doank@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>Dear Master Excel,
>
>Mohon bantuannya, bagaimana cara membuat grafik seperti ini.
>Nilai yang ingin ditampilkan pada grafik adalah yang diblok warna kuning.
>Terima kasih.
>
>Salam,
>Abudi
>
>

Sun Oct 12, 2014 11:28 pm (PDT) . Posted by:

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

Untuk kasus Anda ini, coba pelajari fungsi InStr milik VB daripada
menggunakan methods milik WorksheetFunction

Wassalam,
Kid.

2014-10-10 23:44 GMT+11:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Pak Kid.
>
> file nya ada beberapa macam .
> Ringkasan Saham(10 Oktober 2014).xls
> OHLC-2014-08-15.xls
>
> saya hendak mengambil tgl nya .
>
> Dim bResult As Boolean ' sebelum nya saya pakai variant,
> long dll nga bisa juga
> path = ActiveWorkbook.path
> flnm = ActiveWorkbook.Name
>
> With Application.WorksheetFunction
>
> If bResult = IsError(.Find("(", flnm, 1)) Then
> MsgBox "berhasil"
> ElseIf bResult = IsError(.Find("-", flnm, 1)) Then
> MsgBox "berhasil 1"
> End If
>
> End With
>
> disitu saya gagal terus .
>
> Karena nga bisa jadinya seperti ini :
>
> With Application.WorksheetFunction
>
> On Error GoTo Pesan1
> If bResult = IsError(.Find("(", flnm, 1)) Then
> MsgBox "berhasil 1"
> End If
>
> Pesan1:
> On Error GoTo Pesan2
> If bResult = IsError(.Find("-", flnm, 1)) Then
> MsgBox "berhasil 2"
> End If
> Pesan2:
> End With
>
>
>
> Salam
>
> Lukman
>
>
>
>
> 2014-10-10 16:58 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>>
>> Hai Lukman,
>>
>> Untuk formula sederhana seperti contoh tersebut, biasanya dibiarkan
>> dipasang dalam cells saja. Menghitung dengan perintah VBA jauh lebih lambat
>> dibanding dibiarkan berada dalam cells dan lebih ribet mengubah-ubahnya.
>> Hasil dari kalkulasi formula dalam cell yang digunakan oleh VBA. Metode ini
>> jauh lebih efisien untuk berbagai jumlah record data yang akan diproses.
>> Terkadang muncul ketidak efisienan ketika ada formula proses yang tidak
>> sederhana atau menggunakan fungsi volatile dalam formula.
>>
>> otherwise...
>> Ketika ingin semuanya di-VBA-ken, banyak pilihan dalam memanfaatkan
>> formula melalui VBA.
>> Antara lain : =ISERROR(MATCH("Ticker";A1:K1;0))
>> 1. WorksheetFunction :
>> dim bResult as boolean
>> with application.worksheetfunction
>> bresult=.iserror( .match( "Ticker" , A1:K1 ,0 ) )
>> end with
>>
>> 2. Evaluate :
>> dim bResult as boolean
>> bresult =evaluate( "=ISERROR(MATCH(""Ticker"";A1:K1;0))" )
>>
>> 3. Pasang formula ke cell lalu di values
>> application.calculation=xlcalculationautomatic
>> with sheets("nama sheet hasil").range("alamat cell hasil")
>> .formula="=ISERROR(MATCH(""Ticker"";A1:K1;0))"
>> .value=.value
>> end with
>>
>> 4. Loop (jika data yang diproses sedikit [kurang dari 50K loop], akan
>> lebih cepat dari 3 cara di atas)
>> dim lCells as long, bResult as boolean
>> with range("a1:k1")
>> for lcells=1 to .cells.count
>> if .cells( lcells ).value<>"Ticker" then
>> bresult=true
>> exit for
>> endif
>> next lcells
>> end with
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> On Fri, Oct 10, 2014 at 3:54 PM, lkm jktind lkmjktind@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Tanya :
>>>
>>> Kalau Di worksheet :
>>> =ISERROR(MATCH("Ticker&quot;;A1:K1;0))
>>> =ISERROR(MATCH("Low";A1:K1;0))
>>> =ISERROR(FIND("(";C14;1))
>>> =ISERROR(FIND("H";C14;1))
>>>
>>> Kalau di VBA harus pakai apa ?
>>>
>>> Salam
>>>
>>> Lukman
>>>
>>>
>>
>
>
============================================================
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