Senin, 19 Maret 2018

[belajar-excel] Digest Number 4459

12 Messages

Digest #4459
2a
Re: Deteksi Waktu Tandem by "Mr. Kid" nmkid.family@ymail.com
4a
lanjutan Copy Kesamping by "Fahmi Syaifullah" fahmisyaifullah20
4b
Re: lanjutan Copy Kesamping [1 Attachment] by "hendrik karnadi" hendrikkarnadi
5a
Re: Tanya Vba by "Kelik Pitoyo"
5b
Re: Tanya Vba by "Mr. Kid" nmkid.family@ymail.com

Messages

Sun Mar 18, 2018 10:02 am (PDT) . Posted by:

"Rian Sutarsa" riansutarsa

mas hendrik, bagaimana bila dilain folder? mohon pencerahannya mas

Pada Sab, 10 Feb 2018 pada 22:50, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:  

Dear BeExcel,Macro di bawah ini bisa digunakan untuk mengcopy Sheet Tabs dari satu Workbook(file) lain (dalam keadaan tertutup) yang berada dalam Folder/Sub Folder yang sama (DestBook dan SrcBook berada dalam satu Folder/Sub Folder)..
Option ExplicitSub Tes()    Dim Path As String    Path = ThisWorkbook.Path & "\"    Workbooks.Open Filename:=Path & "SrcBook"    Application.DisplayAlerts = False    'copy over workbook tabs    Workbooks("SrcBook").Sheets(Array("A", "B", "C")).Copy Before:=Workbooks("DestBook&quot;).Sheets(1)    Application.DisplayAlerts = True    Workbooks("SrcBook").Close FalseEnd Sub
Ini adalah modifikasi jawaban saya atas pertanyaan seorang member grup excel (Excel and VBA Users).File terlampir.
Semoga bermanfaat.
Salam,HK
Catatan:Extract file terlampir (SrcBook dan DestBook) ke dalam satu Folder/Sub Folder kemudian buka file DestBook untuk menjalankan macronya.  #yiv5173069758 #yiv5173069758 -- #yiv5173069758ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5173069758 #yiv5173069758ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5173069758 #yiv5173069758ygrp-mkp #yiv5173069758hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5173069758 #yiv5173069758ygrp-mkp #yiv5173069758ads {margin-bottom:10px;}#yiv5173069758 #yiv5173069758ygrp-mkp .yiv5173069758ad {padding:0 0;}#yiv5173069758 #yiv5173069758ygrp-mkp .yiv5173069758ad p {margin:0;}#yiv5173069758 #yiv5173069758ygrp-mkp .yiv5173069758ad a {color:#0000ff;text-decoration:none;}#yiv5173069758 #yiv5173069758ygrp-sponsor #yiv5173069758ygrp-lc {font-family:Arial;}#yiv5173069758 #yiv5173069758ygrp-sponsor #yiv5173069758ygrp-lc #yiv5173069758hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5173069758 #yiv5173069758ygrp-sponsor #yiv5173069758ygrp-lc .yiv5173069758ad {margin-bottom:10px;padding:0 0;}#yiv5173069758 #yiv5173069758actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5173069758 #yiv5173069758activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5173069758 #yiv5173069758activity span {font-weight:700;}#yiv5173069758 #yiv5173069758activity span:first-child {text-transform:uppercase;}#yiv5173069758 #yiv5173069758activity span a {color:#5085b6;text-decoration:none;}#yiv5173069758 #yiv5173069758activity span span {color:#ff7900;}#yiv5173069758 #yiv5173069758activity span .yiv5173069758underline {text-decoration:underline;}#yiv5173069758 .yiv5173069758attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5173069758 .yiv5173069758attach div a {text-decoration:none;}#yiv5173069758 .yiv5173069758attach img {border:none;padding-right:5px;}#yiv5173069758 .yiv5173069758attach label {display:block;margin-bottom:5px;}#yiv5173069758 .yiv5173069758attach label a {text-decoration:none;}#yiv5173069758 blockquote {margin:0 0 0 4px;}#yiv5173069758 .yiv5173069758bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5173069758 .yiv5173069758bold a {text-decoration:none;}#yiv5173069758 dd.yiv5173069758last p a {font-family:Verdana;font-weight:700;}#yiv5173069758 dd.yiv5173069758last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5173069758 dd.yiv5173069758last p span.yiv5173069758yshortcuts {margin-right:0;}#yiv5173069758 div.yiv5173069758attach-table div div a {text-decoration:none;}#yiv5173069758 div.yiv5173069758attach-table {width:400px;}#yiv5173069758 div.yiv5173069758file-title a, #yiv5173069758 div.yiv5173069758file-title a:active, #yiv5173069758 div.yiv5173069758file-title a:hover, #yiv5173069758 div.yiv5173069758file-title a:visited {text-decoration:none;}#yiv5173069758 div.yiv5173069758photo-title a, #yiv5173069758 div.yiv5173069758photo-title a:active, #yiv5173069758 div.yiv5173069758photo-title a:hover, #yiv5173069758 div.yiv5173069758photo-title a:visited {text-decoration:none;}#yiv5173069758 div#yiv5173069758ygrp-mlmsg #yiv5173069758ygrp-msg p a span.yiv5173069758yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5173069758 .yiv5173069758green {color:#628c2a;}#yiv5173069758 .yiv5173069758MsoNormal {margin:0 0 0 0;}#yiv5173069758 o {font-size:0;}#yiv5173069758 #yiv5173069758photos div {float:left;width:72px;}#yiv5173069758 #yiv5173069758photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5173069758 #yiv5173069758photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5173069758 #yiv5173069758reco-category {font-size:77%;}#yiv5173069758 #yiv5173069758reco-desc {font-size:77%;}#yiv5173069758 .yiv5173069758replbq {margin:4px;}#yiv5173069758 #yiv5173069758ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5173069758 #yiv5173069758ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5173069758 #yiv5173069758ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5173069758 #yiv5173069758ygrp-mlmsg select, #yiv5173069758 input, #yiv5173069758 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5173069758 #yiv5173069758ygrp-mlmsg pre, #yiv5173069758 code {font:115% monospace;}#yiv5173069758 #yiv5173069758ygrp-mlmsg * {line-height:1.22em;}#yiv5173069758 #yiv5173069758ygrp-mlmsg #yiv5173069758logo {padding-bottom:10px;}#yiv5173069758 #yiv5173069758ygrp-msg p a {font-family:Verdana;}#yiv5173069758 #yiv5173069758ygrp-msg p#yiv5173069758attach-count span {color:#1E66AE;font-weight:700;}#yiv5173069758 #yiv5173069758ygrp-reco #yiv5173069758reco-head {color:#ff7900;font-weight:700;}#yiv5173069758 #yiv5173069758ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5173069758 #yiv5173069758ygrp-sponsor #yiv5173069758ov li a {font-size:130%;text-decoration:none;}#yiv5173069758 #yiv5173069758ygrp-sponsor #yiv5173069758ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5173069758 #yiv5173069758ygrp-sponsor #yiv5173069758ov ul {margin:0;padding:0 0 0 8px;}#yiv5173069758 #yiv5173069758ygrp-text {font-family:Georgia;}#yiv5173069758 #yiv5173069758ygrp-text p {margin:0 0 1em 0;}#yiv5173069758 #yiv5173069758ygrp-text tt {font-size:120%;}#yiv5173069758 #yiv5173069758ygrp-vital ul li:last-child {border-right:none !important;}#yiv5173069758

