Jumat, 16 Maret 2018

[belajar-excel] Digest Number 4455

15 Messages

Digest #4455
1a
Re: Mencari Jumlah Jam Lembur by "Mr. Kid" nmkid.family@ymail.com
2b
2d
2f
3a
BLS: Re: [belajar-excel] Tanya Vba by "Kelikpitoyo" kelikpitoyo
4a
Re: Tanya Vba by "Mr. Kid" nmkid.family@ymail.com
5a
Re: (unknown) by "Mr. Kid" nmkid.family@ymail.com
6a
Re: Menghitung jam mesin by "Mr. Kid" nmkid.family@ymail.com
7a
Re: Copy Paste antar Sheet by "Mr. Kid" nmkid.family@ymail.com
8a
Re: Deteksi Waktu Tandem by "Mr. Kid" nmkid.family@ymail.com

Messages

Thu Mar 15, 2018 3:10 pm (PDT) . Posted by:

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

Hai Iwan,

Coba nilai yang di-lookup diganti menjadi ceiling(
jam_absen_masuk+"0:0:1","0:15:0" )

Regards,
Kid

2018-03-14 11:00 GMT+07:00 iwell77@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

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

Thu Mar 15, 2018 5:21 pm (PDT) . Posted by:

"Cari Kebenaran"

Assalamu'alaikum Wr. Wb.

Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat bermanfaat
dari Master Kid tentang copy paste, maka muncul pertanyaan baru, yaitu:
bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) tombol di
keyboard, misalnya pakai tombol ENTER atau F1, F2, dan sebagainya..? Jadi
tidak menggunakan shape atau button atau shortcut macro untuk
mengeksekusi/menjalankan macro/VBA code.

Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.

Terima kasih

Assalamu'alaikum Wr. Wb.

Thu Mar 15, 2018 5:49 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Bisa, tetapi terlalu beresiko.
Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah input
data, harusnya input record client A, malah input record client B), maka
akan ribet mengatur perbaikannya.

Caranya dengan memanfaatkan event change milik worksheet.
Contoh script dalam event change milik worksheet, untuk salin isi cells
yang di-input di kolom A dibaris mana saja ke kolom C berurutan

if target.count=1 then 'hanya 1 cells yang berubah isinya
if target.column=1 then 'yaitu di kolom ke-1 [A]
application.enableevents=false 'cegah terpicunya events
with sheets("lokasi paste") 'pada sheet 'lokasi paste'
.cells( .rows.count , "C" ).end(xlup).offset(1).pastespecial
xlpastevalues 'paste values ke cells pertama di bawah data terakhir di
kolom C
end with 'selesai kerja di sheet 'lokasi paste'
application.enableevents=true 'events boleh terpicu lagi
endif
endif

Wassalamu'alaikum wr wb
Kid

2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum Wr. Wb.
>
> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat bermanfaat
> dari Master Kid tentang copy paste, maka muncul pertanyaan baru, yaitu:
> bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) tombol di
> keyboard, misalnya pakai tombol ENTER atau F1, F2, dan sebagainya..? Jadi
> tidak menggunakan shape atau button atau shortcut macro untuk
> mengeksekusi/menjalankan macro/VBA code.
>
> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>
> Terima kasih
>
> Assalamu'alaikum Wr. Wb.
>
>
>

Fri Mar 16, 2018 12:59 am (PDT) . Posted by:

"Cari Kebenaran"

Terima kasih master atas responnya.

Saya sudah coba code yang master berikan, tetapi gak jalan master. Untuk
menjalankan code itu pakai tombol apa Master? Saya lampirkan file excel
yang sudah "mengandung" VBA code dimaksud.

Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar sheet.
Terima kasih.

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

