15 Messages
Digest #3581
5a
Re: Mulai darimana belajar VBA untuk menyelesaikan kasus seperti ini by "Mr. Kid" nmkid.family@ymail.com
8b
Re: tanya rumus untuk detail perincian pada sheet rekap nota [1 Atta by "Mr. Kid" nmkid.family@ymail.com
Messages
Tue Sep 29, 2015 2:21 am (PDT) . Posted by:
"Tony Bexcel"
Dear Pakar yang Budiman..
Terimakasih Mr.Kids dan semua temans yang bergabung di milis ini..File nya sudah benar ...horeeeeee...
Salam,Tony B
Pada Selasa, 29 September 2015 16:02, "Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Pakar yang budiman,
Mau konfirmasi dong Mr.Kid yang baik hati.. :)Saya bingung dengan File yang Mr.Kid kirim, seperti nya bukan dari File pertanyaan saya..jadi saya bingung memahami formula nya. :(Terlampir File yang saya kirimkan sebelum nya ya Mr.Kid..Terimakasih sebelum dan sesudahnya..
Salam hangat,Tony B
Pada Selasa, 29 September 2015 10:05, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Tony,
Fungsi SumIFs bisa digunakan untuk sum berdasar lebih dari 1 kriteria. Dengan fungsi SumIFs ini, maka tidak diperlukan pembentukan composite key berupa gabungan item di sheet sumber datanya.
Fungsi SumIF(s),CountIF(s), dsb bisa memanfaatkan wildcard character seperti * atau ?
Penyusunan suatu kondisi (dengan fungsi IF) digunakan untuk menyusun kriteria yang bisa memanfaatkan wildcard character tersebut.
File terlampir.
Wassalam,
Kid
2015-09-28 17:19 GMT+07:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Pakar yang Budiman dan Temans Excel semua,
Salam sejahtera..kali ini saya mohon bantuan nya apakah untuk mencari total pada filter validasi bisa dilakukan?Agar tidak membingungkan penyampaian ,berikut saya lampirkan contoh nya temans..Terimakasih ats segala waktu dan ilmu nya ya temansss..
Salam,Tony B
#yiv0348943935 #yiv0348943935 -- #yiv0348943935ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0348943935 #yiv0348943935ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0348943935 #yiv0348943935ygrp-mkp #yiv0348943935hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0348943935 #yiv0348943935ygrp-mkp #yiv0348943935ads {margin-bottom:10px;}#yiv0348943935 #yiv0348943935ygrp-mkp .yiv0348943935ad {padding:0 0;}#yiv0348943935 #yiv0348943935ygrp-mkp .yiv0348943935ad p {margin:0;}#yiv0348943935 #yiv0348943935ygrp-mkp .yiv0348943935ad a {color:#0000ff;text-decoration:none;}#yiv0348943935 #yiv0348943935ygrp-sponsor #yiv0348943935ygrp-lc {font-family:Arial;}#yiv0348943935 #yiv0348943935ygrp-sponsor #yiv0348943935ygrp-lc #yiv0348943935hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0348943935 #yiv0348943935ygrp-sponsor #yiv0348943935ygrp-lc .yiv0348943935ad {margin-bottom:10px;padding:0 0;}#yiv0348943935 #yiv0348943935actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0348943935 #yiv0348943935activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0348943935 #yiv0348943935activity span {font-weight:700;}#yiv0348943935 #yiv0348943935activity span:first-child {text-transform:uppercase;}#yiv0348943935 #yiv0348943935activity span a {color:#5085b6;text-decoration:none;}#yiv0348943935 #yiv0348943935activity span span {color:#ff7900;}#yiv0348943935 #yiv0348943935activity span .yiv0348943935underline {text-decoration:underline;}#yiv0348943935 .yiv0348943935attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0348943935 .yiv0348943935attach div a {text-decoration:none;}#yiv0348943935 .yiv0348943935attach img {border:none;padding-right:5px;}#yiv0348943935 .yiv0348943935attach label {display:block;margin-bottom:5px;}#yiv0348943935 .yiv0348943935attach label a {text-decoration:none;}#yiv0348943935 blockquote {margin:0 0 0 4px;}#yiv0348943935 .yiv0348943935bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0348943935 .yiv0348943935bold a {text-decoration:none;}#yiv0348943935 dd.yiv0348943935last p a {font-family:Verdana;font-weight:700;}#yiv0348943935 dd.yiv0348943935last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0348943935 dd.yiv0348943935last p span.yiv0348943935yshortcuts {margin-right:0;}#yiv0348943935 div.yiv0348943935attach-table div div a {text-decoration:none;}#yiv0348943935 div.yiv0348943935attach-table {width:400px;}#yiv0348943935 div.yiv0348943935file-title a, #yiv0348943935 div.yiv0348943935file-title a:active, #yiv0348943935 div.yiv0348943935file-title a:hover, #yiv0348943935 div.yiv0348943935file-title a:visited {text-decoration:none;}#yiv0348943935 div.yiv0348943935photo-title a, #yiv0348943935 div.yiv0348943935photo-title a:active, #yiv0348943935 div.yiv0348943935photo-title a:hover, #yiv0348943935 div.yiv0348943935photo-title a:visited {text-decoration:none;}#yiv0348943935 div#yiv0348943935ygrp-mlmsg #yiv0348943935ygrp-msg p a span.yiv0348943935yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0348943935 .yiv0348943935green {color:#628c2a;}#yiv0348943935 .yiv0348943935MsoNormal {margin:0 0 0 0;}#yiv0348943935 o {font-size:0;}#yiv0348943935 #yiv0348943935photos div {float:left;width:72px;}#yiv0348943935 #yiv0348943935photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0348943935 #yiv0348943935photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0348943935 #yiv0348943935reco-category {font-size:77%;}#yiv0348943935 #yiv0348943935reco-desc {font-size:77%;}#yiv0348943935 .yiv0348943935replbq {margin:4px;}#yiv0348943935 #yiv0348943935ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0348943935 #yiv0348943935ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0348943935 #yiv0348943935ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0348943935 #yiv0348943935ygrp-mlmsg select, #yiv0348943935 input, #yiv0348943935 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0348943935 #yiv0348943935ygrp-mlmsg pre, #yiv0348943935 code {font:115% monospace;}#yiv0348943935 #yiv0348943935ygrp-mlmsg * {line-height:1.22em;}#yiv0348943935 #yiv0348943935ygrp-mlmsg #yiv0348943935logo {padding-bottom:10px;}#yiv0348943935 #yiv0348943935ygrp-msg p a {font-family:Verdana;}#yiv0348943935 #yiv0348943935ygrp-msg p#yiv0348943935attach-count span {color:#1E66AE;font-weight:700;}#yiv0348943935 #yiv0348943935ygrp-reco #yiv0348943935reco-head {color:#ff7900;font-weight:700;}#yiv0348943935 #yiv0348943935ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0348943935 #yiv0348943935ygrp-sponsor #yiv0348943935ov li a {font-size:130%;text-decoration:none;}#yiv0348943935 #yiv0348943935ygrp-sponsor #yiv0348943935ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0348943935 #yiv0348943935ygrp-sponsor #yiv0348943935ov ul {margin:0;padding:0 0 0 8px;}#yiv0348943935 #yiv0348943935ygrp-text {font-family:Georgia;}#yiv0348943935 #yiv0348943935ygrp-text p {margin:0 0 1em 0;}#yiv0348943935 #yiv0348943935ygrp-text tt {font-size:120%;}#yiv0348943935 #yiv0348943935ygrp-vital ul li:last-child {border-right:none !important;}#yiv0348943935
Terimakasih Mr.Kids dan semua temans yang bergabung di milis ini..File nya sudah benar ...horeeeeee...
Salam,Tony B
Pada Selasa, 29 September 2015 16:02, "Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Pakar yang budiman,
Mau konfirmasi dong Mr.Kid yang baik hati.. :)Saya bingung dengan File yang Mr.Kid kirim, seperti nya bukan dari File pertanyaan saya..jadi saya bingung memahami formula nya. :(Terlampir File yang saya kirimkan sebelum nya ya Mr.Kid..Terimakasih sebelum dan sesudahnya..
Salam hangat,Tony B
Pada Selasa, 29 September 2015 10:05, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Tony,
Fungsi SumIFs bisa digunakan untuk sum berdasar lebih dari 1 kriteria. Dengan fungsi SumIFs ini, maka tidak diperlukan pembentukan composite key berupa gabungan item di sheet sumber datanya.
Fungsi SumIF(s),CountIF(s), dsb bisa memanfaatkan wildcard character seperti * atau ?
Penyusunan suatu kondisi (dengan fungsi IF) digunakan untuk menyusun kriteria yang bisa memanfaatkan wildcard character tersebut.
File terlampir.
Wassalam,
Kid
2015-09-28 17:19 GMT+07:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Pakar yang Budiman dan Temans Excel semua,
Salam sejahtera..kali ini saya mohon bantuan nya apakah untuk mencari total pada filter validasi bisa dilakukan?Agar tidak membingungkan penyampaian ,berikut saya lampirkan contoh nya temans..Terimakasih ats segala waktu dan ilmu nya ya temansss..
Salam,Tony B
#yiv0348943935 #yiv0348943935 -- #yiv0348943935ygrp-
Tue Sep 29, 2015 2:26 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Anti,
Terkadang, pemberian informasi lebih detil beserta narasi contoh kalkulasi
manual dari beberapa nilai contoh akan memudahkan BeExceller untuk memahami
kasus Anda.
Wassalam,
Kid
2015-09-29 13:08 GMT+07:00 laily_anti@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear master semua,
>
> mohon kira bantuannya..
> maaf sy resend, krn takut masuk ke spam..
>
> terima aksih banyak yaaaa
>
>
Terkadang, pemberian informasi lebih detil beserta narasi contoh kalkulasi
manual dari beberapa nilai contoh akan memudahkan BeExceller untuk memahami
kasus Anda.
Wassalam,
Kid
2015-09-29 13:08 GMT+07:00 laily_anti@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear master semua,
>
> mohon kira bantuannya..
> maaf sy resend, krn takut masuk ke spam..
>
> terima aksih banyak yaaaa
>
>
Tue Sep 29, 2015 3:22 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Samsudin,
1. Cell N14 kata kunci hari Jum'at seharus untuk shift kedua tidak
berpengaruh terhadap ketentuan.
> pengurangan waktu harus memperhatikan sisi hari. Jika jam mulai 19:00
adalah hari ke-1 dan jam selesai di 02:00 adalah hari ke-2, maka selisih
waktunya :
=1+jam_selesai-jam_mulai
jika dari berbagai record ada yang jam selesainya di hari yang sama,
seperti mulai hari ke-1 jam 07:00 dan selesai di hari ke-1 jam 14:00, maka
selisih waktunya :
=(jam_selesai < jam_mulai) + jam_selesai - jam_mulai
2. Cell N31 bagaimana penjumlah denga format jam, maksudnya disini selama
satu minggu berapa jam jumlahnya.
> Penjumlahan data bertipe waktu (datetime, date, atau time) dapat
dilakukan dengan fungsi Sum.
> Hasil dari Sum akan ditanpilkan dalam format number datetime secara
default.
> Jika ingin menampilkan dalam format durasi waktu (bukan format datetime),
maka atur format number dengan dikurung siku pada satuan terbesar yang akan
ditampilkan. Misal, akan ditampilkan durasi dengan satuan terbesar adalah
menit, maka atur format number menjadi :
[mm]:ss -> lihat penggunaan kurung siku yang mengapit satuan
terbesar yang diinginkan (berlaku untuk durasi waktu dan bukan tanggal)
Wassalam,
Kid
On Tue, Sep 29, 2015 at 3:09 PM, Samsudin samsudin@bayan.com.sg
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear All Master Excel,
>
>
>
> Mohon bantuan dan pencerahannya, pada cell berwarna kuning bagaimana
> formula yang tepat untuk mengatasi masalah tersebut, dimana pada :
>
>
>
> 1. Cell N14 kata kunci hari Jum'at seharus untuk shift kedua tidak
> berpengaruh terhadap ketentuan.
>
> 2. Cell N31 bagaimana penjumlah denga format jam, maksudnya disini
> selama satu minggu berapa jam jumlahnya.
>
>
>
> Dan mohon koreksi jika ada formula yang lebih baik dari formula-formula
> tersebut (masih menggunakan formula dasar dan bantuan kolom lainnya).
>
>
>
> Sebelumnya saya mengucapakan terima kasih atas pencerahannya.
>
>
>
> *Hormat saya,*
>
>
>
> *Samsudin*
>
>
>
> ----------------------------------------------------------
>
>
> This message (including any attachments) contains confidential information intended
> for a specific individual and purpose, and is protected by law. If you are not the
> intended recipient, you should delete this message and hereby notified that any
> disclosure, copying, or distribution of this message (or any part thereof), or the
> taking of any action based on it, is strictly prohibited. No liability or responsibility
> is accepted if information or data is, for whatever reason corrupted or does not reach
> its intended recipient. No warranty is given that this email is free of viruses. The
> views expressed in this email are, unless otherwise stated, those of the author and
> not those of the Company or its management. The Company reserves the right to monitor,
> intercept and block emails addressed to its users or take any other action in accordance
> with its email use policy.
>
>
>
1. Cell N14 kata kunci hari Jum'at seharus untuk shift kedua tidak
berpengaruh terhadap ketentuan.
> pengurangan waktu harus memperhatikan sisi hari. Jika jam mulai 19:00
adalah hari ke-1 dan jam selesai di 02:00 adalah hari ke-2, maka selisih
waktunya :
=1+jam_selesai-jam_mulai
jika dari berbagai record ada yang jam selesainya di hari yang sama,
seperti mulai hari ke-1 jam 07:00 dan selesai di hari ke-1 jam 14:00, maka
selisih waktunya :
=(jam_selesai < jam_mulai) + jam_selesai - jam_mulai
2. Cell N31 bagaimana penjumlah denga format jam, maksudnya disini selama
satu minggu berapa jam jumlahnya.
> Penjumlahan data bertipe waktu (datetime, date, atau time) dapat
dilakukan dengan fungsi Sum.
> Hasil dari Sum akan ditanpilkan dalam format number datetime secara
default.
> Jika ingin menampilkan dalam format durasi waktu (bukan format datetime),
maka atur format number dengan dikurung siku pada satuan terbesar yang akan
ditampilkan. Misal, akan ditampilkan durasi dengan satuan terbesar adalah
menit, maka atur format number menjadi :
[mm]:ss -> lihat penggunaan kurung siku yang mengapit satuan
terbesar yang diinginkan (berlaku untuk durasi waktu dan bukan tanggal)
Wassalam,
Kid
On Tue, Sep 29, 2015 at 3:09 PM, Samsudin samsudin@bayan.com.sg
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear All Master Excel,
>
>
>
> Mohon bantuan dan pencerahannya, pada cell berwarna kuning bagaimana
> formula yang tepat untuk mengatasi masalah tersebut, dimana pada :
>
>
>
> 1. Cell N14 kata kunci hari Jum'at seharus untuk shift kedua tidak
> berpengaruh terhadap ketentuan.
>
> 2. Cell N31 bagaimana penjumlah denga format jam, maksudnya disini
> selama satu minggu berapa jam jumlahnya.
>
>
>
> Dan mohon koreksi jika ada formula yang lebih baik dari formula-formula
> tersebut (masih menggunakan formula dasar dan bantuan kolom lainnya).
>
>
>
> Sebelumnya saya mengucapakan terima kasih atas pencerahannya.
>
>
>
> *Hormat saya,*
>
>
>
> *Samsudin*
>
>
>
> ------------
>
>
> This message (including any attachments) contains confidential information intended
> for a specific individual and purpose, and is protected by law. If you are not the
> intended recipient, you should delete this message and hereby notified that any
> disclosure, copying, or distribution of this message (or any part thereof), or the
> taking of any action based on it, is strictly prohibited. No liability or responsibility
> is accepted if information or data is, for whatever reason corrupted or does not reach
> its intended recipient. No warranty is given that this email is free of viruses. The
> views expressed in this email are, unless otherwise stated, those of the author and
> not those of the Company or its management. The Company reserves the right to monitor,
> intercept and block emails addressed to its users or take any other action in accordance
> with its email use policy.
>
>
>
Tue Sep 29, 2015 3:25 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Andrie,
1. tambahkan object controk progress bar ke userform
2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
baris berikut :
nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
sampai max
nama_userform.repaint
Wassalam,
Kid
2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid...
>
> Mudah2an saya doakan sehat n selalu dlm lindunganNya... Amin...
>
> Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai
> berikut:
> Private Sub CommandButton3_Click()
>
> Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V,
> AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As String
> Dim ColumnTerakhir, ColumnTujuan As Integer
> Dim lastRow As Long, lastCol As Long
> Dim keyR As Range, filterR As Range
>
> If Worksheets("DATABASE HARIAN").Cells(14, 4).Value = "" Then
> MsgBox "DATA NERACA SORE BELUM DIINPUT", _
> vbOKOnly + vbCritical, "WARNING!!!..."
> TextBox9.SetFocus
> Exit Sub
> ElseIf TextBox9.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox9.SetFocus
> Exit Sub
> ElseIf TextBox10.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox10.SetFocus
> Exit Sub
> ElseIf TextBox11.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox11.SetFocus
> Exit Sub
> ElseIf TextBox12.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox12.SetFocus
> Exit Sub
> ElseIf TextBox13.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox13.SetFocus
> Exit Sub
> ElseIf TextBox14.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox14.SetFocus
> Exit Sub
> ElseIf TextBox15.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox15.SetFocus
> Exit Sub
> ElseIf TextBox16.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox16.SetFocus
> Exit Sub
> ElseIf TextBox37.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox37.SetFocus
> Exit Sub
> ElseIf DTPicker2.Value = Worksheets("DATABASE HARIAN").Cells(14, 4).Value
> Then
> MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
> SORE" _
> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> DTPicker2.SetFocus
> Exit Sub
> ElseIf Application.CountIf(Range("TANGGAL4"), DTPicker2.Value) = 1 Then
> MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
> & vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> DTPicker2.SetFocus
> Exit Sub
> ElseIf DTPicker2.Value < Worksheets("DATABASE HARIAN").Cells(14, 4).Value
> Then
> MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI TANGGAL
> DATA NERACA SORE" _
> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> DTPicker2.SetFocus
> Exit Sub
> Else
> With Worksheets("DATABASE HARIAN")
> .Cells(16, 6).Value = TextBox9.Value
> .Cells(17, 6).Value = TextBox10.Value
> .Cells(18, 6).Value = TextBox11.Value
> .Cells(19, 6).Value = TextBox12.Value
> .Cells(20, 6).Value = TextBox13.Value
> .Cells(21, 6).Value = TextBox14.Value
> .Cells(22, 6).Value = TextBox15.Value
> .Cells(23, 6).Value = TextBox16.Value
> .Cells(32, 6).Value = TextBox37.Value
> .Cells(24, 6).Value = CDate(DTPicker2.Value)
> End With
>
> With Worksheets("DATABASE HARIAN")
> AA = .Cells(16, 6).Value
> AB = .Cells(17, 6).Value
> AC = .Cells(18, 6).Value
> AD = .Cells(19, 6).Value
> AE = .Cells(20, 6).Value
> AF = .Cells(21, 6).Value
> AG = .Cells(22, 6).Value
> AH = .Cells(23, 6).Value
> AI = .Cells(24, 6).Value
> AJ = .Cells(25, 6).Value
> AK = .Cells(26, 6).Value
> AL = .Cells(27, 6).Value
> AM = .Cells(28, 6).Value
> AN = .Cells(29, 6).Value
> AO = .Cells(30, 6).Value
> AP = .Cells(29, 3).Value
> AQ = .Cells(30, 3).Value
> AR = .Cells(14, 5).Value
> AU = .Cells(31, 6).Value
> Av = .Cells(32, 6).Value
> End With
>
> With Worksheets("DATABASE")
> ColumnTerakhir = .Cells(8, .Columns.Count).End(xlToLeft).Column
> ColumnTujuan = ColumnTerakhir + 1
> .Cells(9, ColumnTujuan).Value = AA
> .Cells(10, ColumnTujuan).Value = AB
> .Cells(11, ColumnTujuan).Value = AC
> .Cells(12, ColumnTujuan).Value = AD
> .Cells(13, ColumnTujuan).Value = AE
> .Cells(14, ColumnTujuan).Value = AF
> .Cells(15, ColumnTujuan).Value = AG
> .Cells(16, ColumnTujuan).Value = AH
> .Cells(17, ColumnTujuan).Value = AJ
> .Cells(18, ColumnTujuan).Value = AK
> .Cells(19, ColumnTujuan).Value = AL
> .Cells(20, ColumnTujuan).Value = AM
> .Cells(21, ColumnTujuan).Value = AI
> .Cells(22, ColumnTujuan).Value = AP
> .Cells(23, ColumnTujuan).Value = AQ
> .Cells(24, ColumnTujuan).Value = AN
> .Cells(25, ColumnTujuan).Value = AO
> .Cells(8, ColumnTujuan).Value = AR
> .Cells(26, ColumnTujuan).Value = AU
> .Cells(27, ColumnTujuan).Value = Av
>
> LR = .Cells(5, .Columns.Count).End(xlToLeft).Column
> Range(Cells(5, "C"), Cells(25, LR)).Select
>
> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Clear
> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
> Key:=Range(Cells(5, "C"), Cells(5, LR) _
> ), SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:=xlSortNormal
> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
> Key:=Range(Cells(8, "C"), Cells(8, LR) _
> ), SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
> With ActiveWorkbook.Worksheets("DATABASE").SORT
> .SetRange Range(Cells(5, "C"), Cells(25, LR))
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlLeftToRight
> .SortMethod = xlPinYin
> .Apply
> End With
> End With
>
> With Worksheets("HASIL HARIAN")
> A = .Cells(12, 8).Value
> B = .Cells(13, 8).Value
> C = .Cells(14, 8).Value
> D = .Cells(15, 8).Value
> E = .Cells(16, 8).Value
> F = .Cells(18, 8).Value
> G = .Cells(19, 8).Value
> H = .Cells(20, 8).Value
> I = .Cells(22, 8).Value
> J = .Cells(23, 8).Value
> K = .Cells(24, 8).Value
> L = .Cells(26, 8).Value
> M = .Cells(27, 8).Value
> N = .Cells(28, 8).Value
> O = .Cells(30, 8).Value
> P = .Cells(31, 8).Value
> Q = .Cells(32, 8).Value
> R = .Cells(34, 8).Value
> S = .Cells(35, 8).Value
> T = .Cells(7, 8).Value
> U = .Cells(8, 8).Value
> V = .Cells(9, 8).Value
> w = .Cells(40, 6).Value
> x = .Cells(42, 6).Value
> Y = .Cells(43, 6).Value
> Z = .Cells(44, 6).Value
> AT = .Cells(65, 2).Value
> AU = .Cells(65, 7).Value
> Av = .Cells(71, 2).Value
> AW = .Cells(72, 2).Value
> End With
>
> With Worksheets("REKAP KESELURUHAN")
> ColumnTerakhir = .Cells(6, .Columns.Count).End(xlToLeft).Column
> ColumnTujuan = ColumnTerakhir + 1
> .Cells(11, ColumnTujuan).Value = A
> .Cells(12, ColumnTujuan).Value = B
> .Cells(13, ColumnTujuan).Value = C
> .Cells(14, ColumnTujuan).Value = D
> .Cells(15, ColumnTujuan).Value = E
> .Cells(17, ColumnTujuan).Value = F
> .Cells(18, ColumnTujuan).Value = G
> .Cells(19, ColumnTujuan).Value = H
> .Cells(21, ColumnTujuan).Value = I
> .Cells(22, ColumnTujuan).Value = J
> .Cells(23, ColumnTujuan).Value = K
> .Cells(25, ColumnTujuan).Value = L
> .Cells(26, ColumnTujuan).Value = M
> .Cells(27, ColumnTujuan).Value = N
> .Cells(29, ColumnTujuan).Value = O
> .Cells(30, ColumnTujuan).Value = P
> .Cells(31, ColumnTujuan).Value = Q
> .Cells(33, ColumnTujuan).Value = R
> .Cells(34, ColumnTujuan).Value = S
> .Cells(6, ColumnTujuan).Value = T
> .Cells(7, ColumnTujuan).Value = U
> .Cells(8, ColumnTujuan).Value = V
> .Cells(37, ColumnTujuan).Value = w
> .Cells(38, ColumnTujuan).Value = x
> .Cells(39, ColumnTujuan).Value = Y
> .Cells(40, ColumnTujuan).Value = Z
> .Cells(41, ColumnTujuan).Value = AT
> .Cells(42, ColumnTujuan).Value = AU
> .Cells(43, ColumnTujuan).Value = Av
> .Cells(44, ColumnTujuan).Value = AW
>
> LC = .Cells(3, .Columns.Count).End(xlToLeft).Column
> Range(Cells(3, "ADT"), Cells(44, LR)).Select
>
> ActiveWorkbook.Worksheets("REKAP
> KESELURUHAN").SORT.SortFields.Clear
> ActiveWorkbook.Worksheets("REKAP
> KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(3, "ADT"), Cells(3, LC) _
> ), SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:=xlSortNormal
> ActiveWorkbook.Worksheets("REKAP
> KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(6, "ADT"), Cells(6, LC) _
> ), SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
> With ActiveWorkbook.Worksheets("REKAP KESELURUHAN").SORT
> .SetRange Range(Cells(3, "ADT"), Cells(44, LC))
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlLeftToRight
> .SortMethod = xlPinYin
> .Apply
> End With
> End With
> ActiveWorkbook.Save
> MsgBox "DATA BERHASIL DISIMPAN", _
> vbOKOnly + vbInformation, "BERHASIL SIMPAN"
> TextBox9.Value = ""
> TextBox10.Value = ""
> TextBox11.Value = ""
> TextBox12.Value = ""
> TextBox13.Value = ""
> TextBox14.Value = ""
> TextBox15.Value = ""
> TextBox16.Value = ""
> TextBox37.Value = ""
> Worksheets("DATABASE HARIAN").Cells(14, 4).Value = ""
> Exit Sub
> End If
> End Sub
>
> untuk memindahkan data dari Userform ke sheet excel dan dari sheet excel
> ke sheet excel yg lain...
> Prosesnya cukup panjang dan akan memakan waktu tunggu sediti lebih lama,
> sehingga saya ingin menambahkan sebuah progress bar.
> Selain untuk melihat progress prosesnya juga menambah indah tampilannya...
>
> Mohon bantuannya untuk memberikan kode script VBA untuk progress barnya
> dan dimana harus di letakkan script itu, saya sudah nyoba tetapi blm
> berhasil dan tambah bingung...
>
> Demikian, atas bantuan n pembelajarannya saya ucapkan bnyk terimakasih...
>
>
>
>
> Andrie Amorius, SE. Ak
> Desk Service Quality (DSQ)
> PT. Bank Riau Kepri
> JL. Dt Setia Maharaja / Parit Indah
> Perkantoran Grand Sudirman Blok B 2
> Telp (0761) 7072974
> Pekanbaru - Riau
>
>
>
1. tambahkan object controk progress bar ke userform
2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
baris berikut :
nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
sampai max
nama_userform.repaint
Wassalam,
Kid
2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid...
>
> Mudah2an saya doakan sehat n selalu dlm lindunganNya.
>
> Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai
> berikut:
> Private Sub CommandButton3_
>
> Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V,
> AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As String
> Dim ColumnTerakhir, ColumnTujuan As Integer
> Dim lastRow As Long, lastCol As Long
> Dim keyR As Range, filterR As Range
>
> If Worksheets("
> MsgBox "DATA NERACA SORE BELUM DIINPUT"
> vbOKOnly + vbCritical, "WARNING!
> TextBox9.SetFocus
> Exit Sub
> ElseIf TextBox9.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox9.SetFocus
> Exit Sub
> ElseIf TextBox10.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox10.SetFocus
> Exit Sub
> ElseIf TextBox11.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox11.SetFocus
> Exit Sub
> ElseIf TextBox12.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox12.SetFocus
> Exit Sub
> ElseIf TextBox13.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox13.SetFocus
> Exit Sub
> ElseIf TextBox14.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox14.SetFocus
> Exit Sub
> ElseIf TextBox15.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox15.SetFocus
> Exit Sub
> ElseIf TextBox16.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox16.SetFocus
> Exit Sub
> ElseIf TextBox37.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox37.SetFocus
> Exit Sub
> ElseIf DTPicker2.Value = Worksheets("
> Then
> MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
> SORE" _
> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> DTPicker2.SetFocus
> Exit Sub
> ElseIf Application.
> MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
> & vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> DTPicker2.SetFocus
> Exit Sub
> ElseIf DTPicker2.Value < Worksheets("
> Then
> MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI TANGGAL
> DATA NERACA SORE" _
> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA"
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> DTPicker2.SetFocus
> Exit Sub
> Else
> With Worksheets("
> .Cells(16, 6).Value = TextBox9.Value
> .Cells(17, 6).Value = TextBox10.Value
> .Cells(18, 6).Value = TextBox11.Value
> .Cells(19, 6).Value = TextBox12.Value
> .Cells(20, 6).Value = TextBox13.Value
> .Cells(21, 6).Value = TextBox14.Value
> .Cells(22, 6).Value = TextBox15.Value
> .Cells(23, 6).Value = TextBox16.Value
> .Cells(32, 6).Value = TextBox37.Value
> .Cells(24, 6).Value = CDate(DTPicker2.
> End With
>
> With Worksheets("
> AA = .Cells(16, 6).Value
> AB = .Cells(17, 6).Value
> AC = .Cells(18, 6).Value
> AD = .Cells(19, 6).Value
> AE = .Cells(20, 6).Value
> AF = .Cells(21, 6).Value
> AG = .Cells(22, 6).Value
> AH = .Cells(23, 6).Value
> AI = .Cells(24, 6).Value
> AJ = .Cells(25, 6).Value
> AK = .Cells(26, 6).Value
> AL = .Cells(27, 6).Value
> AM = .Cells(28, 6).Value
> AN = .Cells(29, 6).Value
> AO = .Cells(30, 6).Value
> AP = .Cells(29, 3).Value
> AQ = .Cells(30, 3).Value
> AR = .Cells(14, 5).Value
> AU = .Cells(31, 6).Value
> Av = .Cells(32, 6).Value
> End With
>
> With Worksheets("
> ColumnTerakhir = .Cells(8, .Columns.Count)
> ColumnTujuan = ColumnTerakhir + 1
> .Cells(9, ColumnTujuan)
> .Cells(10, ColumnTujuan)
> .Cells(11, ColumnTujuan)
> .Cells(12, ColumnTujuan)
> .Cells(13, ColumnTujuan)
> .Cells(14, ColumnTujuan)
> .Cells(15, ColumnTujuan)
> .Cells(16, ColumnTujuan)
> .Cells(17, ColumnTujuan)
> .Cells(18, ColumnTujuan)
> .Cells(19, ColumnTujuan)
> .Cells(20, ColumnTujuan)
> .Cells(21, ColumnTujuan)
> .Cells(22, ColumnTujuan)
> .Cells(23, ColumnTujuan)
> .Cells(24, ColumnTujuan)
> .Cells(25, ColumnTujuan)
> .Cells(8, ColumnTujuan)
> .Cells(26, ColumnTujuan)
> .Cells(27, ColumnTujuan)
>
> LR = .Cells(5, .Columns.Count)
> Range(Cells(
>
> ActiveWorkbook.
> ActiveWorkbook.
> Key:=Range(Cells(
> ), SortOn:=xlSortOnVal
> DataOption:=
> ActiveWorkbook.
> Key:=Range(Cells(
> ), SortOn:=xlSortOnVal
> DataOption:=
> With ActiveWorkbook.
> .SetRange Range(Cells(
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlLeftToRight
> .SortMethod = xlPinYin
> .Apply
> End With
> End With
>
> With Worksheets("
> A = .Cells(12, 8).Value
> B = .Cells(13, 8).Value
> C = .Cells(14, 8).Value
> D = .Cells(15, 8).Value
> E = .Cells(16, 8).Value
> F = .Cells(18, 8).Value
> G = .Cells(19, 8).Value
> H = .Cells(20, 8).Value
> I = .Cells(22, 8).Value
> J = .Cells(23, 8).Value
> K = .Cells(24, 8).Value
> L = .Cells(26, 8).Value
> M = .Cells(27, 8).Value
> N = .Cells(28, 8).Value
> O = .Cells(30, 8).Value
> P = .Cells(31, 8).Value
> Q = .Cells(32, 8).Value
> R = .Cells(34, 8).Value
> S = .Cells(35, 8).Value
> T = .Cells(7, 8).Value
> U = .Cells(8, 8).Value
> V = .Cells(9, 8).Value
> w = .Cells(40, 6).Value
> x = .Cells(42, 6).Value
> Y = .Cells(43, 6).Value
> Z = .Cells(44, 6).Value
> AT = .Cells(65, 2).Value
> AU = .Cells(65, 7).Value
> Av = .Cells(71, 2).Value
> AW = .Cells(72, 2).Value
> End With
>
> With Worksheets("
> ColumnTerakhir = .Cells(6, .Columns.Count)
> ColumnTujuan = ColumnTerakhir + 1
> .Cells(11, ColumnTujuan)
> .Cells(12, ColumnTujuan)
> .Cells(13, ColumnTujuan)
> .Cells(14, ColumnTujuan)
> .Cells(15, ColumnTujuan)
> .Cells(17, ColumnTujuan)
> .Cells(18, ColumnTujuan)
> .Cells(19, ColumnTujuan)
> .Cells(21, ColumnTujuan)
> .Cells(22, ColumnTujuan)
> .Cells(23, ColumnTujuan)
> .Cells(25, ColumnTujuan)
> .Cells(26, ColumnTujuan)
> .Cells(27, ColumnTujuan)
> .Cells(29, ColumnTujuan)
> .Cells(30, ColumnTujuan)
> .Cells(31, ColumnTujuan)
> .Cells(33, ColumnTujuan)
> .Cells(34, ColumnTujuan)
> .Cells(6, ColumnTujuan)
> .Cells(7, ColumnTujuan)
> .Cells(8, ColumnTujuan)
> .Cells(37, ColumnTujuan)
> .Cells(38, ColumnTujuan)
> .Cells(39, ColumnTujuan)
> .Cells(40, ColumnTujuan)
> .Cells(41, ColumnTujuan)
> .Cells(42, ColumnTujuan)
> .Cells(43, ColumnTujuan)
> .Cells(44, ColumnTujuan)
>
> LC = .Cells(3, .Columns.Count)
> Range(Cells(
>
> ActiveWorkbook.
> KESELURUHAN"
> ActiveWorkbook.
> KESELURUHAN"
> ), SortOn:=xlSortOnVal
> DataOption:=
> ActiveWorkbook.
> KESELURUHAN"
> ), SortOn:=xlSortOnVal
> DataOption:=
> With ActiveWorkbook.
> .SetRange Range(Cells(
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlLeftToRight
> .SortMethod = xlPinYin
> .Apply
> End With
> End With
> ActiveWorkbook.
> MsgBox "DATA BERHASIL DISIMPAN"
> vbOKOnly + vbInformation, "BERHASIL SIMPAN"
> TextBox9.Value = ""
> TextBox10.Value = ""
> TextBox11.Value = ""
> TextBox12.Value = ""
> TextBox13.Value = ""
> TextBox14.Value = ""
> TextBox15.Value = ""
> TextBox16.Value = ""
> TextBox37.Value = ""
> Worksheets("
> Exit Sub
> End If
> End Sub
>
> untuk memindahkan data dari Userform ke sheet excel dan dari sheet excel
> ke sheet excel yg lain...
> Prosesnya cukup panjang dan akan memakan waktu tunggu sediti lebih lama,
> sehingga saya ingin menambahkan sebuah progress bar.
> Selain untuk melihat progress prosesnya juga menambah indah tampilannya.
>
> Mohon bantuannya untuk memberikan kode script VBA untuk progress barnya
> dan dimana harus di letakkan script itu, saya sudah nyoba tetapi blm
> berhasil dan tambah bingung...
>
> Demikian, atas bantuan n pembelajarannya saya ucapkan bnyk terimakasih.
>
>
>
>
> Andrie Amorius, SE. Ak
> Desk Service Quality (DSQ)
> PT. Bank Riau Kepri
> JL. Dt Setia Maharaja / Parit Indah
> Perkantoran Grand Sudirman Blok B 2
> Telp (0761) 7072974
> Pekanbaru - Riau
>
>
>
Tue Sep 29, 2015 3:44 am (PDT) . Posted by:
"Andrie Amorius"
Dibaris mana dr scrypt proses pemindahan data saya yg saya lampirkan hrs
diletakan scrypt progress barnya Mr. Kid??!
Karna scrypt yg saya lampirkan untuk 1 tombol dgn nama save, itu merupakan
1rangkaian proses...
Terimakasih...
On Sep 29, 2015 5:26 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> wrote:
>
>
> Hai Andrie,
>
> 1. tambahkan object controk progress bar ke userform
> 2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
> 3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
> baris berikut :
> nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
> sampai max
> nama_userform.repaint
>
> Wassalam,
> Kid
>
>
>
>
>
>
> 2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Mr. Kid...
>>
>> Mudah2an saya doakan sehat n selalu dlm lindunganNya... Amin...
>>
>> Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai
>> berikut:
>> Private Sub CommandButton3_Click()
>>
>> Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V,
>> AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As String
>> Dim ColumnTerakhir, ColumnTujuan As Integer
>> Dim lastRow As Long, lastCol As Long
>> Dim keyR As Range, filterR As Range
>>
>> If Worksheets("DATABASE HARIAN").Cells(14, 4).Value = "" Then
>> MsgBox "DATA NERACA SORE BELUM DIINPUT", _
>> vbOKOnly + vbCritical, "WARNING!!!..."
>> TextBox9.SetFocus
>> Exit Sub
>> ElseIf TextBox9.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox9.SetFocus
>> Exit Sub
>> ElseIf TextBox10.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox10.SetFocus
>> Exit Sub
>> ElseIf TextBox11.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox11.SetFocus
>> Exit Sub
>> ElseIf TextBox12.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox12.SetFocus
>> Exit Sub
>> ElseIf TextBox13.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox13.SetFocus
>> Exit Sub
>> ElseIf TextBox14.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox14.SetFocus
>> Exit Sub
>> ElseIf TextBox15.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox15.SetFocus
>> Exit Sub
>> ElseIf TextBox16.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox16.SetFocus
>> Exit Sub
>> ElseIf TextBox37.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox37.SetFocus
>> Exit Sub
>> ElseIf DTPicker2.Value = Worksheets("DATABASE HARIAN").Cells(14, 4).Value
>> Then
>> MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
>> SORE" _
>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> DTPicker2.SetFocus
>> Exit Sub
>> ElseIf Application.CountIf(Range("TANGGAL4"), DTPicker2.Value) = 1 Then
>> MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
>> & vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> DTPicker2.SetFocus
>> Exit Sub
>> ElseIf DTPicker2.Value < Worksheets("DATABASE HARIAN").Cells(14, 4).Value
>> Then
>> MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI TANGGAL
>> DATA NERACA SORE" _
>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> DTPicker2.SetFocus
>> Exit Sub
>> Else
>> With Worksheets("DATABASE HARIAN")
>> .Cells(16, 6).Value = TextBox9.Value
>> .Cells(17, 6).Value = TextBox10.Value
>> .Cells(18, 6).Value = TextBox11.Value
>> .Cells(19, 6).Value = TextBox12.Value
>> .Cells(20, 6).Value = TextBox13.Value
>> .Cells(21, 6).Value = TextBox14.Value
>> .Cells(22, 6).Value = TextBox15.Value
>> .Cells(23, 6).Value = TextBox16.Value
>> .Cells(32, 6).Value = TextBox37.Value
>> .Cells(24, 6).Value = CDate(DTPicker2.Value)
>> End With
>>
>> With Worksheets("DATABASE HARIAN")
>> AA = .Cells(16, 6).Value
>> AB = .Cells(17, 6).Value
>> AC = .Cells(18, 6).Value
>> AD = .Cells(19, 6).Value
>> AE = .Cells(20, 6).Value
>> AF = .Cells(21, 6).Value
>> AG = .Cells(22, 6).Value
>> AH = .Cells(23, 6).Value
>> AI = .Cells(24, 6).Value
>> AJ = .Cells(25, 6).Value
>> AK = .Cells(26, 6).Value
>> AL = .Cells(27, 6).Value
>> AM = .Cells(28, 6).Value
>> AN = .Cells(29, 6).Value
>> AO = .Cells(30, 6).Value
>> AP = .Cells(29, 3).Value
>> AQ = .Cells(30, 3).Value
>> AR = .Cells(14, 5).Value
>> AU = .Cells(31, 6).Value
>> Av = .Cells(32, 6).Value
>> End With
>>
>> With Worksheets("DATABASE")
>> ColumnTerakhir = .Cells(8,
>> .Columns.Count).End(xlToLeft).Column
>> ColumnTujuan = ColumnTerakhir + 1
>> .Cells(9, ColumnTujuan).Value = AA
>> .Cells(10, ColumnTujuan).Value = AB
>> .Cells(11, ColumnTujuan).Value = AC
>> .Cells(12, ColumnTujuan).Value = AD
>> .Cells(13, ColumnTujuan).Value = AE
>> .Cells(14, ColumnTujuan).Value = AF
>> .Cells(15, ColumnTujuan).Value = AG
>> .Cells(16, ColumnTujuan).Value = AH
>> .Cells(17, ColumnTujuan).Value = AJ
>> .Cells(18, ColumnTujuan).Value = AK
>> .Cells(19, ColumnTujuan).Value = AL
>> .Cells(20, ColumnTujuan).Value = AM
>> .Cells(21, ColumnTujuan).Value = AI
>> .Cells(22, ColumnTujuan).Value = AP
>> .Cells(23, ColumnTujuan).Value = AQ
>> .Cells(24, ColumnTujuan).Value = AN
>> .Cells(25, ColumnTujuan).Value = AO
>> .Cells(8, ColumnTujuan).Value = AR
>> .Cells(26, ColumnTujuan).Value = AU
>> .Cells(27, ColumnTujuan).Value = Av
>>
>> LR = .Cells(5, .Columns.Count).End(xlToLeft).Column
>> Range(Cells(5, "C"), Cells(25, LR)).Select
>>
>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Clear
>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
>> Key:=Range(Cells(5, "C"), Cells(5, LR) _
>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>> DataOption:=xlSortNormal
>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
>> Key:=Range(Cells(8, "C"), Cells(8, LR) _
>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>> DataOption:=xlSortNormal
>> With ActiveWorkbook.Worksheets("DATABASE").SORT
>> .SetRange Range(Cells(5, "C"), Cells(25, LR))
>> .Header = xlGuess
>> .MatchCase = False
>> .Orientation = xlLeftToRight
>> .SortMethod = xlPinYin
>> .Apply
>> End With
>> End With
>>
>> With Worksheets("HASIL HARIAN")
>> A = .Cells(12, 8).Value
>> B = .Cells(13, 8).Value
>> C = .Cells(14, 8).Value
>> D = .Cells(15, 8).Value
>> E = .Cells(16, 8).Value
>> F = .Cells(18, 8).Value
>> G = .Cells(19, 8).Value
>> H = .Cells(20, 8).Value
>> I = .Cells(22, 8).Value
>> J = .Cells(23, 8).Value
>> K = .Cells(24, 8).Value
>> L = .Cells(26, 8).Value
>> M = .Cells(27, 8).Value
>> N = .Cells(28, 8).Value
>> O = .Cells(30, 8).Value
>> P = .Cells(31, 8).Value
>> Q = .Cells(32, 8).Value
>> R = .Cells(34, 8).Value
>> S = .Cells(35, 8).Value
>> T = .Cells(7, 8).Value
>> U = .Cells(8, 8).Value
>> V = .Cells(9, 8).Value
>> w = .Cells(40, 6).Value
>> x = .Cells(42, 6).Value
>> Y = .Cells(43, 6).Value
>> Z = .Cells(44, 6).Value
>> AT = .Cells(65, 2).Value
>> AU = .Cells(65, 7).Value
>> Av = .Cells(71, 2).Value
>> AW = .Cells(72, 2).Value
>> End With
>>
>> With Worksheets("REKAP KESELURUHAN")
>> ColumnTerakhir = .Cells(6,
>> .Columns.Count).End(xlToLeft).Column
>> ColumnTujuan = ColumnTerakhir + 1
>> .Cells(11, ColumnTujuan).Value = A
>> .Cells(12, ColumnTujuan).Value = B
>> .Cells(13, ColumnTujuan).Value = C
>> .Cells(14, ColumnTujuan).Value = D
>> .Cells(15, ColumnTujuan).Value = E
>> .Cells(17, ColumnTujuan).Value = F
>> .Cells(18, ColumnTujuan).Value = G
>> .Cells(19, ColumnTujuan).Value = H
>> .Cells(21, ColumnTujuan).Value = I
>> .Cells(22, ColumnTujuan).Value = J
>> .Cells(23, ColumnTujuan).Value = K
>> .Cells(25, ColumnTujuan).Value = L
>> .Cells(26, ColumnTujuan).Value = M
>> .Cells(27, ColumnTujuan).Value = N
>> .Cells(29, ColumnTujuan).Value = O
>> .Cells(30, ColumnTujuan).Value = P
>> .Cells(31, ColumnTujuan).Value = Q
>> .Cells(33, ColumnTujuan).Value = R
>> .Cells(34, ColumnTujuan).Value = S
>> .Cells(6, ColumnTujuan).Value = T
>> .Cells(7, ColumnTujuan).Value = U
>> .Cells(8, ColumnTujuan).Value = V
>> .Cells(37, ColumnTujuan).Value = w
>> .Cells(38, ColumnTujuan).Value = x
>> .Cells(39, ColumnTujuan).Value = Y
>> .Cells(40, ColumnTujuan).Value = Z
>> .Cells(41, ColumnTujuan).Value = AT
>> .Cells(42, ColumnTujuan).Value = AU
>> .Cells(43, ColumnTujuan).Value = Av
>> .Cells(44, ColumnTujuan).Value = AW
>>
>> LC = .Cells(3, .Columns.Count).End(xlToLeft).Column
>> Range(Cells(3, "ADT"), Cells(44, LR)).Select
>>
>> ActiveWorkbook.Worksheets("REKAP
>> KESELURUHAN").SORT.SortFields.Clear
>> ActiveWorkbook.Worksheets("REKAP
>> KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(3, "ADT"), Cells(3, LC) _
>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>> DataOption:=xlSortNormal
>> ActiveWorkbook.Worksheets("REKAP
>> KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(6, "ADT"), Cells(6, LC) _
>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>> DataOption:=xlSortNormal
>> With ActiveWorkbook.Worksheets("REKAP KESELURUHAN").SORT
>> .SetRange Range(Cells(3, "ADT"), Cells(44, LC))
>> .Header = xlGuess
>> .MatchCase = False
>> .Orientation = xlLeftToRight
>> .SortMethod = xlPinYin
>> .Apply
>> End With
>> End With
>> ActiveWorkbook.Save
>> MsgBox "DATA BERHASIL DISIMPAN", _
>> vbOKOnly + vbInformation, "BERHASIL SIMPAN"
>> TextBox9.Value = ""
>> TextBox10.Value = ""
>> TextBox11.Value = ""
>> TextBox12.Value = ""
>> TextBox13.Value = ""
>> TextBox14.Value = ""
>> TextBox15.Value = ""
>> TextBox16.Value = ""
>> TextBox37.Value = ""
>> Worksheets("DATABASE HARIAN").Cells(14, 4).Value = ""
>> Exit Sub
>> End If
>> End Sub
>>
>> untuk memindahkan data dari Userform ke sheet excel dan dari sheet excel
>> ke sheet excel yg lain...
>> Prosesnya cukup panjang dan akan memakan waktu tunggu sediti lebih lama,
>> sehingga saya ingin menambahkan sebuah progress bar.
>> Selain untuk melihat progress prosesnya juga menambah indah tampilannya...
>>
>> Mohon bantuannya untuk memberikan kode script VBA untuk progress barnya
>> dan dimana harus di letakkan script itu, saya sudah nyoba tetapi blm
>> berhasil dan tambah bingung...
>>
>> Demikian, atas bantuan n pembelajarannya saya ucapkan bnyk terimakasih...
>>
>>
>>
>>
>> Andrie Amorius, SE. Ak
>> Desk Service Quality (DSQ)
>> PT. Bank Riau Kepri
>> JL. Dt Setia Maharaja / Parit Indah
>> Perkantoran Grand Sudirman Blok B 2
>> Telp (0761) 7072974
>> Pekanbaru - Riau
>>
>>
>
>
diletakan scrypt progress barnya Mr. Kid??!
Karna scrypt yg saya lampirkan untuk 1 tombol dgn nama save, itu merupakan
1rangkaian proses...
Terimakasih...
On Sep 29, 2015 5:26 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> wrote:
>
>
> Hai Andrie,
>
> 1. tambahkan object controk progress bar ke userform
> 2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
> 3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
> baris berikut :
> nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
> sampai max
> nama_userform.repaint
>
> Wassalam,
> Kid
>
>
>
>
>
>
> 2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Mr. Kid...
>>
>> Mudah2an saya doakan sehat n selalu dlm lindunganNya.
>>
>> Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai
>> berikut:
>> Private Sub CommandButton3_
>>
>> Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V,
>> AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As String
>> Dim ColumnTerakhir, ColumnTujuan As Integer
>> Dim lastRow As Long, lastCol As Long
>> Dim keyR As Range, filterR As Range
>>
>> If Worksheets("
>> MsgBox "DATA NERACA SORE BELUM DIINPUT"
>> vbOKOnly + vbCritical, "WARNING!
>> TextBox9.SetFocus
>> Exit Sub
>> ElseIf TextBox9.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox9.SetFocus
>> Exit Sub
>> ElseIf TextBox10.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox10.SetFocus
>> Exit Sub
>> ElseIf TextBox11.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox11.SetFocus
>> Exit Sub
>> ElseIf TextBox12.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox12.SetFocus
>> Exit Sub
>> ElseIf TextBox13.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox13.SetFocus
>> Exit Sub
>> ElseIf TextBox14.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox14.SetFocus
>> Exit Sub
>> ElseIf TextBox15.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox15.SetFocus
>> Exit Sub
>> ElseIf TextBox16.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox16.SetFocus
>> Exit Sub
>> ElseIf TextBox37.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox37.SetFocus
>> Exit Sub
>> ElseIf DTPicker2.Value = Worksheets("
>> Then
>> MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
>> SORE" _
>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> DTPicker2.SetFocus
>> Exit Sub
>> ElseIf Application.
>> MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
>> & vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> DTPicker2.SetFocus
>> Exit Sub
>> ElseIf DTPicker2.Value < Worksheets("
>> Then
>> MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI TANGGAL
>> DATA NERACA SORE" _
>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA"
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> DTPicker2.SetFocus
>> Exit Sub
>> Else
>> With Worksheets("
>> .Cells(16, 6).Value = TextBox9.Value
>> .Cells(17, 6).Value = TextBox10.Value
>> .Cells(18, 6).Value = TextBox11.Value
>> .Cells(19, 6).Value = TextBox12.Value
>> .Cells(20, 6).Value = TextBox13.Value
>> .Cells(21, 6).Value = TextBox14.Value
>> .Cells(22, 6).Value = TextBox15.Value
>> .Cells(23, 6).Value = TextBox16.Value
>> .Cells(32, 6).Value = TextBox37.Value
>> .Cells(24, 6).Value = CDate(DTPicker2.
>> End With
>>
>> With Worksheets("
>> AA = .Cells(16, 6).Value
>> AB = .Cells(17, 6).Value
>> AC = .Cells(18, 6).Value
>> AD = .Cells(19, 6).Value
>> AE = .Cells(20, 6).Value
>> AF = .Cells(21, 6).Value
>> AG = .Cells(22, 6).Value
>> AH = .Cells(23, 6).Value
>> AI = .Cells(24, 6).Value
>> AJ = .Cells(25, 6).Value
>> AK = .Cells(26, 6).Value
>> AL = .Cells(27, 6).Value
>> AM = .Cells(28, 6).Value
>> AN = .Cells(29, 6).Value
>> AO = .Cells(30, 6).Value
>> AP = .Cells(29, 3).Value
>> AQ = .Cells(30, 3).Value
>> AR = .Cells(14, 5).Value
>> AU = .Cells(31, 6).Value
>> Av = .Cells(32, 6).Value
>> End With
>>
>> With Worksheets("
>> ColumnTerakhir = .Cells(8,
>> .Columns.Count)
>> ColumnTujuan = ColumnTerakhir + 1
>> .Cells(9, ColumnTujuan)
>> .Cells(10, ColumnTujuan)
>> .Cells(11, ColumnTujuan)
>> .Cells(12, ColumnTujuan)
>> .Cells(13, ColumnTujuan)
>> .Cells(14, ColumnTujuan)
>> .Cells(15, ColumnTujuan)
>> .Cells(16, ColumnTujuan)
>> .Cells(17, ColumnTujuan)
>> .Cells(18, ColumnTujuan)
>> .Cells(19, ColumnTujuan)
>> .Cells(20, ColumnTujuan)
>> .Cells(21, ColumnTujuan)
>> .Cells(22, ColumnTujuan)
>> .Cells(23, ColumnTujuan)
>> .Cells(24, ColumnTujuan)
>> .Cells(25, ColumnTujuan)
>> .Cells(8, ColumnTujuan)
>> .Cells(26, ColumnTujuan)
>> .Cells(27, ColumnTujuan)
>>
>> LR = .Cells(5, .Columns.Count)
>> Range(Cells(
>>
>> ActiveWorkbook.
>> ActiveWorkbook.
>> Key:=Range(Cells(
>> ), SortOn:=xlSortOnVal
>> DataOption:=
>> ActiveWorkbook.
>> Key:=Range(Cells(
>> ), SortOn:=xlSortOnVal
>> DataOption:=
>> With ActiveWorkbook.
>> .SetRange Range(Cells(
>> .Header = xlGuess
>> .MatchCase = False
>> .Orientation = xlLeftToRight
>> .SortMethod = xlPinYin
>> .Apply
>> End With
>> End With
>>
>> With Worksheets("
>> A = .Cells(12, 8).Value
>> B = .Cells(13, 8).Value
>> C = .Cells(14, 8).Value
>> D = .Cells(15, 8).Value
>> E = .Cells(16, 8).Value
>> F = .Cells(18, 8).Value
>> G = .Cells(19, 8).Value
>> H = .Cells(20, 8).Value
>> I = .Cells(22, 8).Value
>> J = .Cells(23, 8).Value
>> K = .Cells(24, 8).Value
>> L = .Cells(26, 8).Value
>> M = .Cells(27, 8).Value
>> N = .Cells(28, 8).Value
>> O = .Cells(30, 8).Value
>> P = .Cells(31, 8).Value
>> Q = .Cells(32, 8).Value
>> R = .Cells(34, 8).Value
>> S = .Cells(35, 8).Value
>> T = .Cells(7, 8).Value
>> U = .Cells(8, 8).Value
>> V = .Cells(9, 8).Value
>> w = .Cells(40, 6).Value
>> x = .Cells(42, 6).Value
>> Y = .Cells(43, 6).Value
>> Z = .Cells(44, 6).Value
>> AT = .Cells(65, 2).Value
>> AU = .Cells(65, 7).Value
>> Av = .Cells(71, 2).Value
>> AW = .Cells(72, 2).Value
>> End With
>>
>> With Worksheets("
>> ColumnTerakhir = .Cells(6,
>> .Columns.Count)
>> ColumnTujuan = ColumnTerakhir + 1
>> .Cells(11, ColumnTujuan)
>> .Cells(12, ColumnTujuan)
>> .Cells(13, ColumnTujuan)
>> .Cells(14, ColumnTujuan)
>> .Cells(15, ColumnTujuan)
>> .Cells(17, ColumnTujuan)
>> .Cells(18, ColumnTujuan)
>> .Cells(19, ColumnTujuan)
>> .Cells(21, ColumnTujuan)
>> .Cells(22, ColumnTujuan)
>> .Cells(23, ColumnTujuan)
>> .Cells(25, ColumnTujuan)
>> .Cells(26, ColumnTujuan)
>> .Cells(27, ColumnTujuan)
>> .Cells(29, ColumnTujuan)
>> .Cells(30, ColumnTujuan)
>> .Cells(31, ColumnTujuan)
>> .Cells(33, ColumnTujuan)
>> .Cells(34, ColumnTujuan)
>> .Cells(6, ColumnTujuan)
>> .Cells(7, ColumnTujuan)
>> .Cells(8, ColumnTujuan)
>> .Cells(37, ColumnTujuan)
>> .Cells(38, ColumnTujuan)
>> .Cells(39, ColumnTujuan)
>> .Cells(40, ColumnTujuan)
>> .Cells(41, ColumnTujuan)
>> .Cells(42, ColumnTujuan)
>> .Cells(43, ColumnTujuan)
>> .Cells(44, ColumnTujuan)
>>
>> LC = .Cells(3, .Columns.Count)
>> Range(Cells(
>>
>> ActiveWorkbook.
>> KESELURUHAN"
>> ActiveWorkbook.
>> KESELURUHAN"
>> ), SortOn:=xlSortOnVal
>> DataOption:=
>> ActiveWorkbook.
>> KESELURUHAN"
>> ), SortOn:=xlSortOnVal
>> DataOption:=
>> With ActiveWorkbook.
>> .SetRange Range(Cells(
>> .Header = xlGuess
>> .MatchCase = False
>> .Orientation = xlLeftToRight
>> .SortMethod = xlPinYin
>> .Apply
>> End With
>> End With
>> ActiveWorkbook.
>> MsgBox "DATA BERHASIL DISIMPAN"
>> vbOKOnly + vbInformation, "BERHASIL SIMPAN"
>> TextBox9.Value = ""
>> TextBox10.Value = ""
>> TextBox11.Value = ""
>> TextBox12.Value = ""
>> TextBox13.Value = ""
>> TextBox14.Value = ""
>> TextBox15.Value = ""
>> TextBox16.Value = ""
>> TextBox37.Value = ""
>> Worksheets("
>> Exit Sub
>> End If
>> End Sub
>>
>> untuk memindahkan data dari Userform ke sheet excel dan dari sheet excel
>> ke sheet excel yg lain...
>> Prosesnya cukup panjang dan akan memakan waktu tunggu sediti lebih lama,
>> sehingga saya ingin menambahkan sebuah progress bar.
>> Selain untuk melihat progress prosesnya juga menambah indah tampilannya.
>>
>> Mohon bantuannya untuk memberikan kode script VBA untuk progress barnya
>> dan dimana harus di letakkan script itu, saya sudah nyoba tetapi blm
>> berhasil dan tambah bingung...
>>
>> Demikian, atas bantuan n pembelajarannya saya ucapkan bnyk terimakasih.
>>
>>
>>
>>
>> Andrie Amorius, SE. Ak
>> Desk Service Quality (DSQ)
>> PT. Bank Riau Kepri
>> JL. Dt Setia Maharaja / Parit Indah
>> Perkantoran Grand Sudirman Blok B 2
>> Telp (0761) 7072974
>> Pekanbaru - Riau
>>
>>
>
>
Tue Sep 29, 2015 3:48 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
disetiap proses yang membutuhkan update pencapaian melalui progress bar.
Jika ada satu rangkaian proses yang terdiri dari 10 proses (1 rangkaian isi
10 proses), letakkan baris update nilai progress bar setiap selesai 1
proses. Tentu saja 1 rangkaian proses itu ada yang dijalankan melalui 1
prosedur atau lebih. Tapi, tidak peduli berapa prosedur yang menjalankan 10
proses dalam 1 rangkaian itu, tetap saja setiap selesai 1 proses, lakukan
update nilai progress bar dengan baris kode untuk update progress bar tadi.
2015-09-29 17:43 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dibaris mana dr scrypt proses pemindahan data saya yg saya lampirkan hrs
> diletakan scrypt progress barnya Mr. Kid??!
> Karna scrypt yg saya lampirkan untuk 1 tombol dgn nama save, itu merupakan
> 1rangkaian proses...
> Terimakasih...
> On Sep 29, 2015 5:26 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Hai Andrie,
>>
>> 1. tambahkan object controk progress bar ke userform
>> 2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
>> 3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
>> baris berikut :
>> nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
>> sampai max
>> nama_userform.repaint
>>
>> Wassalam,
>> Kid
>>
>>
>>
>>
>>
>>
>> 2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear Mr. Kid...
>>>
>>> Mudah2an saya doakan sehat n selalu dlm lindunganNya... Amin...
>>>
>>> Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai
>>> berikut:
>>> Private Sub CommandButton3_Click()
>>>
>>> Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U,
>>> V, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As
>>> String
>>> Dim ColumnTerakhir, ColumnTujuan As Integer
>>> Dim lastRow As Long, lastCol As Long
>>> Dim keyR As Range, filterR As Range
>>>
>>> If Worksheets("DATABASE HARIAN").Cells(14, 4).Value = "" Then
>>> MsgBox "DATA NERACA SORE BELUM DIINPUT", _
>>> vbOKOnly + vbCritical, "WARNING!!!..."
>>> TextBox9.SetFocus
>>> Exit Sub
>>> ElseIf TextBox9.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox9.SetFocus
>>> Exit Sub
>>> ElseIf TextBox10.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox10.SetFocus
>>> Exit Sub
>>> ElseIf TextBox11.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox11.SetFocus
>>> Exit Sub
>>> ElseIf TextBox12.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox12.SetFocus
>>> Exit Sub
>>> ElseIf TextBox13.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox13.SetFocus
>>> Exit Sub
>>> ElseIf TextBox14.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox14.SetFocus
>>> Exit Sub
>>> ElseIf TextBox15.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox15.SetFocus
>>> Exit Sub
>>> ElseIf TextBox16.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox16.SetFocus
>>> Exit Sub
>>> ElseIf TextBox37.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox37.SetFocus
>>> Exit Sub
>>> ElseIf DTPicker2.Value = Worksheets("DATABASE HARIAN").Cells(14,
>>> 4).Value Then
>>> MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
>>> SORE" _
>>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> DTPicker2.SetFocus
>>> Exit Sub
>>> ElseIf Application.CountIf(Range("TANGGAL4"), DTPicker2.Value) = 1 Then
>>> MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
>>> & vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> DTPicker2.SetFocus
>>> Exit Sub
>>> ElseIf DTPicker2.Value < Worksheets("DATABASE HARIAN").Cells(14,
>>> 4).Value Then
>>> MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI
>>> TANGGAL DATA NERACA SORE" _
>>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> DTPicker2.SetFocus
>>> Exit Sub
>>> Else
>>> With Worksheets("DATABASE HARIAN")
>>> .Cells(16, 6).Value = TextBox9.Value
>>> .Cells(17, 6).Value = TextBox10.Value
>>> .Cells(18, 6).Value = TextBox11.Value
>>> .Cells(19, 6).Value = TextBox12.Value
>>> .Cells(20, 6).Value = TextBox13.Value
>>> .Cells(21, 6).Value = TextBox14.Value
>>> .Cells(22, 6).Value = TextBox15.Value
>>> .Cells(23, 6).Value = TextBox16.Value
>>> .Cells(32, 6).Value = TextBox37.Value
>>> .Cells(24, 6).Value = CDate(DTPicker2.Value)
>>> End With
>>>
>>> With Worksheets("DATABASE HARIAN")
>>> AA = .Cells(16, 6).Value
>>> AB = .Cells(17, 6).Value
>>> AC = .Cells(18, 6).Value
>>> AD = .Cells(19, 6).Value
>>> AE = .Cells(20, 6).Value
>>> AF = .Cells(21, 6).Value
>>> AG = .Cells(22, 6).Value
>>> AH = .Cells(23, 6).Value
>>> AI = .Cells(24, 6).Value
>>> AJ = .Cells(25, 6).Value
>>> AK = .Cells(26, 6).Value
>>> AL = .Cells(27, 6).Value
>>> AM = .Cells(28, 6).Value
>>> AN = .Cells(29, 6).Value
>>> AO = .Cells(30, 6).Value
>>> AP = .Cells(29, 3).Value
>>> AQ = .Cells(30, 3).Value
>>> AR = .Cells(14, 5).Value
>>> AU = .Cells(31, 6).Value
>>> Av = .Cells(32, 6).Value
>>> End With
>>>
>>> With Worksheets("DATABASE")
>>> ColumnTerakhir = .Cells(8,
>>> .Columns.Count).End(xlToLeft).Column
>>> ColumnTujuan = ColumnTerakhir + 1
>>> .Cells(9, ColumnTujuan).Value = AA
>>> .Cells(10, ColumnTujuan).Value = AB
>>> .Cells(11, ColumnTujuan).Value = AC
>>> .Cells(12, ColumnTujuan).Value = AD
>>> .Cells(13, ColumnTujuan).Value = AE
>>> .Cells(14, ColumnTujuan).Value = AF
>>> .Cells(15, ColumnTujuan).Value = AG
>>> .Cells(16, ColumnTujuan).Value = AH
>>> .Cells(17, ColumnTujuan).Value = AJ
>>> .Cells(18, ColumnTujuan).Value = AK
>>> .Cells(19, ColumnTujuan).Value = AL
>>> .Cells(20, ColumnTujuan).Value = AM
>>> .Cells(21, ColumnTujuan).Value = AI
>>> .Cells(22, ColumnTujuan).Value = AP
>>> .Cells(23, ColumnTujuan).Value = AQ
>>> .Cells(24, ColumnTujuan).Value = AN
>>> .Cells(25, ColumnTujuan).Value = AO
>>> .Cells(8, ColumnTujuan).Value = AR
>>> .Cells(26, ColumnTujuan).Value = AU
>>> .Cells(27, ColumnTujuan).Value = Av
>>>
>>> LR = .Cells(5, .Columns.Count).End(xlToLeft).Column
>>> Range(Cells(5, "C"), Cells(25, LR)).Select
>>>
>>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Clear
>>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
>>> Key:=Range(Cells(5, "C"), Cells(5, LR) _
>>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>>> DataOption:=xlSortNormal
>>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
>>> Key:=Range(Cells(8, "C"), Cells(8, LR) _
>>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>>> DataOption:=xlSortNormal
>>> With ActiveWorkbook.Worksheets("DATABASE").SORT
>>> .SetRange Range(Cells(5, "C"), Cells(25, LR))
>>> .Header = xlGuess
>>> .MatchCase = False
>>> .Orientation = xlLeftToRight
>>> .SortMethod = xlPinYin
>>> .Apply
>>> End With
>>> End With
>>>
>>> With Worksheets("HASIL HARIAN")
>>> A = .Cells(12, 8).Value
>>> B = .Cells(13, 8).Value
>>> C = .Cells(14, 8).Value
>>> D = .Cells(15, 8).Value
>>> E = .Cells(16, 8).Value
>>> F = .Cells(18, 8).Value
>>> G = .Cells(19, 8).Value
>>> H = .Cells(20, 8).Value
>>> I = .Cells(22, 8).Value
>>> J = .Cells(23, 8).Value
>>> K = .Cells(24, 8).Value
>>> L = .Cells(26, 8).Value
>>> M = .Cells(27, 8).Value
>>> N = .Cells(28, 8).Value
>>> O = .Cells(30, 8).Value
>>> P = .Cells(31, 8).Value
>>> Q = .Cells(32, 8).Value
>>> R = .Cells(34, 8).Value
>>> S = .Cells(35, 8).Value
>>> T = .Cells(7, 8).Value
>>> U = .Cells(8, 8).Value
>>> V = .Cells(9, 8).Value
>>> w = .Cells(40, 6).Value
>>> x = .Cells(42, 6).Value
>>> Y = .Cells(43, 6).Value
>>> Z = .Cells(44, 6).Value
>>> AT = .Cells(65, 2).Value
>>> AU = .Cells(65, 7).Value
>>> Av = .Cells(71, 2).Value
>>> AW = .Cells(72, 2).Value
>>> End With
>>>
>>> With Worksheets("REKAP KESELURUHAN")
>>> ColumnTerakhir = .Cells(6,
>>> .Columns.Count).End(xlToLeft).Column
>>> ColumnTujuan = ColumnTerakhir + 1
>>> .Cells(11, ColumnTujuan).Value = A
>>> .Cells(12, ColumnTujuan).Value = B
>>> .Cells(13, ColumnTujuan).Value = C
>>> .Cells(14, ColumnTujuan).Value = D
>>> .Cells(15, ColumnTujuan).Value = E
>>> .Cells(17, ColumnTujuan).Value = F
>>> .Cells(18, ColumnTujuan).Value = G
>>> .Cells(19, ColumnTujuan).Value = H
>>> .Cells(21, ColumnTujuan).Value = I
>>> .Cells(22, ColumnTujuan).Value = J
>>> .Cells(23, ColumnTujuan).Value = K
>>> .Cells(25, ColumnTujuan).Value = L
>>> .Cells(26, ColumnTujuan).Value = M
>>> .Cells(27, ColumnTujuan).Value = N
>>> .Cells(29, ColumnTujuan).Value = O
>>> .Cells(30, ColumnTujuan).Value = P
>>> .Cells(31, ColumnTujuan).Value = Q
>>> .Cells(33, ColumnTujuan).Value = R
>>> .Cells(34, ColumnTujuan).Value = S
>>> .Cells(6, ColumnTujuan).Value = T
>>> .Cells(7, ColumnTujuan).Value = U
>>> .Cells(8, ColumnTujuan).Value = V
>>> .Cells(37, ColumnTujuan).Value = w
>>> .Cells(38, ColumnTujuan).Value = x
>>> .Cells(39, ColumnTujuan).Value = Y
>>> .Cells(40, ColumnTujuan).Value = Z
>>> .Cells(41, ColumnTujuan).Value = AT
>>> .Cells(42, ColumnTujuan).Value = AU
>>> .Cells(43, ColumnTujuan).Value = Av
>>> .Cells(44, ColumnTujuan).Value = AW
>>>
>>> LC = .Cells(3, .Columns.Count).End(xlToLeft).Column
>>> Range(Cells(3, "ADT"), Cells(44, LR)).Select
>>>
>>> ActiveWorkbook.Worksheets("REKAP
>>> KESELURUHAN").SORT.SortFields.Clear
>>> ActiveWorkbook.Worksheets("REKAP
>>> KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(3, "ADT"), Cells(3, LC) _
>>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>>> DataOption:=xlSortNormal
>>> ActiveWorkbook.Worksheets("REKAP
>>> KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(6, "ADT"), Cells(6, LC) _
>>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>>> DataOption:=xlSortNormal
>>> With ActiveWorkbook.Worksheets("REKAP KESELURUHAN").SORT
>>> .SetRange Range(Cells(3, "ADT"), Cells(44, LC))
>>> .Header = xlGuess
>>> .MatchCase = False
>>> .Orientation = xlLeftToRight
>>> .SortMethod = xlPinYin
>>> .Apply
>>> End With
>>> End With
>>> ActiveWorkbook.Save
>>> MsgBox "DATA BERHASIL DISIMPAN", _
>>> vbOKOnly + vbInformation, "BERHASIL SIMPAN"
>>> TextBox9.Value = ""
>>> TextBox10.Value = ""
>>> TextBox11.Value = ""
>>> TextBox12.Value = ""
>>> TextBox13.Value = ""
>>> TextBox14.Value = ""
>>> TextBox15.Value = ""
>>> TextBox16.Value = ""
>>> TextBox37.Value = ""
>>> Worksheets("DATABASE HARIAN").Cells(14, 4).Value = ""
>>> Exit Sub
>>> End If
>>> End Sub
>>>
>>> untuk memindahkan data dari Userform ke sheet excel dan dari sheet excel
>>> ke sheet excel yg lain...
>>> Prosesnya cukup panjang dan akan memakan waktu tunggu sediti lebih lama,
>>> sehingga saya ingin menambahkan sebuah progress bar.
>>> Selain untuk melihat progress prosesnya juga menambah indah
>>> tampilannya...
>>>
>>> Mohon bantuannya untuk memberikan kode script VBA untuk progress barnya
>>> dan dimana harus di letakkan script itu, saya sudah nyoba tetapi blm
>>> berhasil dan tambah bingung...
>>>
>>> Demikian, atas bantuan n pembelajarannya saya ucapkan bnyk terimakasih...
>>>
>>>
>>>
>>>
>>> Andrie Amorius, SE. Ak
>>> Desk Service Quality (DSQ)
>>> PT. Bank Riau Kepri
>>> JL. Dt Setia Maharaja / Parit Indah
>>> Perkantoran Grand Sudirman Blok B 2
>>> Telp (0761) 7072974
>>> Pekanbaru - Riau
>>>
>>>
>>
>
Jika ada satu rangkaian proses yang terdiri dari 10 proses (1 rangkaian isi
10 proses), letakkan baris update nilai progress bar setiap selesai 1
proses. Tentu saja 1 rangkaian proses itu ada yang dijalankan melalui 1
prosedur atau lebih. Tapi, tidak peduli berapa prosedur yang menjalankan 10
proses dalam 1 rangkaian itu, tetap saja setiap selesai 1 proses, lakukan
update nilai progress bar dengan baris kode untuk update progress bar tadi.
2015-09-29 17:43 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dibaris mana dr scrypt proses pemindahan data saya yg saya lampirkan hrs
> diletakan scrypt progress barnya Mr. Kid??!
> Karna scrypt yg saya lampirkan untuk 1 tombol dgn nama save, itu merupakan
> 1rangkaian proses...
> Terimakasih...
> On Sep 29, 2015 5:26 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Hai Andrie,
>>
>> 1. tambahkan object controk progress bar ke userform
>> 2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
>> 3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
>> baris berikut :
>> nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
>> sampai max
>> nama_userform.repaint
>>
>> Wassalam,
>> Kid
>>
>>
>>
>>
>>
>>
>> 2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Dear Mr. Kid...
>>>
>>> Mudah2an saya doakan sehat n selalu dlm lindunganNya.
>>>
>>> Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai
>>> berikut:
>>> Private Sub CommandButton3_
>>>
>>> Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U,
>>> V, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As
>>> String
>>> Dim ColumnTerakhir, ColumnTujuan As Integer
>>> Dim lastRow As Long, lastCol As Long
>>> Dim keyR As Range, filterR As Range
>>>
>>> If Worksheets("
>>> MsgBox "DATA NERACA SORE BELUM DIINPUT"
>>> vbOKOnly + vbCritical, "WARNING!
>>> TextBox9.SetFocus
>>> Exit Sub
>>> ElseIf TextBox9.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox9.SetFocus
>>> Exit Sub
>>> ElseIf TextBox10.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox10.SetFocus
>>> Exit Sub
>>> ElseIf TextBox11.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox11.SetFocus
>>> Exit Sub
>>> ElseIf TextBox12.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox12.SetFocus
>>> Exit Sub
>>> ElseIf TextBox13.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox13.SetFocus
>>> Exit Sub
>>> ElseIf TextBox14.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox14.SetFocus
>>> Exit Sub
>>> ElseIf TextBox15.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox15.SetFocus
>>> Exit Sub
>>> ElseIf TextBox16.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox16.SetFocus
>>> Exit Sub
>>> ElseIf TextBox37.Value = "" Then
>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> TextBox37.SetFocus
>>> Exit Sub
>>> ElseIf DTPicker2.Value = Worksheets("
>>> 4).Value Then
>>> MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
>>> SORE" _
>>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> DTPicker2.SetFocus
>>> Exit Sub
>>> ElseIf Application.
>>> MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
>>> & vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> DTPicker2.SetFocus
>>> Exit Sub
>>> ElseIf DTPicker2.Value < Worksheets("
>>> 4).Value Then
>>> MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI
>>> TANGGAL DATA NERACA SORE" _
>>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA"
>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>> DTPicker2.SetFocus
>>> Exit Sub
>>> Else
>>> With Worksheets("
>>> .Cells(16, 6).Value = TextBox9.Value
>>> .Cells(17, 6).Value = TextBox10.Value
>>> .Cells(18, 6).Value = TextBox11.Value
>>> .Cells(19, 6).Value = TextBox12.Value
>>> .Cells(20, 6).Value = TextBox13.Value
>>> .Cells(21, 6).Value = TextBox14.Value
>>> .Cells(22, 6).Value = TextBox15.Value
>>> .Cells(23, 6).Value = TextBox16.Value
>>> .Cells(32, 6).Value = TextBox37.Value
>>> .Cells(24, 6).Value = CDate(DTPicker2.
>>> End With
>>>
>>> With Worksheets("
>>> AA = .Cells(16, 6).Value
>>> AB = .Cells(17, 6).Value
>>> AC = .Cells(18, 6).Value
>>> AD = .Cells(19, 6).Value
>>> AE = .Cells(20, 6).Value
>>> AF = .Cells(21, 6).Value
>>> AG = .Cells(22, 6).Value
>>> AH = .Cells(23, 6).Value
>>> AI = .Cells(24, 6).Value
>>> AJ = .Cells(25, 6).Value
>>> AK = .Cells(26, 6).Value
>>> AL = .Cells(27, 6).Value
>>> AM = .Cells(28, 6).Value
>>> AN = .Cells(29, 6).Value
>>> AO = .Cells(30, 6).Value
>>> AP = .Cells(29, 3).Value
>>> AQ = .Cells(30, 3).Value
>>> AR = .Cells(14, 5).Value
>>> AU = .Cells(31, 6).Value
>>> Av = .Cells(32, 6).Value
>>> End With
>>>
>>> With Worksheets("
>>> ColumnTerakhir = .Cells(8,
>>> .Columns.Count)
>>> ColumnTujuan = ColumnTerakhir + 1
>>> .Cells(9, ColumnTujuan)
>>> .Cells(10, ColumnTujuan)
>>> .Cells(11, ColumnTujuan)
>>> .Cells(12, ColumnTujuan)
>>> .Cells(13, ColumnTujuan)
>>> .Cells(14, ColumnTujuan)
>>> .Cells(15, ColumnTujuan)
>>> .Cells(16, ColumnTujuan)
>>> .Cells(17, ColumnTujuan)
>>> .Cells(18, ColumnTujuan)
>>> .Cells(19, ColumnTujuan)
>>> .Cells(20, ColumnTujuan)
>>> .Cells(21, ColumnTujuan)
>>> .Cells(22, ColumnTujuan)
>>> .Cells(23, ColumnTujuan)
>>> .Cells(24, ColumnTujuan)
>>> .Cells(25, ColumnTujuan)
>>> .Cells(8, ColumnTujuan)
>>> .Cells(26, ColumnTujuan)
>>> .Cells(27, ColumnTujuan)
>>>
>>> LR = .Cells(5, .Columns.Count)
>>> Range(Cells(
>>>
>>> ActiveWorkbook.
>>> ActiveWorkbook.
>>> Key:=Range(Cells(
>>> ), SortOn:=xlSortOnVal
>>> DataOption:=
>>> ActiveWorkbook.
>>> Key:=Range(Cells(
>>> ), SortOn:=xlSortOnVal
>>> DataOption:=
>>> With ActiveWorkbook.
>>> .SetRange Range(Cells(
>>> .Header = xlGuess
>>> .MatchCase = False
>>> .Orientation = xlLeftToRight
>>> .SortMethod = xlPinYin
>>> .Apply
>>> End With
>>> End With
>>>
>>> With Worksheets("
>>> A = .Cells(12, 8).Value
>>> B = .Cells(13, 8).Value
>>> C = .Cells(14, 8).Value
>>> D = .Cells(15, 8).Value
>>> E = .Cells(16, 8).Value
>>> F = .Cells(18, 8).Value
>>> G = .Cells(19, 8).Value
>>> H = .Cells(20, 8).Value
>>> I = .Cells(22, 8).Value
>>> J = .Cells(23, 8).Value
>>> K = .Cells(24, 8).Value
>>> L = .Cells(26, 8).Value
>>> M = .Cells(27, 8).Value
>>> N = .Cells(28, 8).Value
>>> O = .Cells(30, 8).Value
>>> P = .Cells(31, 8).Value
>>> Q = .Cells(32, 8).Value
>>> R = .Cells(34, 8).Value
>>> S = .Cells(35, 8).Value
>>> T = .Cells(7, 8).Value
>>> U = .Cells(8, 8).Value
>>> V = .Cells(9, 8).Value
>>> w = .Cells(40, 6).Value
>>> x = .Cells(42, 6).Value
>>> Y = .Cells(43, 6).Value
>>> Z = .Cells(44, 6).Value
>>> AT = .Cells(65, 2).Value
>>> AU = .Cells(65, 7).Value
>>> Av = .Cells(71, 2).Value
>>> AW = .Cells(72, 2).Value
>>> End With
>>>
>>> With Worksheets("
>>> ColumnTerakhir = .Cells(6,
>>> .Columns.Count)
>>> ColumnTujuan = ColumnTerakhir + 1
>>> .Cells(11, ColumnTujuan)
>>> .Cells(12, ColumnTujuan)
>>> .Cells(13, ColumnTujuan)
>>> .Cells(14, ColumnTujuan)
>>> .Cells(15, ColumnTujuan)
>>> .Cells(17, ColumnTujuan)
>>> .Cells(18, ColumnTujuan)
>>> .Cells(19, ColumnTujuan)
>>> .Cells(21, ColumnTujuan)
>>> .Cells(22, ColumnTujuan)
>>> .Cells(23, ColumnTujuan)
>>> .Cells(25, ColumnTujuan)
>>> .Cells(26, ColumnTujuan)
>>> .Cells(27, ColumnTujuan)
>>> .Cells(29, ColumnTujuan)
>>> .Cells(30, ColumnTujuan)
>>> .Cells(31, ColumnTujuan)
>>> .Cells(33, ColumnTujuan)
>>> .Cells(34, ColumnTujuan)
>>> .Cells(6, ColumnTujuan)
>>> .Cells(7, ColumnTujuan)
>>> .Cells(8, ColumnTujuan)
>>> .Cells(37, ColumnTujuan)
>>> .Cells(38, ColumnTujuan)
>>> .Cells(39, ColumnTujuan)
>>> .Cells(40, ColumnTujuan)
>>> .Cells(41, ColumnTujuan)
>>> .Cells(42, ColumnTujuan)
>>> .Cells(43, ColumnTujuan)
>>> .Cells(44, ColumnTujuan)
>>>
>>> LC = .Cells(3, .Columns.Count)
>>> Range(Cells(
>>>
>>> ActiveWorkbook.
>>> KESELURUHAN"
>>> ActiveWorkbook.
>>> KESELURUHAN"
>>> ), SortOn:=xlSortOnVal
>>> DataOption:=
>>> ActiveWorkbook.
>>> KESELURUHAN"
>>> ), SortOn:=xlSortOnVal
>>> DataOption:=
>>> With ActiveWorkbook.
>>> .SetRange Range(Cells(
>>> .Header = xlGuess
>>> .MatchCase = False
>>> .Orientation = xlLeftToRight
>>> .SortMethod = xlPinYin
>>> .Apply
>>> End With
>>> End With
>>> ActiveWorkbook.
>>> MsgBox "DATA BERHASIL DISIMPAN"
>>> vbOKOnly + vbInformation, "BERHASIL SIMPAN"
>>> TextBox9.Value = ""
>>> TextBox10.Value = ""
>>> TextBox11.Value = ""
>>> TextBox12.Value = ""
>>> TextBox13.Value = ""
>>> TextBox14.Value = ""
>>> TextBox15.Value = ""
>>> TextBox16.Value = ""
>>> TextBox37.Value = ""
>>> Worksheets("
>>> Exit Sub
>>> End If
>>> End Sub
>>>
>>> untuk memindahkan data dari Userform ke sheet excel dan dari sheet excel
>>> ke sheet excel yg lain...
>>> Prosesnya cukup panjang dan akan memakan waktu tunggu sediti lebih lama,
>>> sehingga saya ingin menambahkan sebuah progress bar.
>>> Selain untuk melihat progress prosesnya juga menambah indah
>>> tampilannya.
>>>
>>> Mohon bantuannya untuk memberikan kode script VBA untuk progress barnya
>>> dan dimana harus di letakkan script itu, saya sudah nyoba tetapi blm
>>> berhasil dan tambah bingung...
>>>
>>> Demikian, atas bantuan n pembelajarannya saya ucapkan bnyk terimakasih.
>>>
>>>
>>>
>>>
>>> Andrie Amorius, SE. Ak
>>> Desk Service Quality (DSQ)
>>> PT. Bank Riau Kepri
>>> JL. Dt Setia Maharaja / Parit Indah
>>> Perkantoran Grand Sudirman Blok B 2
>>> Telp (0761) 7072974
>>> Pekanbaru - Riau
>>>
>>>
>>
>
Tue Sep 29, 2015 5:35 am (PDT) . Posted by:
"Andrie Amorius"
Maaf ngerepotin neh Mr. Kid, jika tdk keberatan bisa tolong bantu saya
tuliskan scryptnya n dmn aja. Bingung asli saya, discrypt saya sudah saya
tandain proses2nya...
Sekali lg terimakasih n mohon maaf buanged klu udh ngerepotin...
Dear Mr. Kid...
Mudah2an saya doakan sehat n selalu dlm lindunganNya... Amin...
Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai berikut:
Private Sub CommandButton3_Click()
Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V,
AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As String
Dim ColumnTerakhir, ColumnTujuan As Integer
Dim lastRow As Long, lastCol As Long
Dim keyR As Range, filterR As Range
If Worksheets("DATABASE HARIAN").Cells(14, 4).Value = "" Then
MsgBox "DATA NERACA SORE BELUM DIINPUT", _
vbOKOnly + vbCritical, "WARNING!!!..."
TextBox9.SetFocus
Exit Sub
ElseIf TextBox9.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox9.SetFocus
Exit Sub
ElseIf TextBox10.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox10.SetFocus
Exit Sub
ElseIf TextBox11.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox11.SetFocus
Exit Sub
ElseIf TextBox12.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox12.SetFocus
Exit Sub
ElseIf TextBox13.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox13.SetFocus
Exit Sub
ElseIf TextBox14.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox14.SetFocus
Exit Sub
ElseIf TextBox15.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox15.SetFocus
Exit Sub
ElseIf TextBox16.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox16.SetFocus
Exit Sub
ElseIf TextBox37.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox37.SetFocus
Exit Sub
ElseIf DTPicker2.Value = Worksheets("DATABASE HARIAN").Cells(14, 4).Value
Then
MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
SORE" _
& vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
DTPicker2.SetFocus
Exit Sub
ElseIf Application.CountIf(Range("TANGGAL4"), DTPicker2.Value) = 1 Then
MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
& vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
DTPicker2.SetFocus
Exit Sub
ElseIf DTPicker2.Value < Worksheets("DATABASE HARIAN").Cells(14, 4).Value
Then
MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI TANGGAL
DATA NERACA SORE" _
& vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
DTPicker2.SetFocus
Exit Sub
Else
With Worksheets("DATABASE HARIAN")
.Cells(16, 6).Value = TextBox9.Value
.Cells(17, 6).Value = TextBox10.Value
.Cells(18, 6).Value = TextBox11.Value
.Cells(19, 6).Value = TextBox12.Value
.Cells(20, 6).Value = TextBox13.Value
.Cells(21, 6).Value = TextBox14.Value
.Cells(22, 6).Value = TextBox15.Value
.Cells(23, 6).Value = TextBox16.Value
.Cells(32, 6).Value = TextBox37.Value
.Cells(24, 6).Value = CDate(DTPicker2.Value)
End With
With Worksheets("DATABASE HARIAN")
AA = .Cells(16, 6).Value
AB = .Cells(17, 6).Value
AC = .Cells(18, 6).Value
AD = .Cells(19, 6).Value
AE = .Cells(20, 6).Value
AF = .Cells(21, 6).Value
AG = .Cells(22, 6).Value
AH = .Cells(23, 6).Value
AI = .Cells(24, 6).Value
AJ = .Cells(25, 6).Value
AK = .Cells(26, 6).Value
AL = .Cells(27, 6).Value
AM = .Cells(28, 6).Value
AN = .Cells(29, 6).Value
AO = .Cells(30, 6).Value
AP = .Cells(29, 3).Value
AQ = .Cells(30, 3).Value
AR = .Cells(14, 5).Value
AU = .Cells(31, 6).Value
Av = .Cells(32, 6).Value
End With
With Worksheets("DATABASE")
ColumnTerakhir = .Cells(8, .Columns.Count).End(xlToLeft).Column
ColumnTujuan = ColumnTerakhir + 1
.Cells(9, ColumnTujuan).Value = AA
.Cells(10, ColumnTujuan).Value = AB
.Cells(11, ColumnTujuan).Value = AC
.Cells(12, ColumnTujuan).Value = AD
.Cells(13, ColumnTujuan).Value = AE
.Cells(14, ColumnTujuan).Value = AF
.Cells(15, ColumnTujuan).Value = AG
.Cells(16, ColumnTujuan).Value = AH
.Cells(17, ColumnTujuan).Value = AJ
.Cells(18, ColumnTujuan).Value = AK
.Cells(19, ColumnTujuan).Value = AL
.Cells(20, ColumnTujuan).Value = AM
.Cells(21, ColumnTujuan).Value = AI
.Cells(22, ColumnTujuan).Value = AP
.Cells(23, ColumnTujuan).Value = AQ
.Cells(24, ColumnTujuan).Value = AN
.Cells(25, ColumnTujuan).Value = AO
.Cells(8, ColumnTujuan).Value = AR
.Cells(26, ColumnTujuan).Value = AU
.Cells(27, ColumnTujuan).Value = Av
LR = .Cells(5, .Columns.Count).End(xlToLeft).Column
Range(Cells(5, "C"), Cells(25, LR)).Select
PROSES 1 SELESAI
ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Clear
ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
Key:=Range(Cells(5, "C"), Cells(5, LR) _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
Key:=Range(Cells(8, "C"), Cells(8, LR) _
), SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("DATABASE").SORT
.SetRange Range(Cells(5, "C"), Cells(25, LR))
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End With
PROSES 2 SELESAI
With Worksheets("HASIL HARIAN")
A = .Cells(12, 8).Value
B = .Cells(13, 8).Value
C = .Cells(14, 8).Value
D = .Cells(15, 8).Value
E = .Cells(16, 8).Value
F = .Cells(18, 8).Value
G = .Cells(19, 8).Value
H = .Cells(20, 8).Value
I = .Cells(22, 8).Value
J = .Cells(23, 8).Value
K = .Cells(24, 8).Value
L = .Cells(26, 8).Value
M = .Cells(27, 8).Value
N = .Cells(28, 8).Value
O = .Cells(30, 8).Value
P = .Cells(31, 8).Value
Q = .Cells(32, 8).Value
R = .Cells(34, 8).Value
S = .Cells(35, 8).Value
T = .Cells(7, 8).Value
U = .Cells(8, 8).Value
V = .Cells(9, 8).Value
w = .Cells(40, 6).Value
x = .Cells(42, 6).Value
Y = .Cells(43, 6).Value
Z = .Cells(44, 6).Value
AT = .Cells(65, 2).Value
AU = .Cells(65, 7).Value
Av = .Cells(71, 2).Value
AW = .Cells(72, 2).Value
End With
With Worksheets("REKAP KESELURUHAN")
ColumnTerakhir = .Cells(6, .Columns.Count).End(xlToLeft).Column
ColumnTujuan = ColumnTerakhir + 1
.Cells(11, ColumnTujuan).Value = A
.Cells(12, ColumnTujuan).Value = B
.Cells(13, ColumnTujuan).Value = C
.Cells(14, ColumnTujuan).Value = D
.Cells(15, ColumnTujuan).Value = E
.Cells(17, ColumnTujuan).Value = F
.Cells(18, ColumnTujuan).Value = G
.Cells(19, ColumnTujuan).Value = H
.Cells(21, ColumnTujuan).Value = I
.Cells(22, ColumnTujuan).Value = J
.Cells(23, ColumnTujuan).Value = K
.Cells(25, ColumnTujuan).Value = L
.Cells(26, ColumnTujuan).Value = M
.Cells(27, ColumnTujuan).Value = N
.Cells(29, ColumnTujuan).Value = O
.Cells(30, ColumnTujuan).Value = P
.Cells(31, ColumnTujuan).Value = Q
.Cells(33, ColumnTujuan).Value = R
.Cells(34, ColumnTujuan).Value = S
.Cells(6, ColumnTujuan).Value = T
.Cells(7, ColumnTujuan).Value = U
.Cells(8, ColumnTujuan).Value = V
.Cells(37, ColumnTujuan).Value = w
.Cells(38, ColumnTujuan).Value = x
.Cells(39, ColumnTujuan).Value = Y
.Cells(40, ColumnTujuan).Value = Z
.Cells(41, ColumnTujuan).Value = AT
.Cells(42, ColumnTujuan).Value = AU
.Cells(43, ColumnTujuan).Value = Av
.Cells(44, ColumnTujuan).Value = AW
LC = .Cells(3, .Columns.Count).End(xlToLeft).Column
Range(Cells(3, "ADT"), Cells(44, LR)).Select
PROSES 3 SELESAI
ActiveWorkbook.Worksheets("REKAP
KESELURUHAN").SORT.SortFields.Clear
ActiveWorkbook.Worksheets("REKAP
KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(3, "ADT"), Cells(3, LC) _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("REKAP
KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(6, "ADT"), Cells(6, LC) _
), SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("REKAP KESELURUHAN").SORT
.SetRange Range(Cells(3, "ADT"), Cells(44, LC))
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End With
ActiveWorkbook.Save
PROSES 4 SELESAI
MsgBox "DATA BERHASIL DISIMPAN", _
vbOKOnly + vbInformation, "BERHASIL SIMPAN"
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox37.Value = ""
Worksheets("DATABASE HARIAN").Cells(14, 4).Value = ""
Exit Sub
End If
End Sub
On Sep 29, 2015 5:48 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> wrote:
>
>
> disetiap proses yang membutuhkan update pencapaian melalui progress bar.
> Jika ada satu rangkaian proses yang terdiri dari 10 proses (1 rangkaian
> isi 10 proses), letakkan baris update nilai progress bar setiap selesai 1
> proses. Tentu saja 1 rangkaian proses itu ada yang dijalankan melalui 1
> prosedur atau lebih. Tapi, tidak peduli berapa prosedur yang menjalankan 10
> proses dalam 1 rangkaian itu, tetap saja setiap selesai 1 proses, lakukan
> update nilai progress bar dengan baris kode untuk update progress bar tadi.
>
>
>
>
>
>
>
>
> 2015-09-29 17:43 GMT+07:00 Andrie Amorius bm78ar@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dibaris mana dr scrypt proses pemindahan data saya yg saya lampirkan hrs
>> diletakan scrypt progress barnya Mr. Kid??!
>> Karna scrypt yg saya lampirkan untuk 1 tombol dgn nama save, itu
>> merupakan 1rangkaian proses...
>> Terimakasih...
>> On Sep 29, 2015 5:26 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Hai Andrie,
>>>
>>> 1. tambahkan object controk progress bar ke userform
>>> 2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
>>> 3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
>>> baris berikut :
>>> nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
>>> sampai max
>>> nama_userform.repaint
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Dear Mr. Kid...
>>>>
>>>> Mudah2an saya doakan sehat n selalu dlm lindunganNya... Amin...
>>>>
>>>> Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai
>>>> berikut:
>>>> Private Sub CommandButton3_Click()
>>>>
>>>> Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U,
>>>> V, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As
>>>> String
>>>> Dim ColumnTerakhir, ColumnTujuan As Integer
>>>> Dim lastRow As Long, lastCol As Long
>>>> Dim keyR As Range, filterR As Range
>>>>
>>>> If Worksheets("DATABASE HARIAN").Cells(14, 4).Value = "" Then
>>>> MsgBox "DATA NERACA SORE BELUM DIINPUT", _
>>>> vbOKOnly + vbCritical, "WARNING!!!..."
>>>> TextBox9.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox9.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox9.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox10.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox10.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox11.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox11.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox12.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox12.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox13.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox13.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox14.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox14.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox15.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox15.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox16.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox16.SetFocus
>>>> Exit Sub
>>>> ElseIf TextBox37.Value = "" Then
>>>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> TextBox37.SetFocus
>>>> Exit Sub
>>>> ElseIf DTPicker2.Value = Worksheets("DATABASE HARIAN").Cells(14,
>>>> 4).Value Then
>>>> MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA
>>>> NERACA SORE" _
>>>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> DTPicker2.SetFocus
>>>> Exit Sub
>>>> ElseIf Application.CountIf(Range("TANGGAL4"), DTPicker2.Value) = 1 Then
>>>> MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
>>>> & vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> DTPicker2.SetFocus
>>>> Exit Sub
>>>> ElseIf DTPicker2.Value < Worksheets("DATABASE HARIAN").Cells(14,
>>>> 4).Value Then
>>>> MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI
>>>> TANGGAL DATA NERACA SORE" _
>>>> & vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
>>>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>>>> DTPicker2.SetFocus
>>>> Exit Sub
>>>> Else
>>>> With Worksheets("DATABASE HARIAN")
>>>> .Cells(16, 6).Value = TextBox9.Value
>>>> .Cells(17, 6).Value = TextBox10.Value
>>>> .Cells(18, 6).Value = TextBox11.Value
>>>> .Cells(19, 6).Value = TextBox12.Value
>>>> .Cells(20, 6).Value = TextBox13.Value
>>>> .Cells(21, 6).Value = TextBox14.Value
>>>> .Cells(22, 6).Value = TextBox15.Value
>>>> .Cells(23, 6).Value = TextBox16.Value
>>>> .Cells(32, 6).Value = TextBox37.Value
>>>> .Cells(24, 6).Value = CDate(DTPicker2.Value)
>>>> End With
>>>>
>>>> With Worksheets("DATABASE HARIAN")
>>>> AA = .Cells(16, 6).Value
>>>> AB = .Cells(17, 6).Value
>>>> AC = .Cells(18, 6).Value
>>>> AD = .Cells(19, 6).Value
>>>> AE = .Cells(20, 6).Value
>>>> AF = .Cells(21, 6).Value
>>>> AG = .Cells(22, 6).Value
>>>> AH = .Cells(23, 6).Value
>>>> AI = .Cells(24, 6).Value
>>>> AJ = .Cells(25, 6).Value
>>>> AK = .Cells(26, 6).Value
>>>> AL = .Cells(27, 6).Value
>>>> AM = .Cells(28, 6).Value
>>>> AN = .Cells(29, 6).Value
>>>> AO = .Cells(30, 6).Value
>>>> AP = .Cells(29, 3).Value
>>>> AQ = .Cells(30, 3).Value
>>>> AR = .Cells(14, 5).Value
>>>> AU = .Cells(31, 6).Value
>>>> Av = .Cells(32, 6).Value
>>>> End With
>>>>
>>>> With Worksheets("DATABASE")
>>>> ColumnTerakhir = .Cells(8,
>>>> .Columns.Count).End(xlToLeft).Column
>>>> ColumnTujuan = ColumnTerakhir + 1
>>>> .Cells(9, ColumnTujuan).Value = AA
>>>> .Cells(10, ColumnTujuan).Value = AB
>>>> .Cells(11, ColumnTujuan).Value = AC
>>>> .Cells(12, ColumnTujuan).Value = AD
>>>> .Cells(13, ColumnTujuan).Value = AE
>>>> .Cells(14, ColumnTujuan).Value = AF
>>>> .Cells(15, ColumnTujuan).Value = AG
>>>> .Cells(16, ColumnTujuan).Value = AH
>>>> .Cells(17, ColumnTujuan).Value = AJ
>>>> .Cells(18, ColumnTujuan).Value = AK
>>>> .Cells(19, ColumnTujuan).Value = AL
>>>> .Cells(20, ColumnTujuan).Value = AM
>>>> .Cells(21, ColumnTujuan).Value = AI
>>>> .Cells(22, ColumnTujuan).Value = AP
>>>> .Cells(23, ColumnTujuan).Value = AQ
>>>> .Cells(24, ColumnTujuan).Value = AN
>>>> .Cells(25, ColumnTujuan).Value = AO
>>>> .Cells(8, ColumnTujuan).Value = AR
>>>> .Cells(26, ColumnTujuan).Value = AU
>>>> .Cells(27, ColumnTujuan).Value = Av
>>>>
>>>> LR = .Cells(5, .Columns.Count).End(xlToLeft).Column
>>>> Range(Cells(5, "C"), Cells(25, LR)).Select
>>>>
>>>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Clear
>>>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
>>>> Key:=Range(Cells(5, "C"), Cells(5, LR) _
>>>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>>>> DataOption:=xlSortNormal
>>>> ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
>>>> Key:=Range(Cells(8, "C"
tuliskan scryptnya n dmn aja. Bingung asli saya, discrypt saya sudah saya
tandain proses2nya...
Sekali lg terimakasih n mohon maaf buanged klu udh ngerepotin...
Dear Mr. Kid...
Mudah2an saya doakan sehat n selalu dlm lindunganNya... Amin...
Mohon bantuannya, saya memiliki aplikasi VBA dgn scrypt VBA sebagai berikut:
Private Sub CommandButton3_Click()
Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V,
AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ As String
Dim ColumnTerakhir, ColumnTujuan As Integer
Dim lastRow As Long, lastCol As Long
Dim keyR As Range, filterR As Range
If Worksheets("DATABASE HARIAN").Cells(14, 4).Value = "" Then
MsgBox "DATA NERACA SORE BELUM DIINPUT", _
vbOKOnly + vbCritical, "WARNING!!!..."
TextBox9.SetFocus
Exit Sub
ElseIf TextBox9.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox9.SetFocus
Exit Sub
ElseIf TextBox10.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox10.SetFocus
Exit Sub
ElseIf TextBox11.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox11.SetFocus
Exit Sub
ElseIf TextBox12.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox12.SetFocus
Exit Sub
ElseIf TextBox13.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox13.SetFocus
Exit Sub
ElseIf TextBox14.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox14.SetFocus
Exit Sub
ElseIf TextBox15.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox15.SetFocus
Exit Sub
ElseIf TextBox16.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox16.SetFocus
Exit Sub
ElseIf TextBox37.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox37.SetFocus
Exit Sub
ElseIf DTPicker2.Value = Worksheets("DATABASE HARIAN").Cells(14, 4).Value
Then
MsgBox "TANGGAL DATA NERACA TERSEBUT SAMA DENGAN TANGGAL DATA NERACA
SORE" _
& vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
DTPicker2.SetFocus
Exit Sub
ElseIf Application.CountIf(Range("TANGGAL4"), DTPicker2.Value) = 1 Then
MsgBox "DATA NERACA TANGGAL TERSEBUT TELAH ADA" _
& vbCrLf & "SILAHKAN INPUT DATA NERACA TANGGAL BERDEBA", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
DTPicker2.SetFocus
Exit Sub
ElseIf DTPicker2.Value < Worksheets("DATABASE HARIAN").Cells(14, 4).Value
Then
MsgBox "TANGGAL DATA NERACA PAGI TIDAK BOLEH LEBIH KECIL DARI TANGGAL
DATA NERACA SORE" _
& vbCrLf & "SILAHKAN INPUT TANGGAL DATA BERDEBA", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
DTPicker2.SetFocus
Exit Sub
Else
With Worksheets("DATABASE HARIAN")
.Cells(16, 6).Value = TextBox9.Value
.Cells(17, 6).Value = TextBox10.Value
.Cells(18, 6).Value = TextBox11.Value
.Cells(19, 6).Value = TextBox12.Value
.Cells(20, 6).Value = TextBox13.Value
.Cells(21, 6).Value = TextBox14.Value
.Cells(22, 6).Value = TextBox15.Value
.Cells(23, 6).Value = TextBox16.Value
.Cells(32, 6).Value = TextBox37.Value
.Cells(24, 6).Value = CDate(DTPicker2.Value)
End With
With Worksheets("DATABASE HARIAN")
AA = .Cells(16, 6).Value
AB = .Cells(17, 6).Value
AC = .Cells(18, 6).Value
AD = .Cells(19, 6).Value
AE = .Cells(20, 6).Value
AF = .Cells(21, 6).Value
AG = .Cells(22, 6).Value
AH = .Cells(23, 6).Value
AI = .Cells(24, 6).Value
AJ = .Cells(25, 6).Value
AK = .Cells(26, 6).Value
AL = .Cells(27, 6).Value
AM = .Cells(28, 6).Value
AN = .Cells(29, 6).Value
AO = .Cells(30, 6).Value
AP = .Cells(29, 3).Value
AQ = .Cells(30, 3).Value
AR = .Cells(14, 5).Value
AU = .Cells(31, 6).Value
Av = .Cells(32, 6).Value
End With
With Worksheets("DATABASE")
ColumnTerakhir = .Cells(8, .Columns.Count).End(xlToLeft).Column
ColumnTujuan = ColumnTerakhir + 1
.Cells(9, ColumnTujuan).Value = AA
.Cells(10, ColumnTujuan).Value = AB
.Cells(11, ColumnTujuan).Value = AC
.Cells(12, ColumnTujuan).Value = AD
.Cells(13, ColumnTujuan).Value = AE
.Cells(14, ColumnTujuan).Value = AF
.Cells(15, ColumnTujuan).Value = AG
.Cells(16, ColumnTujuan).Value = AH
.Cells(17, ColumnTujuan).Value = AJ
.Cells(18, ColumnTujuan).Value = AK
.Cells(19, ColumnTujuan).Value = AL
.Cells(20, ColumnTujuan).Value = AM
.Cells(21, ColumnTujuan).Value = AI
.Cells(22, ColumnTujuan).Value = AP
.Cells(23, ColumnTujuan).Value = AQ
.Cells(24, ColumnTujuan).Value = AN
.Cells(25, ColumnTujuan).Value = AO
.Cells(8, ColumnTujuan).Value = AR
.Cells(26, ColumnTujuan).Value = AU
.Cells(27, ColumnTujuan).Value = Av
LR = .Cells(5, .Columns.Count).End(xlToLeft).Column
Range(Cells(5, "C"), Cells(25, LR)).Select
PROSES 1 SELESAI
ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Clear
ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
Key:=Range(Cells(5, "C"), Cells(5, LR) _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("DATABASE").SORT.SortFields.Add
Key:=Range(Cells(8, "C"), Cells(8, LR) _
), SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("DATABASE").SORT
.SetRange Range(Cells(5, "C"), Cells(25, LR))
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End With
PROSES 2 SELESAI
With Worksheets("HASIL HARIAN")
A = .Cells(12, 8).Value
B = .Cells(13, 8).Value
C = .Cells(14, 8).Value
D = .Cells(15, 8).Value
E = .Cells(16, 8).Value
F = .Cells(18, 8).Value
G = .Cells(19, 8).Value
H = .Cells(20, 8).Value
I = .Cells(22, 8).Value
J = .Cells(23, 8).Value
K = .Cells(24, 8).Value
L = .Cells(26, 8).Value
M = .Cells(27, 8).Value
N = .Cells(28, 8).Value
O = .Cells(30, 8).Value
P = .Cells(31, 8).Value
Q = .Cells(32, 8).Value
R = .Cells(34, 8).Value
S = .Cells(35, 8).Value
T = .Cells(7, 8).Value
U = .Cells(8, 8).Value
V = .Cells(9, 8).Value
w = .Cells(40, 6).Value
x = .Cells(42, 6).Value
Y = .Cells(43, 6).Value
Z = .Cells(44, 6).Value
AT = .Cells(65, 2).Value
AU = .Cells(65, 7).Value
Av = .Cells(71, 2).Value
AW = .Cells(72, 2).Value
End With
With Worksheets("REKAP KESELURUHAN")
ColumnTerakhir = .Cells(6, .Columns.Count).End(xlToLeft).Column
ColumnTujuan = ColumnTerakhir + 1
.Cells(11, ColumnTujuan).Value = A
.Cells(12, ColumnTujuan).Value = B
.Cells(13, ColumnTujuan).Value = C
.Cells(14, ColumnTujuan).Value = D
.Cells(15, ColumnTujuan).Value = E
.Cells(17, ColumnTujuan).Value = F
.Cells(18, ColumnTujuan).Value = G
.Cells(19, ColumnTujuan).Value = H
.Cells(21, ColumnTujuan).Value = I
.Cells(22, ColumnTujuan).Value = J
.Cells(23, ColumnTujuan).Value = K
.Cells(25, ColumnTujuan).Value = L
.Cells(26, ColumnTujuan).Value = M
.Cells(27, ColumnTujuan).Value = N
.Cells(29, ColumnTujuan).Value = O
.Cells(30, ColumnTujuan).Value = P
.Cells(31, ColumnTujuan).Value = Q
.Cells(33, ColumnTujuan).Value = R
.Cells(34, ColumnTujuan).Value = S
.Cells(6, ColumnTujuan).Value = T
.Cells(7, ColumnTujuan).Value = U
.Cells(8, ColumnTujuan).Value = V
.Cells(37, ColumnTujuan).Value = w
.Cells(38, ColumnTujuan).Value = x
.Cells(39, ColumnTujuan).Value = Y
.Cells(40, ColumnTujuan).Value = Z
.Cells(41, ColumnTujuan).Value = AT
.Cells(42, ColumnTujuan).Value = AU
.Cells(43, ColumnTujuan).Value = Av
.Cells(44, ColumnTujuan).Value = AW
LC = .Cells(3, .Columns.Count).End(xlToLeft).Column
Range(Cells(3, "ADT"), Cells(44, LR)).Select
PROSES 3 SELESAI
ActiveWorkbook.Worksheets("REKAP
KESELURUHAN").SORT.SortFields.Clear
ActiveWorkbook.Worksheets("REKAP
KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(3, "ADT"), Cells(3, LC) _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("REKAP
KESELURUHAN").SORT.SortFields.Add Key:=Range(Cells(6, "ADT"), Cells(6, LC) _
), SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("REKAP KESELURUHAN").SORT
.SetRange Range(Cells(3, "ADT"), Cells(44, LC))
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End With
ActiveWorkbook.Save
PROSES 4 SELESAI
MsgBox "DATA BERHASIL DISIMPAN", _
vbOKOnly + vbInformation, "BERHASIL SIMPAN"
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox37.Value = ""
Worksheets("DATABASE HARIAN").Cells(14, 4).Value = ""
Exit Sub
End If
End Sub
On Sep 29, 2015 5:48 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> wrote:
>
>
> disetiap proses yang membutuhkan update pencapaian melalui progress bar.
> Jika ada satu rangkaian proses yang terdiri dari 10 proses (1 rangkaian
> isi 10 proses), letakkan baris update nilai progress bar setiap selesai 1
> proses. Tentu saja 1 rangkaian proses itu ada yang dijalankan melalui 1
> prosedur atau lebih. Tapi, tidak peduli berapa prosedur yang menjalankan 10
> proses dalam 1 rangkaian itu, tetap saja setiap selesai 1 proses, lakukan
> update nilai progress bar dengan baris kode untuk update progress bar tadi.
>
>
>
>
>
>
>
>
> 2015-09-29 17:43 GMT+07:00 Andrie Amorius bm78ar@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dibaris mana dr scrypt proses pemindahan data saya yg saya lampirkan hrs
>> diletakan scrypt progress barnya Mr. Kid??!
>> Karna scrypt yg saya lampirkan untuk 1 tombol dgn nama save, itu
>> merupakan 1rangkaian proses...
>> Terimakasih...
>> On Sep 29, 2015 5:26 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>> belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Hai Andrie,
>>>
>>> 1. tambahkan object controk progress bar ke userform
>>> 2. atur nilai max dan min dari progress bar (misal min=0 dan max=100)
>>> 3. setiap selesai proses yang membutuhkan update progress bar, tambahkan
>>> baris berikut :
>>> nama_progress_bar.value=nilai_proses_tercapai 'bilangan bulat dari min
>>> sampai max
>>> nama_userform.repaint
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2015-09-29 13:00 GMT+07:00 Andrie Amorius bm78ar@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>