Sun Mar 18, 2018 4:47 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba ganti Thisworkbook.Path menjadi "Dir\SubDir" file sumber (tanda string tetap ditulis).
Salam HK

Sent from Yahoo Mail on Android

On Mon, Mar 19, 2018 at 0:03, Rian Sutarsa riansutarsa@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  
mas hendrik, bagaimana bila dilain folder? mohon pencerahannya mas

Pada Sab, 10 Feb 2018 pada 22:50, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:  

Dear BeExcel,Macro di bawah ini bisa digunakan untuk mengcopy Sheet Tabs dari satu Workbook(file) lain (dalam keadaan tertutup) yang berada dalam Folder/Sub Folder yang sama (DestBook dan SrcBook berada dalam satu Folder/Sub Folder).
Option ExplicitSub Tes()    Dim Path As String    Path = ThisWorkbook.Path & "\"    Workbooks.Open Filename:=Path & "SrcBook"    Application.DisplayAlerts = False    'copy over workbook tabs    Workbooks("SrcBook").Sheets(Array("A", "B", "C")).Copy Before:=Workbooks("DestBook&quot;).Sheets(1)    Application.DisplayAlerts = True    Workbooks("SrcBook").Close FalseEnd Sub
Ini adalah modifikasi jawaban saya atas pertanyaan seorang member grup excel (Excel and VBA Users).File terlampir.
Semoga bermanfaat.
Salam,HK
Catatan:Extract file terlampir (SrcBook dan DestBook) ke dalam satu Folder/Sub Folder kemudian buka file DestBook untuk menjalankan macronya. 
#yiv9561219754 #yiv9561219754 -- #yiv9561219754ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9561219754 #yiv9561219754ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9561219754 #yiv9561219754ygrp-mkp #yiv9561219754hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9561219754 #yiv9561219754ygrp-mkp #yiv9561219754ads {margin-bottom:10px;}#yiv9561219754 #yiv9561219754ygrp-mkp .yiv9561219754ad {padding:0 0;}#yiv9561219754 #yiv9561219754ygrp-mkp .yiv9561219754ad p {margin:0;}#yiv9561219754 #yiv9561219754ygrp-mkp .yiv9561219754ad a {color:#0000ff;text-decoration:none;}#yiv9561219754 #yiv9561219754ygrp-sponsor #yiv9561219754ygrp-lc {font-family:Arial;}#yiv9561219754 #yiv9561219754ygrp-sponsor #yiv9561219754ygrp-lc #yiv9561219754hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9561219754 #yiv9561219754ygrp-sponsor #yiv9561219754ygrp-lc .yiv9561219754ad {margin-bottom:10px;padding:0 0;}#yiv9561219754 #yiv9561219754actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9561219754 #yiv9561219754activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9561219754 #yiv9561219754activity span {font-weight:700;}#yiv9561219754 #yiv9561219754activity span:first-child {text-transform:uppercase;}#yiv9561219754 #yiv9561219754activity span a {color:#5085b6;text-decoration:none;}#yiv9561219754 #yiv9561219754activity span span {color:#ff7900;}#yiv9561219754 #yiv9561219754activity span .yiv9561219754underline {text-decoration:underline;}#yiv9561219754 .yiv9561219754attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9561219754 .yiv9561219754attach div a {text-decoration:none;}#yiv9561219754 .yiv9561219754attach img {border:none;padding-right:5px;}#yiv9561219754 .yiv9561219754attach label {display:block;margin-bottom:5px;}#yiv9561219754 .yiv9561219754attach label a {text-decoration:none;}#yiv9561219754 blockquote {margin:0 0 0 4px;}#yiv9561219754 .yiv9561219754bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9561219754 .yiv9561219754bold a {text-decoration:none;}#yiv9561219754 dd.yiv9561219754last p a {font-family:Verdana;font-weight:700;}#yiv9561219754 dd.yiv9561219754last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9561219754 dd.yiv9561219754last p span.yiv9561219754yshortcuts {margin-right:0;}#yiv9561219754 div.yiv9561219754attach-table div div a {text-decoration:none;}#yiv9561219754 div.yiv9561219754attach-table {width:400px;}#yiv9561219754 div.yiv9561219754file-title a, #yiv9561219754 div.yiv9561219754file-title a:active, #yiv9561219754 div.yiv9561219754file-title a:hover, #yiv9561219754 div.yiv9561219754file-title a:visited {text-decoration:none;}#yiv9561219754 div.yiv9561219754photo-title a, #yiv9561219754 div.yiv9561219754photo-title a:active, #yiv9561219754 div.yiv9561219754photo-title a:hover, #yiv9561219754 div.yiv9561219754photo-title a:visited {text-decoration:none;}#yiv9561219754 div#yiv9561219754ygrp-mlmsg #yiv9561219754ygrp-msg p a span.yiv9561219754yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9561219754 .yiv9561219754green {color:#628c2a;}#yiv9561219754 .yiv9561219754MsoNormal {margin:0 0 0 0;}#yiv9561219754 o {font-size:0;}#yiv9561219754 #yiv9561219754photos div {float:left;width:72px;}#yiv9561219754 #yiv9561219754photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9561219754 #yiv9561219754photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9561219754 #yiv9561219754reco-category {font-size:77%;}#yiv9561219754 #yiv9561219754reco-desc {font-size:77%;}#yiv9561219754 .yiv9561219754replbq {margin:4px;}#yiv9561219754 #yiv9561219754ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9561219754 #yiv9561219754ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9561219754 #yiv9561219754ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9561219754 #yiv9561219754ygrp-mlmsg select, #yiv9561219754 input, #yiv9561219754 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9561219754 #yiv9561219754ygrp-mlmsg pre, #yiv9561219754 code {font:115% monospace;}#yiv9561219754 #yiv9561219754ygrp-mlmsg * {line-height:1..22em;}#yiv9561219754 #yiv9561219754ygrp-mlmsg #yiv9561219754logo {padding-bottom:10px;}#yiv9561219754 #yiv9561219754ygrp-msg p a {font-family:Verdana;}#yiv9561219754 #yiv9561219754ygrp-msg p#yiv9561219754attach-count span {color:#1E66AE;font-weight:700;}#yiv9561219754 #yiv9561219754ygrp-reco #yiv9561219754reco-head {color:#ff7900;font-weight:700;}#yiv9561219754 #yiv9561219754ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9561219754 #yiv9561219754ygrp-sponsor #yiv9561219754ov li a {font-size:130%;text-decoration:none;}#yiv9561219754 #yiv9561219754ygrp-sponsor #yiv9561219754ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9561219754 #yiv9561219754ygrp-sponsor #yiv9561219754ov ul {margin:0;padding:0 0 0 8px;}#yiv9561219754 #yiv9561219754ygrp-text {font-family:Georgia;}#yiv9561219754 #yiv9561219754ygrp-text p {margin:0 0 1em 0;}#yiv9561219754 #yiv9561219754ygrp-text tt {font-size:120%;}#yiv9561219754 #yiv9561219754ygrp-vital ul li:last-child {border-right:none !important;}#yiv9561219754