>
>
> Wa'alaikumussalam wr wb
>
> Bisa, tetapi terlalu beresiko.
> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah input
> data, harusnya input record client A, malah input record client B), maka
> akan ribet mengatur perbaikannya..
>
> Caranya dengan memanfaatkan event change milik worksheet.
> Contoh script dalam event change milik worksheet, untuk salin isi cells
> yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>
> if target.count=1 then 'hanya 1 cells yang berubah isinya
> if target.column=1 then 'yaitu di kolom ke-1 [A]
> application.enableevents=false 'cegah terpicunya events
> with sheets("lokasi paste") 'pada sheet 'lokasi paste'
> .cells( .rows.count , "C" ).end(xlup).offset(1).pastespecial
> xlpastevalues 'paste values ke cells pertama di bawah data terakhir di
> kolom C
> end with 'selesai kerja di sheet 'lokasi paste'
> application.enableevents=true 'events boleh terpicu lagi
> endif
> endif
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat bermanfaat
>> dari Master Kid tentang copy paste, maka muncul pertanyaan baru, yaitu:
>> bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) tombol di
>> keyboard, misalnya pakai tombol ENTER atau F1, F2, dan sebagainya...? Jadi
>> tidak menggunakan shape atau button atau shortcut macro untuk
>> mengeksekusi/menjalankan macro/VBA code.
>>
>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>
>> Terima kasih
>>
>> Assalamu'alaikum Wr. Wb.
>>
>>
>
>

Fri Mar 16, 2018 1:20 am (PDT) . Posted by:

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

Oh sorry, belum ada baris copy nya
Sebelum baris : With blabla
Diberi baris : target.copy

Hehehe...
Mohon maaf atas ketidak nyamanannya

Sent from my smart enough phone

> On Mar 16, 2018, at 09:27, Cari Kebenaran cahayailmu71@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Terima kasih master atas responnya.
>
> Saya sudah coba code yang master berikan, tetapi gak jalan master. Untuk menjalankan code itu pakai tombol apa Master? Saya lampirkan file excel yang sudah "mengandung" VBA code dimaksud.
>
> Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar sheet. Terima kasih.
>
> 2018-03-16 7:49 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>> Wa'alaikumussalam wr wb
>>
>> Bisa, tetapi terlalu beresiko.
>> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah input data, harusnya input record client A, malah input record client B), maka akan ribet mengatur perbaikannya..
>>
>> Caranya dengan memanfaatkan event change milik worksheet.
>> Contoh script dalam event change milik worksheet, untuk salin isi cells yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>>
>> if target.count=1 then 'hanya 1 cells yang berubah isinya
>> if target.column=1 then 'yaitu di kolom ke-1 [A]
>> application.enableevents=false 'cegah terpicunya events
>> with sheets("lokasi paste") 'pada sheet 'lokasi paste'
>> .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial xlpastevalues 'paste values ke cells pertama di bawah data terakhir di kolom C
>> end with 'selesai kerja di sheet 'lokasi paste'
>> application.enableevents=true 'events boleh terpicu lagi
>> endif
>> endif
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>>
>> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat bermanfaat dari Master Kid tentang copy paste, maka muncul pertanyaan baru, yaitu: bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) tombol di keyboard, misalnya pakai tombol ENTER atau F1, F2, dan sebagainya..? Jadi tidak menggunakan shape atau button atau shortcut macro untuk mengeksekusi/menjalankan macro/VBA code.
>>>
>>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>>
>>> Terima kasih
>>>
>>> Assalamu'alaikum Wr. Wb.
>>
>
>
> <Copy Data dengan 1 Tombol Keyboard.xlsm>

Fri Mar 16, 2018 1:37 am (PDT) . Posted by:

"Cari Kebenaran"

Jadi seperti ini ya Master?

Sub copas()
If target.Count = 1 Then 'hanya 1 cells yang berubah isinya
If target.Column = 1 Then 'yaitu di kolom ke-1 [A]
Application.EnableEvents = False 'cegah terpicunya events
target.copy
With Sheets("DATA") 'pada sheet 'lokasi paste'
.cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial
xlpastevalues 'paste values ke cells pertama di bawah data terakhir di
kolom C
End With 'selesai kerja di sheet 'lokasi paste'
Application.EnableEvents = True 'events boleh terpicu lagi
End If
End If
End Sub

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

