Rabu, 14 Maret 2018

[belajar-excel] Digest Number 4453

4 Messages

Digest #4453
1a
Re: Mencari Jumlah Jam Lembur by "Mr. Kid" nmkid.family@ymail.com
2
(no subject) by "Bocah Angon Studio" atekajaya_palangkaraya

Messages

Tue Mar 13, 2018 12:11 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Iwan,

File terlampir menggunakan vlookup ke tabel referensi dan networkdays
disertai daftar hari libur (sabtu minggu otomatis dihitung sebagai hari
libur).
Silakan gunakan NetWorkDays.Intl
<https://support.office.com/en-us/article/networkdays-intl-function-a9b26239-4f20-46a1-9ab8-4e925bfd5e28>
(xl2010 ke atas) jika hari libur mingguan selain sabtu minggu maupun custom
N days tertentu per minggu.

Wassalamu'alaikum wr wb
Kid

2018-03-13 15:52 GMT+07:00 Iwan Setiawan iwell77@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Master Excel,
>
> Assalamualaikum Wr. Wb
>
> Selamat Sore Para Master Excel..
> Saya mempunyai case untuk menghitung Jumlah Jam Lembur yang membingungkan
> (bagi saya, hehe) seperti file terlampir. Mohon bantuannya dari para suhu.
> Terima kasih.
> Wassalam
>
>
> *Iwan*
>
>
>

Tue Mar 13, 2018 9:03 pm (PDT) . Posted by:

Terimakasih Mr. Kid atas penjelasan dan penjabarannya.
Tapi saya masih ada kendala mengenai rumus waktu.
Dalam Handkeys tidak menunjuk selalu tepat di pukul 07:00 tapi bisa jadi pukul 06:46.
Bila rumus tersebut agar bisa menjadi pukul 07:00 seperti apa?
Ada toleran waktu bila jam 07:15 masuk ke pukul 07:00 dan bila lewat jam tersebut masuk ke pukul 08:00.
Di saat masuk pada malam hari semisal jam 19:00 di Handskey 18:45 menjadi jam 19:00.
Toleran waktu sama seperti pagi hari lewat 15 menit.
Atas perhatiannya diucapkan terimakasih.

Tue Mar 13, 2018 11:17 pm (PDT) . Posted by:

"Bocah Angon Studio" atekajaya_palangkaraya

Selamat Siang Master....
Ada yang tau ga caranya membuat Link 1 file VBAMacro untuk 2 PC dan bisa di input dan di buka secara bersamaan

Sent from Samsung tablet

Wed Mar 14, 2018 2:26 am (PDT) . Posted by:

"Cari Kebenaran"

Terima kasih para master sekalian. Tutorial yang sangat bagus dan mudah
dimengerti.