Sun Mar 18, 2018 4:23 pm (PDT) . Posted by:

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

Ada baiknya disediakan sebuah sheet berisi daftar kelompok (tanpa nama
anggota) yang dilengkapi data tempat, matakuliah, waktu mulai, dan durasi.
Misal sheet bernama 'kelompok'
Jika nama kelompok tidak unique (ada yang sama pada kuliah yang berbeda
atau pada tempat yang berbeda), maka sebaiknya dibuat sebuah kolom key
berisi gabungan nama kelompok, tempat, dan kuliah.
Komputasi tandem dilakukan di sheet ini.

Pada sheet lain (misal sheet bernama 'siswa'), berisi daftar siswa beserta
kelompok, mata kuliahnya, dan tempat. Jika di sheet daftar kelompok
dibuatkan kolom key, maka di sheet ini juga dibuat kolom key tersebut.
Kolom waktu mulai, durasi, dan keterangan tandem bisa diambil dengan
vlookup dari sheet daftar kelompok.

Pada sheet lain lagi (misal bernama 'output'), buat pivot table dari sheet
'siswa'. Letakkan matakuliah pada area Page atau filter. Letakkan kolom
lain yang dibutuhkan pada area Rows. Biarkan area columns dan value tetap
kosong. Bila perlu, atur layout pivot table sebagai tabular. Pada xl2010 ke
atas, set agar Repeat item labels.
Jika di bagian rows juga ingin ada kolom matakuliah, maka di sheet 'siswa'
dibuatkan sebuah kolom baru (misal bernama FilterKuliah) berisi formula
merujuk ke kolom Matakuliah. Isi kolom ini akan sama persis dengan isi
kolom matakuliah. Lalu di pivot table (sheet 'output'), area page atau
filter diisi dengan kolom FilterKuliah. Sedangkan pada bagian rows bisa
ditambahkan kolom matakuliah.