>
>
> Oh sorry, belum ada baris copy nya
> Sebelum baris : With blabla
> Diberi baris : target.copy
>
> Hehehe...
> Mohon maaf atas ketidak nyamanannya
>
> Sent from my smart enough phone
>
> On Mar 16, 2018, at 09:27, Cari Kebenaran cahayailmu71@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Terima kasih master atas responnya.
>
> Saya sudah coba code yang master berikan, tetapi gak jalan master. Untuk
> menjalankan code itu pakai tombol apa Master? Saya lampirkan file excel
> yang sudah "mengandung" VBA code dimaksud.
>
> Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar sheet.
> Terima kasih.
>
> 2018-03-16 7:49 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Wa'alaikumussalam wr wb
>>
>> Bisa, tetapi terlalu beresiko.
>> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah input
>> data, harusnya input record client A, malah input record client B), maka
>> akan ribet mengatur perbaikannya...
>>
>> Caranya dengan memanfaatkan event change milik worksheet.
>> Contoh script dalam event change milik worksheet, untuk salin isi cells
>> yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>>
>> if target.count=1 then 'hanya 1 cells yang berubah isinya
>> if target.column=1 then 'yaitu di kolom ke-1 [A]
>> application.enableevents=false 'cegah terpicunya events
>> with sheets("lokasi paste") 'pada sheet 'lokasi paste'
>> .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial
>> xlpastevalues 'paste values ke cells pertama di bawah data terakhir di
>> kolom C
>> end with 'selesai kerja di sheet 'lokasi paste'
>> application.enableevents=true 'events boleh terpicu lagi
>> endif
>> endif
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>>
>> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat bermanfaat
>>> dari Master Kid tentang copy paste, maka muncul pertanyaan baru, yaitu:
>>> bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) tombol di
>>> keyboard, misalnya pakai tombol ENTER atau F1, F2, dan sebagainya..? Jadi
>>> tidak menggunakan shape atau button atau shortcut macro untuk
>>> mengeksekusi/menjalankan macro/VBA code.
>>>
>>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>>
>>> Terima kasih
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>>
>>
> <Copy Data dengan 1 Tombol Keyboard.xlsm>
>
>
>

Fri Mar 16, 2018 1:41 am (PDT) . Posted by:

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

eh...

baris copy-nya betul begitu.
tapi prosedurnya pakai prosedur event milik sheet lokasi input. Tentang
event object dalam Excel VBA bisa dilihat disini
<http://b-excel.blogspot.co.id/2013/08/belajarvba-007-property-methods-events.html>
..

2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Jadi seperti ini ya Master?
>
> Sub copas()
> If target.Count = 1 Then 'hanya 1 cells yang berubah isinya
> If target.Column = 1 Then 'yaitu di kolom ke-1 [A]
> Application.EnableEvents = False 'cegah terpicunya events
> target.copy
> With Sheets("DATA") 'pada sheet 'lokasi paste'
> .cells( ..rows.count , "C" ).end(xlup)..offset(1).pastespecial
> xlpastevalues 'paste values ke cells pertama di bawah data terakhir di
> kolom C
> End With 'selesai kerja di sheet 'lokasi paste'
> Application.EnableEvents = True 'events boleh terpicu lagi
> End If
> End If
> End Sub
>
> 2018-03-16 15:20 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Oh sorry, belum ada baris copy nya
>> Sebelum baris : With blabla
>> Diberi baris : target..copy
>>
>> Hehehe...
>> Mohon maaf atas ketidak nyamanannya
>>
>> Sent from my smart enough phone
>>
>> On Mar 16, 2018, at 09:27, Cari Kebenaran cahayailmu71@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>> Terima kasih master atas responnya.
>>
>> Saya sudah coba code yang master berikan, tetapi gak jalan master. Untuk
>> menjalankan code itu pakai tombol apa Master? Saya lampirkan file excel
>> yang sudah "mengandung" VBA code dimaksud.
>>
>> Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar sheet.
>> Terima kasih.
>>
>> 2018-03-16 7:49 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Wa'alaikumussalam wr wb
>>>
>>> Bisa, tetapi terlalu beresiko.
>>> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah input
>>> data, harusnya input record client A, malah input record client B), maka
>>> akan ribet mengatur perbaikannya..
>>>
>>> Caranya dengan memanfaatkan event change milik worksheet.
>>> Contoh script dalam event change milik worksheet, untuk salin isi cells
>>> yang di-input di kolom A dibaris mana saja ke kolom C berurutan
>>>
>>> if target.count=1 then 'hanya 1 cells yang berubah isinya
>>> if target.column=1 then 'yaitu di kolom ke-1 [A]
>>> application.enableevents=false 'cegah terpicunya events
>>> with sheets("lokasi paste") 'pada sheet 'lokasi paste'
>>> .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial
>>> xlpastevalues 'paste values ke cells pertama di bawah data terakhir di
>>> kolom C
>>> end with 'selesai kerja di sheet 'lokasi paste'
>>> application.enableevents=true 'events boleh terpicu lagi
>>> endif
>>> endif
>>>
>>> Wassalamu'alaikum wr wb
>>> Kid
>>>
>>>
>>>
>>>
>>> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Assalamu'alaikum Wr. Wb.
>>>>
>>>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat
>>>> bermanfaat dari Master Kid tentang copy paste, maka muncul pertanyaan baru,
>>>> yaitu: bisakah excel melakukan copy paste dengan hanya 1 (baca: satu)
>>>> tombol di keyboard, misalnya pakai tombol ENTER atau F1, F2, dan
>>>> sebagainya..? Jadi tidak menggunakan shape atau button atau shortcut macro
>>>> untuk mengeksekusi/menjalankan macro/VBA code.
>>>>
>>>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran.
>>>>
>>>> Terima kasih
>>>>
>>>> Assalamu'alaikum Wr. Wb.
>>>>
>>>>
>>>
>> <Copy Data dengan 1 Tombol Keyboard.xlsm>
>>
>>
>
>