2018-03-12 17:36 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Ok baiklah...
>
> 0. Kita anggap ada dua sheet dalam workbook saya, yaitu sheet INPUTAN dan
> sheet DATA
> > artinya, tidak ada Excel Table Object di dalam sheet. Jadi data adalah
> disuatu area range.
> > dari gambar,
> - sheet bernama New (sebagai sheet INPUTAN) : (lokasi copy)
> -> header 1 baris saja di baris 1 Excel, mulai kolom A sampai kolom C
> (3 kolom)
> -> records-nya rapat mulai baris 2 Excel.
> - sheet bernama Data (sebagai sheet DATA) : (lokasi paste)
> -> header 1 baris saja di baris 1 Excel, mulai kolom A sampai kolom C
> (3 kolom)
> -> records-nya rapat mulai baris 2 Excel.
>
> 1. Di sheet INPUTAN saya blok semua record (header tabel TIDAK ikut
> diblok). Lalu klik kanan, pilih Copy
> > setara dengan kegiatan berikut :
> klik sheet bernama New
> -> Sheets("New").
> klik header di kolom pertama data (A1) ->
> Range("a1").
> lalu tekan CTRL A (select all),
> -> CurrentRegion.
> lalu area yang terblok digeser turun 1 baris Excel (offset
> +1 baris dan 0 kolom), -> Offset( 1 , 0 ).
> kemudian CTRL C (copy)
> -> Copy
> > jadi di dapat 1 baris kode :
> Sheets("New")..Range("a1").CurrentRegion.Offset(1,0).Copy
>
> 2. Klik sheet DATA, letakkan cursor di cell A2 (cell A1 ada header tabel).
> Klik kanan, di Paste option pilih Value
> 5. Anggap ada data baru dan selesai diketik di sheet INPUTAN. Maka lakukan
> lagi langkah 1 dan 2, tapi ingat letakkan data baru (record-record baru)
> itu di bawah baris yang sudah terisi di sheet DATA.
> > dua proses ini berarti selalu *paste values* di baris baru di sheet
> data.
> > Kegiatan yang setara adalah :
> ke sheet bernama Data
>
> -> Sheets("Data").
> menuju baris terakhir Excel di kolom A (header pertama di kolom
> A) -> Cells(
> Sheets("Data").Rows.Count , "A" ).
> naik ke data terakhir dengan CTRL panah ke
> atas
> -> End(xlUp).
> lalu dari cells terakhir berisi data dilakukan turun 1 baris
> Excel (offset +1 baris dan 0 kolom) -> Offset( 1 , 0 ).
> kemudian klik kanan pilih *paste special* dan pilih *values *diakhir
> tekan OK -> PasteSpecial xlPasteValues
> > jadi di dapat 1 baris kode :
> Sheets("Data").Cells( Sheets("Data").Rows.Count , "A"
> ).End(xlUp).Offset(1,0).PasteSpecial xlPasteValues
>
> ***** dengan 2 baris kode, sudah selesai proses copy paste
> ***** lebih simpel dan bagus daripada yang di dapat dari internet yang
> diposting itu kan..
>
> 3. Setelah record tercopy/paste di sheet DATA, maka cursor kembali ke
> sheet INPUTAN untuk menghapus semua record yang sudah dimasukkan ke sheet
> DATA.
> > ini berarti menghapus isi area sheet New yang di-copy tadi kan...
> bedanya hanya kegiatan yang dilakukan, yaitu berubah dari CTRL C menjadi
> menekan tombol DELETE di keyboard
> klik sheet bernama New
> -> Sheets("New").
> klik header di kolom pertama data (A1) ->
> Range("a1").
> lalu tekan CTRL A (select all),
> -> CurrentRegion.
> lalu area yang terblok digeser turun 1 baris Excel (offset
> +1 baris dan 0 kolom), -> Offset( 1 , 0 ).
> tekan tombol DELETE di keyboard ->
> ClearContents
> > jadi di dapat 1 baris kode :
> Sheets("New").Range("a1").CurrentRegion.Offset(1,0).ClearContents
>
> 4. Masih di sheet INPUTAN, klik cell A2 (untuk bersiap-siap
> memasukkan/mengetik data baru.
> > ini berarti menuju ke header di kolom pertama di sheet bernama New, lalu
> aktifkan cells A2
> CTRL G lalu tulis alamat cells A1 (header pertama di A1)
> beserta lokasi sheet-nya tekan OK -> Application.Goto
> Sheets("New").Range("A1") , TRUE
> klik cells A2 agar menjadi cells aktif
>
> -> Sheets("New").Range("A2").Activate
> > dapat 2 baris kode :
> Application.Goto Sheets("New").Range("A1") , TRUE
> Sheets("New").Range("A2").Activate
>
> 6. Begitu seterusnya.
> > di VBE, buat sebuah procedure di sebuah general module, lalu isi dengan
> baris-baris kode di atas
> > kemudian di worksheet, buat sebuah shape lalu assign macro ke prosedur
> yang telah dibuat tadi
>
>
> *** Syarat dan ketentuan berlaku
> (lihat bagian 0.)
>
> Regards,
> Kid
>
>
>
>
> 2018-03-12 15:59 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Terima kasih atas respon Pak Hendrik dan Pak Kid.
>>
>> Menyambung pertanyaan dari Pak Kid:
>>
>> Kid : Ini kasus copy semua record semua kolom (tanpa header) dari sheet
>> inputan ke baris baru di sheet data ?
>>
>> Jawaban saya: YA. tetapi yang dicopy cuma nilai (value) saja.
>>
>> Langkah-langkahnya:
>>
>> Kita anggap ada dua sheet dalam workbook saya, yaitu sheet INPUTAN dan
>> sheet DATA
>>
>> 1. Di sheet INPUTAN saya blok semua record (header tabel TIDAK ikut
>> diblok). Lalu klik kanan, pilih Copy
>> 2. Klik sheet DATA, letakkan cursor di cell A2 (cell A1 ada header
>> tabel). Klik kanan, di Paste option pilih Value
>> 3. Setelah record tercopy/paste di sheet DATA, maka cursor kembali ke
>> sheet INPUTAN untuk menghapus semua record yang sudah dimasukkan ke sheet
>> DATA.
>> 4. Masih di sheet INPUTAN, klik cell A2 (untuk bersiap-siap
>> memasukkan/mengetik data baru.
>> 5. Anggap ada data baru dan selesai diketik di sheet INPUTAN. Maka
>> lakukan lagi langkah 1 dan 2, tapi ingat letakkan data baru (record-record
>> baru) itu di bawah baris yang sudah terisi di sheet DATA.
>> 6. Begitu seterusnya.
>>
>> Agar tambah jelas, saya lampirkan ilustrasi yang saya anggap mewakili
>> maksud saya.
>>
>> Terima kasih.
>>
>>
>> 2018-03-12 15:21 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Coba buat code ini:
>>> 'Deklarasi Variabel
>>> 1 baris Code
>>>
>>> 'Setting lastrow dan erow
>>> 2 baris Code
>>>
>>> 'Copy Sheet("one").Range("A2:A" & lasrow & ",C2:C" & lastrow)
>>> 'ke Sheets("two").Range("A" & erow)
>>> 1 baris Code (boleh pake tanda sambung kalau kepanjangan)
>>>
>>> Selamat mencoba.
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> ----- Forwarded message -----
>>> *From:* 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>
>>> *To:* BeExcel <belajar-excel@yahoogroups.com>
>>> *Sent:* Monday, 12 March 2018, 1:29:35 PM GMT+7
>>> *Subject:* Re: [belajar-excel] VBA Code tidak Jalan
>>>
>>>
>>>
>>> Wa'alaikumussalam wr wb
>>>
>>> Ini kasus copy semua record semua kolom (tanpa header) dari sheet
>>> inputan ke baris baru di sheet data ?
>>> Kalau memang begitu, JANGAN pakai script yang Anda dapatkan dari
>>> internet itu...
>>>
>>> Kalau Anda mau mencoba membuatnya sendiri yang lebih bagus daripada yang
>>> di internet itu, coba jelaskan langkah manual meng-copy dan paste itu....
>>> berurutan ya... seperti :
>>> 1. saya blok dulu area data yang bagian ini dengan cara : klik ini lalu
>>> tekan ini dan itu
>>> 2. saya copy dengan menekan CTRL C
>>> 3. ke sheet data, lalu bla-blabla dengan cara bliblibli
>>> 4. saya paste dengan CTRL V
>>> 5. lalu begini
>>> 6. lalu begitu
>>> 7. dst
>>> .
>>> .
>>> N. selesai
>>>
>>> Tapi kalau gak mau juga gpp kok...
>>>
>>> Wassalamu'alaikum wr wb
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2018-03-11 17:09 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>> Assalamu'alaikum
>>>
>>> Kepada para master dan anggota milis. Tolong saya dibantu untuk
>>> menemukan kesalahan VBA code yang saya sertakan dalam email ini. Kode
>>> tersebut untuk melakukan copy paste antar sheet, tetapi tidak jalan di PC
>>> saya. Sekali lagi tolong dibetulkan kesalahannya dimana/apa. Untuk
>>> diketahui, code tersebut saya dapat di youtube. Di videonya bisa jalan,
>>> tetapi di komputer saya tidak jalan.. Ini link videonya:
>>>
>>> https://www.youtube.com/watch? v=_2h2Buzhcf4
>>> <https://www.youtube.com/watch?v=_2h2Buzhcf4>
>>>
>>> Demikian atas bantuannya disampaikan terima kasih.
>>>
>>>
>>>
>>> Assalamu'alaikum
>>>
>>>
>>>
>>
>
>
============================================================
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