Jika ingin setiap sheet menampilkan daftar 1 matakuliah tertentu saja, maka
klik pivot table, ke ribbon analyze, lihat grup menu paling kiri bernama
Pivot Table, klik Options, pilih show report blabla.

Jadi, bagian yang menggunakan array formula hanyalah sheet 'kelompok' yang
jumlah record-nya sedikit.

Regards,
Kid

On Sat, Mar 17, 2018 at 6:25 AM, Eira I Arie cheivory_bridge@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Yth. Mr. Kid terimakasih penyelesaian nya.
>
> Oiya Mr. Kid, file data dummy yg saya kirim itu hanya satu matakuliah
> (bedah).. Sementara file data aslinya itu terdiri dari 16 matakuliah (1
> sheet = 1 matakuliah, jadi ada 16 sheet matakuliah, 1 sheet gabung).
> Andaikata, penyelesaian Mr. Kid tsb (ada array formula nya) saya terapkan
> ke sheet matakuliah yg lain, apakah sangat memberatkan fungsi kerja
> excelnya ? Adakah solusinya ?
>
> Informasi :
> - file data asli saat ini berukuran 2.5-3 MB
> - 1 sheet gabung, tdpt macro gabung sheet, hasil gabung format Excel tablet
> - 16 sheet matakuliah, tidak ada pengaturan Border Cell, ada fungsi
> conditional formatting di satu kolom.
>
> Terimakasih, mohon pencerahannya lagi.
>
> Dikirim dari Yahoo Mail di Android
> <https://overview.mail.yahoo.com/mobile/?..src=Android>
>
> Pada Jum, 16 Mar 2018 pada 11:15, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
>
>
> 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*
>
>
>
>