Thu Mar 15, 2018 5:22 pm (PDT) . Posted by:

"Kelikpitoyo" kelikpitoyo

Selamat siang pak Hendrik
Berikut file nya pak
Terima kasih banyak atas bantuannya
Salam
Kelik

---- hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] menulis ----

> Hai Kelik,
>Coba lampirkan Source Formatnya dalam bentuk Excel.
>Salam,HK
>
> On Thursday, 15 March 2018, 1:11:44 PM GMT+7, Kelikpitoyo kelikpitoyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>  
>Dear Masters,
>
>Selamat Pagi,
>
>Mohon dibantu,
>
>saya belajar record macro, dari file "Source Format" saya mau copy paste ke file baru "Book9"
>
>Namun saya tambahkan baris di tiap data yang saya copy, dengan menambahkan kata "Jasa Maklon" dan "500".
>
>Jumlah baris data yang dicopy berubah-ubah,
>
>Bagaimana bentuk script VBAnya? Untuk tidak menambahkan "Jasa Maklon" dan "500" saat tidak ada data yang dicopy,
>
>mohon pencerahannya,
>
>Berikut saya lampirkan:
>
>file source = Source Format,
>
>file hasil copy = Book9,  dan record makro nya,
>
>Terima kasih sebelumnya,
>
>Salam
>
>Kelik
>
>
>

Thu Mar 15, 2018 5:33 pm (PDT) . Posted by:

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

Hai Kelik,

Asumsi :
1. Sudah ada workbook source yang terbuka bernama 'Source Format.xml'
dengan data di sheet ke-1 (apapun namanya)
2. Sudah ada file lokasi paste bernama 'drive:\folder\subfolder\Book9.xlsx'
walaupun belum terbuka, lokasi paste data di sheet ke-1 (apapun namanya)
3. Records yang di-copy dari source mulai baris ke-5 (berarti ada header di
baris ke-4)
4. Kolom yang di-copy adalah C:F (4 kolom) dan kolom H (1 kolom) [kolom G
tidak di-copy]
5. Lokasi paste sudah punya header di baris ke-6 [*baris ke-5 adalah blank*,
dan lokasi paste di baris kosong pertama setelah header, tidak ada kolom
yang di-hide]
6. Pengaturan paste untuk source kolom C:F di letakkan di lokasi paste
kolom C:F, sedangkan source kolom G diletakkan di lokasi paste kolom i
7. Perlu membuat records baru untuk semua records hasil paste yang kolom
F-nya berisi data dengan mengatur nilai kolom F records baru berbunyi 'Jasa
Maklon' dan nilai kolom i records baru bernilai 500

Urutan proses manual :
1. copy dari source, kolom C:F (mulai baris 5 sampai baris terakhir), paste
values ke lokasi target kolom C di baris baru
2. copy dari source, kolom H sebanyak baris records saat copy kolom C:F,
paste values ke lokasi target kolom i dibaris lokasi paste kolom C:F
3. di hasil paste, pilih data hasil filter kolom F yang tidak kosong lalu
copy (misal copy kolom C:E saja karena A:B kosong, F akan diganti, G
kosong, i akan diganti),
paste values ke baris baru setelah record terakhir yang ada
4. pada hasil paste hasil filter, nilai di kolom F diganti berbunyi 'Jassa
Maklon', dan nilai kolom i diganti bernilai 500

Proses tersebut membutuhkan beberapa informasi yang harus terus dijaga
untuk digunakan berulang kali, antara lain :
1. nomor baris Excel lokasi paste
2. jumlah records yang diproses
3. object worksheet source, workbook lokasi paste, dan object worksheet
lokasi paste

Script :
0. deklarasi variabel dan init awal setiap variabel
dim shtS as worksheet, wbkT as workbook, shtT as worksheet, lRowNew as
long, lRecords as long
set shts=workbooks("nama workbook source yang telah terbuka").sheets(1)
set wbkt=workbooks.open("drive:\folder\subfolder\Book9.xlsx")
set shts=wbkt.sheets(1)
lRowNew=shtt.cells( shtt.rows.count , "C" ).end(xlup).row+1 '+1 untuk
mendapatkan baris kosong pertama
lRecords=shts.cells( shts.rows.count , "C" ).end(xlup).row-4 'header di
baris 4
if lrecords<1 then 'jika tidak ada record source, maka keluar
exit sub
endif

1. copy paste dan flag penanda records baru hasil paste di kolom J
shts.range("C5:F5").resize( lrecords ).copy
shtt.cells( lrownew , "C" ).pastespecial xlpastevalues
shts.range("H5").resize( lrecords ).copy
shtt.cells( lrownew , "i" ).pastespecial xlpastevalues
shtt.cells( lrownew , "j" ).resize( lrecords ).value="Kid"
'shts.parent.close false 'tutup workbook source (aktifkan baris ini bila
perlu)

2. set lokasi baris kosong untuk records baru 'Jasa Maklon'
lRowNew=shtt.cells( shtt.rows.count , "C" ).end(xlup).row+1 '+1 untuk
mendapatkan baris kosong pertama

3. filter records baru hasil paste dengan kriteria kolom F yang tidak
kosong, simpan jumlah records hasil filter,copy paste hasil filter ke baris
baru
with shtt.range("a6").currentregion
.autofilter 6,"<>" 'kriteria kolom F [6] tidak blank
.autofilter 10,"Kid" 'kriteria kolom J [10] ada flag records baru
lrecords=.resize(,1).rows.count-1 'header tidak dihitung
if lrecords<1 then 'tidak ada hasil filter
.parent.autofiltermode=false 'turnoff autofilter
.resize(,1).offset(9).clear 'hapus kolom flag, dari kolom A, 1
kolom, lompat 9 kolom ke kanan untuk sampai kolom ke-10 [J]
exit sub
endif
.specialcells(xlcelltypevisible).copy .parent.cells( lrownew , "A" )
.parent.autofiltermode=false 'turnoff autofilter
end with

4. set records 'Jasa Maklon' dengan nilai 500, lalu hapus kolom flag
records baru (kolom J)
shtt.cells( lrownew , "F" ).resize( lrecords ).value="Jasa Maklon"
shtt.cells( lrownew , "i").resize( lrecords ).value=500
shtt.range("j6").resize( lrownew + lrecords ).clearcontents
'wbkt.save 'aktifkan bila perlu, atau saveas bila ingin dengan nama lain
[awalnya, lokasi paste sudah ada dan hasil open workbook]

Regards,
Kid

2018-03-15 10:43 GMT+07:00 Kelikpitoyo kelikpitoyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Masters,
>
> Selamat Pagi,
>
> Mohon dibantu,
>
> saya belajar record macro, dari file "Source Format" saya mau copy paste
> ke file baru "Book9"
>
> Namun saya tambahkan baris di tiap data yang saya copy, dengan menambahkan
> kata "Jasa Maklon" dan "500".
>
> Jumlah baris data yang dicopy berubah-ubah,
>
> Bagaimana bentuk script VBAnya? Untuk tidak menambahkan "Jasa Maklon" dan
> "500" saat tidak ada data yang dicopy,
>
> mohon pencerahannya,
>
> Berikut saya lampirkan:
>
> file source = Source Format,
>
> file hasil copy = Book9, dan record makro nya,
>
> Terima kasih sebelumnya,
>
> Salam
>
> Kelik
>
>
>

Thu Mar 15, 2018 5:54 pm (PDT) . Posted by:

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