Sun Mar 18, 2018 8:16 pm (PDT) . Posted by:

"Hasna hanifah" trie_32000

Dear Suhu Excel,

Maaf, mohon bantuannya lagi saya mengalami kesulitan dalam menghitung
Jumlah sesuai dengan kondisi alt-4. sudah menggunakan sumproduct & index
namun masih mentok. Mungkin ada yang bisa bantu. Terima kasih.

Sun Mar 18, 2018 8:23 pm (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20


Bu hasna,
Maaf File Corrupt , bisa dikirim ulang Dummy filenya.
terima kasih.fahmi

Pada Senin, 19 Maret 2018 10:16, "Hasna hanifah hasna26@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Suhu Excel,

Maaf, mohon bantuannya lagi saya mengalami kesulitan dalam menghitung Jumlah sesuai dengan kondisi alt-4. sudah menggunakan sumproduct & index namun masih mentok. Mungkin ada yang bisa bantu. Terima kasih. #yiv5516639424 #yiv5516639424 -- #yiv5516639424ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5516639424 #yiv5516639424ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5516639424 #yiv5516639424ygrp-mkp #yiv5516639424hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5516639424 #yiv5516639424ygrp-mkp #yiv5516639424ads {margin-bottom:10px;}#yiv5516639424 #yiv5516639424ygrp-mkp .yiv5516639424ad {padding:0 0;}#yiv5516639424 #yiv5516639424ygrp-mkp .yiv5516639424ad p {margin:0;}#yiv5516639424 #yiv5516639424ygrp-mkp .yiv5516639424ad a {color:#0000ff;text-decoration:none;}#yiv5516639424 #yiv5516639424ygrp-sponsor #yiv5516639424ygrp-lc {font-family:Arial;}#yiv5516639424 #yiv5516639424ygrp-sponsor #yiv5516639424ygrp-lc #yiv5516639424hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5516639424 #yiv5516639424ygrp-sponsor #yiv5516639424ygrp-lc .yiv5516639424ad {margin-bottom:10px;padding:0 0;}#yiv5516639424 #yiv5516639424actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5516639424 #yiv5516639424activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5516639424 #yiv5516639424activity span {font-weight:700;}#yiv5516639424 #yiv5516639424activity span:first-child {text-transform:uppercase;}#yiv5516639424 #yiv5516639424activity span a {color:#5085b6;text-decoration:none;}#yiv5516639424 #yiv5516639424activity span span {color:#ff7900;}#yiv5516639424 #yiv5516639424activity span .yiv5516639424underline {text-decoration:underline;}#yiv5516639424 .yiv5516639424attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5516639424 .yiv5516639424attach div a {text-decoration:none;}#yiv5516639424 .yiv5516639424attach img {border:none;padding-right:5px;}#yiv5516639424 .yiv5516639424attach label {display:block;margin-bottom:5px;}#yiv5516639424 .yiv5516639424attach label a {text-decoration:none;}#yiv5516639424 blockquote {margin:0 0 0 4px;}#yiv5516639424 .yiv5516639424bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5516639424 .yiv5516639424bold a {text-decoration:none;}#yiv5516639424 dd.yiv5516639424last p a {font-family:Verdana;font-weight:700;}#yiv5516639424 dd.yiv5516639424last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5516639424 dd.yiv5516639424last p span.yiv5516639424yshortcuts {margin-right:0;}#yiv5516639424 div.yiv5516639424attach-table div div a {text-decoration:none;}#yiv5516639424 div.yiv5516639424attach-table {width:400px;}#yiv5516639424 div.yiv5516639424file-title a, #yiv5516639424 div.yiv5516639424file-title a:active, #yiv5516639424 div.yiv5516639424file-title a:hover, #yiv5516639424 div..yiv5516639424file-title a:visited {text-decoration:none;}#yiv5516639424 div.yiv5516639424photo-title a, #yiv5516639424 div.yiv5516639424photo-title a:active, #yiv5516639424 div.yiv5516639424photo-title a:hover, #yiv5516639424 div.yiv5516639424photo-title a:visited {text-decoration:none;}#yiv5516639424 div#yiv5516639424ygrp-mlmsg #yiv5516639424ygrp-msg p a span.yiv5516639424yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5516639424 .yiv5516639424green {color:#628c2a;}#yiv5516639424 ..yiv5516639424MsoNormal {margin:0 0 0 0;}#yiv5516639424 o {font-size:0;}#yiv5516639424 #yiv5516639424photos div {float:left;width:72px;}#yiv5516639424 #yiv5516639424photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5516639424 #yiv5516639424photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5516639424 #yiv5516639424reco-category {font-size:77%;}#yiv5516639424 #yiv5516639424reco-desc {font-size:77%;}#yiv5516639424 .yiv5516639424replbq {margin:4px;}#yiv5516639424 #yiv5516639424ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5516639424 #yiv5516639424ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5516639424 #yiv5516639424ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5516639424 #yiv5516639424ygrp-mlmsg select, #yiv5516639424 input, #yiv5516639424 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5516639424 #yiv5516639424ygrp-mlmsg pre, #yiv5516639424 code {font:115% monospace;}#yiv5516639424 #yiv5516639424ygrp-mlmsg * {line-height:1.22em;}#yiv5516639424 #yiv5516639424ygrp-mlmsg #yiv5516639424logo {padding-bottom:10px;}#yiv5516639424 #yiv5516639424ygrp-msg p a {font-family:Verdana;}#yiv5516639424 #yiv5516639424ygrp-msg p#yiv5516639424attach-count span {color:#1E66AE;font-weight:700;}#yiv5516639424 #yiv5516639424ygrp-reco #yiv5516639424reco-head {color:#ff7900;font-weight:700;}#yiv5516639424 #yiv5516639424ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5516639424 #yiv5516639424ygrp-sponsor #yiv5516639424ov li a {font-size:130%;text-decoration:none;}#yiv5516639424 #yiv5516639424ygrp-sponsor #yiv5516639424ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5516639424 #yiv5516639424ygrp-sponsor #yiv5516639424ov ul {margin:0;padding:0 0 0 8px;}#yiv5516639424 #yiv5516639424ygrp-text {font-family:Georgia;}#yiv5516639424 #yiv5516639424ygrp-text p {margin:0 0 1em 0;}#yiv5516639424 #yiv5516639424ygrp-text tt {font-size:120%;}#yiv5516639424 #yiv5516639424ygrp-vital ul li:last-child {border-right:none !important;}#yiv5516639424

Sun Mar 18, 2018 11:48 pm (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

yth Bu hasna
copy rumus ini kebawah. teken ctrl+shift+enter supaya menjadi array formula=SUMPRODUCT(($B$5:$B$7=$B$12)*($C$5:$C$7);INDEX($D$5:$G$7;0;MATCH(D$11&"%";$D$2:$G$2&$D$3:$G$3;0))*(INDEX($D$5:$G$7;0;MATCH(D$11&"%";$D$2:$G$2&$D$3:$G$3;0)+1)="alt-4"))
semoga sesuai.
fahmi


Pada Senin, 19 Maret 2018 11:37, "Hasna hanifah hasna26@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  saya kirimkan lagi kalau filenya tidak bisa dibuka.Terima kasih #yiv7286933327 #yiv7286933327 -- #yiv7286933327ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7286933327 #yiv7286933327ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7286933327 #yiv7286933327ygrp-mkp #yiv7286933327hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7286933327 #yiv7286933327ygrp-mkp #yiv7286933327ads {margin-bottom:10px;}#yiv7286933327 #yiv7286933327ygrp-mkp .yiv7286933327ad {padding:0 0;}#yiv7286933327 #yiv7286933327ygrp-mkp .yiv7286933327ad p {margin:0;}#yiv7286933327 #yiv7286933327ygrp-mkp .yiv7286933327ad a {color:#0000ff;text-decoration:none;}#yiv7286933327 #yiv7286933327ygrp-sponsor #yiv7286933327ygrp-lc {font-family:Arial;}#yiv7286933327 #yiv7286933327ygrp-sponsor #yiv7286933327ygrp-lc #yiv7286933327hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7286933327 #yiv7286933327ygrp-sponsor #yiv7286933327ygrp-lc .yiv7286933327ad {margin-bottom:10px;padding:0 0;}#yiv7286933327 #yiv7286933327actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7286933327 #yiv7286933327activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7286933327 #yiv7286933327activity span {font-weight:700;}#yiv7286933327 #yiv7286933327activity span:first-child {text-transform:uppercase;}#yiv7286933327 #yiv7286933327activity span a {color:#5085b6;text-decoration:none;}#yiv7286933327 #yiv7286933327activity span span {color:#ff7900;}#yiv7286933327 #yiv7286933327activity span .yiv7286933327underline {text-decoration:underline;}#yiv7286933327 .yiv7286933327attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7286933327 .yiv7286933327attach div a {text-decoration:none;}#yiv7286933327 .yiv7286933327attach img {border:none;padding-right:5px;}#yiv7286933327 .yiv7286933327attach label {display:block;margin-bottom:5px;}#yiv7286933327 .yiv7286933327attach label a {text-decoration:none;}#yiv7286933327 blockquote {margin:0 0 0 4px;}#yiv7286933327 .yiv7286933327bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7286933327 .yiv7286933327bold a {text-decoration:none;}#yiv7286933327 dd.yiv7286933327last p a {font-family:Verdana;font-weight:700;}#yiv7286933327 dd.yiv7286933327last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7286933327 dd.yiv7286933327last p span.yiv7286933327yshortcuts {margin-right:0;}#yiv7286933327 div.yiv7286933327attach-table div div a {text-decoration:none;}#yiv7286933327 div.yiv7286933327attach-table {width:400px;}#yiv7286933327 div.yiv7286933327file-title a, #yiv7286933327 div.yiv7286933327file-title a:active, #yiv7286933327 div.yiv7286933327file-title a:hover, #yiv7286933327 div.yiv7286933327file-title a:visited {text-decoration:none;}#yiv7286933327 div.yiv7286933327photo-title a, #yiv7286933327 div.yiv7286933327photo-title a:active, #yiv7286933327 div.yiv7286933327photo-title a:hover, #yiv7286933327 div.yiv7286933327photo-title a:visited {text-decoration:none;}#yiv7286933327 div#yiv7286933327ygrp-mlmsg #yiv7286933327ygrp-msg p a span.yiv7286933327yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7286933327 .yiv7286933327green {color:#628c2a;}#yiv7286933327 .yiv7286933327MsoNormal {margin:0 0 0 0;}#yiv7286933327 o {font-size:0;}#yiv7286933327 #yiv7286933327photos div {float:left;width:72px;}#yiv7286933327 #yiv7286933327photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7286933327 #yiv7286933327photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7286933327 #yiv7286933327reco-category {font-size:77%;}#yiv7286933327 #yiv7286933327reco-desc {font-size:77%;}#yiv7286933327 .yiv7286933327replbq {margin:4px;}#yiv7286933327 #yiv7286933327ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7286933327 #yiv7286933327ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7286933327 #yiv7286933327ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7286933327 #yiv7286933327ygrp-mlmsg select, #yiv7286933327 input, #yiv7286933327 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7286933327 #yiv7286933327ygrp-mlmsg pre, #yiv7286933327 code {font:115% monospace;}#yiv7286933327 #yiv7286933327ygrp-mlmsg * {line-height:1.22em;}#yiv7286933327 #yiv7286933327ygrp-mlmsg #yiv7286933327logo {padding-bottom:10px;}#yiv7286933327 #yiv7286933327ygrp-msg p a {font-family:Verdana;}#yiv7286933327 #yiv7286933327ygrp-msg p#yiv7286933327attach-count span {color:#1E66AE;font-weight:700;}#yiv7286933327 #yiv7286933327ygrp-reco #yiv7286933327reco-head {color:#ff7900;font-weight:700;}#yiv7286933327 #yiv7286933327ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7286933327 #yiv7286933327ygrp-sponsor #yiv7286933327ov li a {font-size:130%;text-decoration:none;}#yiv7286933327 #yiv7286933327ygrp-sponsor #yiv7286933327ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7286933327 #yiv7286933327ygrp-sponsor #yiv7286933327ov ul {margin:0;padding:0 0 0 8px;}#yiv7286933327 #yiv7286933327ygrp-text {font-family:Georgia;}#yiv7286933327 #yiv7286933327ygrp-text p {margin:0 0 1em 0;}#yiv7286933327 #yiv7286933327ygrp-text tt {font-size:120%;}#yiv7286933327 #yiv7286933327ygrp-vital ul li:last-child {border-right:none !important;}#yiv7286933327

Mon Mar 19, 2018 1:33 am (PDT) . Posted by:

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

Hai Hasna, coba begini :
=SUMPRODUCT(($B$5:$B$7=$B12)*(INDEX($D$5:$G$7,0,MATCH(D$11,$D$2:$G$2,0)+1)="alt-4")*INDEX($D$5:$G$7,0,MATCH(D$11,$D$2:$G$2,0))*$C$5:$C$7)

2018-03-19 10:16 GMT+07:00 Hasna hanifah hasna26@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Suhu Excel,
>
>
> Maaf, mohon bantuannya lagi saya mengalami kesulitan dalam menghitung
> Jumlah sesuai dengan kondisi alt-4. sudah menggunakan sumproduct & index
> namun masih mentok. Mungkin ada yang bisa bantu. Terima kasih.
>
>
>

Sun Mar 18, 2018 8:44 pm (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

Assalamu'alaikum Wr.Wb
selamat siang BeExeller.melanjutkan pertanyaan lalu, saya sudah menambahkan kolom no_akun sesuai disamping.saya juga telah membuat skripnya walaupun masih sangat pemula.mohon koreksinya om kid dan BeExceller lainnya karna proses masih menggunakan copy file yang berada di sheet buku besar untuk judul dan total sumnya masih harus manual. maaf juga saya tidak memakai pivot table, karna memang sudah asik menggunakan formula dan Skrip VBA. heheeya walaupun kinerja excelnya jadi lemot.karna penggunaan fungsi arraynya banyak. data yang saya lampirkan adalah hasil copy paste value dari data source.
waasaalamu&#39;alaikum wr.wbterima kasihfahmi 

Mon Mar 19, 2018 1:07 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Fahmi,Coba pakai Array Formula (Offset....) dengan kolom bantu pada sheet sumber maupun sheet hasil.Untuk mengisi tanggal dan angka gunakan function Vlookup yang mengacu pada tbl_Data pada sheet sumber(kolom bantu sbg kolom pertamanya).File terlampir.
Salam,HK

On Monday, 19 March 2018, 10:44:39 AM GMT+7, Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Assalamu'alaikum Wr.Wb
selamat siang BeExeller.melanjutkan pertanyaan lalu, saya sudah menambahkan kolom no_akun sesuai disamping.saya juga telah membuat skripnya walaupun masih sangat pemula.mohon koreksinya om kid dan BeExceller lainnya karna proses masih menggunakan copy file yang berada di sheet buku besar untuk judul dan total sumnya masih harus manual. maaf juga saya tidak memakai pivot table, karna memang sudah asik menggunakan formula dan Skrip VBA. heheeya walaupun kinerja excelnya jadi lemot.karna penggunaan fungsi arraynya banyak. data yang saya lampirkan adalah hasil copy paste value dari data source.
waasaalamu&#39;alaikum wr.wbterima kasihfahmi 

Mon Mar 19, 2018 12:32 am (PDT) . Posted by:

"Kelik Pitoyo"

Dear Mr. Kid

Selamat Siang,

Terima kasih atas masukannya,

Setelah saya copy dan sedikit otak atik, hasil dari script-nya belum sesuai keinginan,

Harusnya "Jasa Maklon" berada di antara kode supplier Part, seperti ini

3040025600

"Jasa Maklon"

3040025610

Berikut kami sampaikan file hasil dan script-nya,

Mohon dibantu perbaikannya di mana?

Terima kasih

Salam dan hormat kami,

Kelik

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, March 16, 2018 7:33 AM
To: BeExcel
Subject: Re: [belajar-excel] Tanya Vba

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

Mon Mar 19, 2018 12:36 am (PDT) . Posted by:

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

Kalau sudah nemu tabel susunan demikian, enaknya diapain supaya sesuai keinginan Anda?

Sent from my smart enough phone

> On Mar 19, 2018, at 12:04, 'Kelik Pitoyo' kelik@shindengen.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Dear Mr. Kid
>
> Selamat Siang,
>
>
>
> Terima kasih atas masukannya,
>
> Setelah saya copy dan sedikit otak atik, hasil dari script-nya belum sesuai keinginan,
>
> Harusnya "Jasa Maklon" berada di antara kode supplier Part, seperti ini
>
> 3040025600
>
> "Jasa Maklon"
>
> 3040025610
>
> Berikut kami sampaikan file hasil dan script-nya,
>
> Mohon dibantu perbaikannya di mana?
>
>
>
> Terima kasih
>
> Salam dan hormat kami,
>
> Kelik
>
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> Sent: Friday, March 16, 2018 7:33 AM
> To: BeExcel
> Subject: Re: [belajar-excel] Tanya Vba
>
>
>
>
>
> 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
>
>
>
>
>
> <Book9.xlsx>
> <Transpose SO.txt>
============================================================
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 09.11

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)