Tanpa VBA bisa dengan fitur shared workbook (syarat dan ketentuan berlaku).
Dengan VBA, sebaiknya disediakan 2 file, 1 file data (untuk menyimpan data)
dan 1 file input (bisa di-copy oleh seluruh user ke komputer
masing-masing). VBA di file input.
Isi proses dalam file input :
1. buka file data
2. periksa status file data yang dibuka sampai berstatus BUKAN read only
3. copy data inputan lalu paste ke file data di lokasi yang semestinya
4. tutup file data disertai proses save

Sila cari di postingan lawas milis terkait setiap proses di atas.

Regards,
Kid

2018-03-14 13:05 GMT+07:00 Bocah Angon Studio
atekajaya_palangkaraya@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

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

Thu Mar 15, 2018 7:19 pm (PDT) . Posted by:

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

Hai Hasna,

Coretan tentang array formula ada disini
<http://excel-mr-kid.blogspot.co.id/2011/03/array-formula-kenalan-yuuuk.html>
..

Prinsip operasi array adalah kartesian.
1. komputasi array( N baris x 1 kolom ) dengan 1 cells menghasilkan array (
N baris x 1 kolom )
komputasi array( 1 baris x M kolom ) dengan 1 cells menghasilkan array
( 1 baris x M kolom )

2. komputasi array( N baris x M kolom ) dengan array( N baris x 1 kolom )
menghasilkan array ( N baris x M kolom )
komputasi array( N baris x M kolom ) dengan array( 1 baris x M kolom )
menghasilkan array ( N baris x M kolom )

3. komputasi array( N baris x M kolom ) dengan array( N baris x M kolom )
menghasilkan array( N baris x M kolom )
> Jika N antara 2 array yang diproses adalah berbeda (seperti N1 dan N2),
maka hasilnya adalah Min( N1 , N2 )
> Jika M antara 2 array yang diproses adalah berbeda (seperti M1 dan M2),
maka hasilnya adalah Min( M1 , M2 )
> Contoh : Array( 5 baris x 7 kolom ) dengan array( 9 baris x 2 kolom )
menghasilkan array( 5 baris x 2 kolom ) karena sisi baris [N] adalah Min( 5
, 9 ) = 5 dan sisi kolom [M] adalah Min( 7 , 2 ) = 2

4. komputasi array( N baris x 1 kolom ) dengan array( 1 baris x M kolom )
menghasilkan array( N baris x M kolom )

​*** latar kuning : area yang diblok ketika menulis array formula
*** entri formula dengan CTRL SHIFT ENTER bersamaan
*** operasi array 1 : array( 3 x 1 ) vs 1 cells -> array( 3 x 1 ) dan
array( 1 x 3 ) vs 1 cells -> array( 1 x 3 )
*** operasi array 2 : array( 3 x 1 ) vs array( 3 x 1 ) -> array( 3 x 1 )
dan array( 1 x 3 ) vs array( 1 x 3 ) -> array( 1 x 3 )
*** operasi array 3 : array( 3 x 2 ) vs array( 3 x 2 ) -> array( 3 x 2 )
*** operasi array 4 : array( 3 x 1 ) vs array( 1 x 3 ) -> array( 3 x 3 )

Silakan dieksplorasi lebih lanjut.

Regards,
Kid

2018-03-12 8:24 GMT+07:00 Hasna hanifah hasna26@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Terima kasih banyak Mr.Kid.
> Saya memang masih belum paham bener mengenai Array formula. Makanya saya
> coba utak atik namun ternyata masih banyak kekurangannya.
> Terima kasih.
>
> 2018-03-10 3:26 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Hai Hasna,
>>
>> File terlampir ada yang menggunakan array formula.
>>
>> Regards,
>> Kid
>>
>>
>> 2018-03-09 16:28 GMT+07:00 Hasna hanifah hasna26@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear Bapak/Ibu Master Excel.
>>>
>>>
>>> Mohon bantuan mungkin diantara Bapak / Ibu ada yang bisa merumuskan
>>> formula yang simple tanpa perlu bantuan perhitungan dengan sheet lain.
>>> Terima kasih.
>>>
>>>
>>> Hasna
>>>
>>>
>>
>
>

Thu Mar 15, 2018 7:28 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Pada proses yang memanfaatkan Excel Table Object, range yang merujuk nama
Excel Table Object akan menghasilkan area range records (tanpa header).
Excel Table Object sebagai wadah data inputan sebaiknya memiliki urutan
kolom yang sama seperti urutan kolom wadah penyimpan data.
Excel Table Object dapat diisi kolom berformula untuk membantu pengisian
nilai data inputan pada kolom-kolom tertentu.
Hal ini memudahkan penyusunan urutan kolom pada tabel inputan menjadi
seperti urutan pada wadah penyimpan data.
Kolom berformula dalam Excel Table Object wadah inputan dapat di-hide.

Proses copy paste values akan lebih mudah, seperti :
sheets("inputan").range("nama_excel_table_object").copy
sheets("data").cells( sheets("data").rows.count , "a"
).end(xlup).offset(1).pastespecial xlpastevalues

Wassalamu'alaikum wr wb
Kid

2018-03-09 17:36 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Asslamu'alaikum Warhmatullahi Wabarakatuh.
>
> Kepada para Master dan segenap anggota milis.
>
> Tolong dibantu VBA CODE. Saya ingin melakukan copy paste dari satu sheet
> ke sheet lain.
>
> Saya ingin melakukan copy data tertentu dari sheet SUMBER ke sheet HASIL
> dengan menekan tombol SIMPAN yang ada pada sheet SUMBER. Setelah menekan
> tombol SIMPAN, baris ke 7 (A7) pada sheet SUMBER menjadi bersih dan siap
> diisi lagi.
>
> Apabila sheet HASIL sudah terisi data dan saya ingin men-copy lagi data
> baru dari sheet SUMBER maka letakkan data baru ini di baris berikutnya yg
> masih kosong biar tidak menindih data yang sudah ada (di sheet HASIL).
>
> - Data yang ingin dicopy ada di sheet SUMBER
> - Hasil yang diinginkan ada di sheet HASIL
>
> Selengkapnya lihat lampiran.
>
> Asslamu'alaikum Warhmatullahi Wabarakatuh.
>
>
>

Thu Mar 15, 2018 9:14 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

File terlampir menggunakan kolom helper dan ada yang berisi array formula
dengan running (resizing) references.

Wassalamu'alaikum wr wb
Kid

2018-03-01 13:08 GMT+07:00 cheivory_bridge@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Yth. * B-Exceler*
>
>
> *Assalaamu&#39;alaikum Wr Wb*
>
>
> Mohon kiranya dapat dibantu mendapatkan informasi deteksi waktu tandem..
>
> Case terlampir.
>
>
> Terima kasih.
>
>
> *Wassalaamu&#39;alaikum Wr Wb*
>
>
> *Ari*
>
>
>

Fri Mar 16, 2018 12:59 am (PDT) . Posted by:

y.roni35

Saya Mau Tanya Lagi.

Untuk File:
1. File MASTER agar terpassword biar masing2 USER tidak bisa FULL CONTROL apakah bisa?
2. untuk file MASTER saat di modify maka file USER akan berubah. apakah bisa?

Fri Mar 16, 2018 1:36 am (PDT) . Posted by:

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

Tentang :
1. File MASTER agar terpassword biar masing2 USER tidak bisa FULL CONTROL
apakah bisa?
> Excel tidak menyediakan fitur yang baik untuk hal ini.
> Fitur shared workbook, bisa diatur area yang boleh diubah user tertentu,
tetapi area tersebut bisa dengan mudah diatur ulang oleh setiap user.
> Memanfaatkan VBA, harus disediakan daftar nama user, password, membuat
script mengisi user dan password, dan sebagainya. Tetapi tetap bisa dengan
mudah dibongkar oleh user.
> VBA dan proteksi file (bukan proteksi workbook), maka perlu disediakan
pengisian password file. Semua user yang tahu password (hanya ada 1
password untuk semua user) bisa membukanya secara langsung

2. untuk file MASTER saat di modify maka file USER akan berubah. apakah
bisa?
> di file inputan bisa disediakan sheet berisi hasil koneksi data dengan
fitur Get External Data (pastikan koneksi dalam mode readonly).
> pastikan koneksi data di-set auto referesh setiap 1 menit (hanya dalam
satuan menit), atau menggunakan VBA memanfaatkan timer untuk melakukan
refresh setiap N detik.

Regards,
Kid

2018-03-16 14:38 GMT+07:00 y.roni35@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Saya Mau Tanya Lagi.
>
> Untuk File:
> 1. File MASTER agar terpassword biar masing2 USER tidak bisa FULL CONTROL
> apakah bisa?
> 2. untuk file MASTER saat di modify maka file USER akan berubah. apakah
> bisa?
>
>
>
============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 01.41

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)