Selasa, 29 September 2015

[belajar-excel] Digest Number 3581

15 Messages

Digest #3581
2a
Re: hak cuti yang bisa di uangkan by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Absensi [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Progress Bar by "Mr. Kid" nmkid.family@ymail.com
4b
Re: Progress Bar by "Andrie Amorius"
4c
Re: Progress Bar by "Mr. Kid" nmkid.family@ymail.com
4d
Re: Progress Bar by "Andrie Amorius"
4e
Re: Progress Bar by "Mr. Kid" nmkid.family@ymail.com
7a
Re: rekap data, auto copi sort [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
9a
Re: Find and Update [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
10a
Re: Macro Print Sekaligus loadpicture 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

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

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

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&quot;), 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&quot;).SORT.SortFields.Clear
> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
> Key:=Range(Cells(5, "C"), Cells(5, LR) _
> ), SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:=xlSortNormal
> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
> Key:=Range(Cells(8, "C"), Cells(8, LR) _
> ), SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
> With ActiveWorkbook.Worksheets("DATABASE&quot;).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
>
>
>

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&quot;), 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&quot;).SORT.SortFields.Clear
>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>> Key:=Range(Cells(5, "C"), Cells(5, LR) _
>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>> DataOption:=xlSortNormal
>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>> Key:=Range(Cells(8, "C"), Cells(8, LR) _
>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>> DataOption:=xlSortNormal
>> With ActiveWorkbook.Worksheets("DATABASE&quot;).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
>>
>>
>

>

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&quot;), 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&quot;).SORT.SortFields.Clear
>>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>>> Key:=Range(Cells(5, "C"), Cells(5, LR) _
>>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>>> DataOption:=xlSortNormal
>>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>>> Key:=Range(Cells(8, "C"), Cells(8, LR) _
>>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>>> DataOption:=xlSortNormal
>>> With ActiveWorkbook.Worksheets("DATABASE&quot;).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
>>>
>>>
>>
>

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&quot;), 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&quot;).SORT.SortFields.Clear
>>>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>>>> Key:=Range(Cells(5, "C"), Cells(5, LR) _
>>>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>>>> DataOption:=xlSortNormal
>>>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>>>> Key:=Range(Cells(8, "C"), Cells(8, LR) _
>>>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>>>> DataOption:=xlSortNormal

>>>> With ActiveWorkbook.Worksheets("DATABASE&quot;).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
>>>>
>>>>
>>>
>
>

Tue Sep 29, 2015 5:42 am (PDT) . Posted by:

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

Kalau begitu letakkan saja di SETIAP teks baris proses yang sudah Anda
tandai.

Pastikan Anda sudah menambahkan object control progres bar di userform.
Hafalkan nama object progress bar dan nama userformnya.
Atur properti Max dan Min dari object progress bar yang sudah ditambahkan.
Baru setelah itu memikirkan akan meletakkan dimana baris kodenya.

Setelah semua siap, lalu copy paste script peng-update nilai progress
barnya ke setiap teks proses yang Anda tandai. Sesuaikan nama object
progrss bar dan userform dalam baris kode yang di-copas tersebut. Tentukan
berapa nilai progress bar dari setiap proses yang selesai tersebut. Misal
proses 1 berarti sudah 5% total proses, maka isi dengan nilai 5 per seratus
dari selisih max dan min progress bar Anda. Kalau min 0 max 200, berarti
diisi 10 untuk 5% telah selesai.
Kalau di baris tanda proses 2 yang sudah selesai, nilai total yang selesai
sudah lebih dari 5% tentunya, anggap saja proses 1 dan proses 2 totalnya
sudah selesai 30%, maka nilai progress bar diisi 60 untuk 30% total proses
sudah selesai.

dst dst sampai lengkap 100% total proses tercapai.

Wassalam,
Kid

2015-09-29 19:08 GMT+07:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> 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&quot;), 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&quot;).SORT.SortFields.Clear
>>>>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>>>>> Key:=Range(Cells(5, "C"), Cells(5, LR) _
>>>>> ), SortOn:=xlSortOnValues, Order:=xlAscending,
>>>>> DataOption:=xlSortNormal
>>>>> ActiveWorkbook.Worksheets("DATABASE&quot;).SORT.SortFields.Add
>>>>> Key:=Range(Cells(8, "C"), Cells(8, LR) _
>>>>> ), SortOn:=xlSortOnValues, Order:=xlDescending,
>>>>> DataOption:=xlSortNormal
>>>>> With ActiveWorkbook.Worksheets("DATABASE&quot;).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
>>>>>
>>>>>
>>>>
>>
>

Tue Sep 29, 2015 3:43 am (PDT) . Posted by:

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

Option Explicit

Public Sub CariSheet()
Dim s As String, sht As Worksheet
ULANGI:
s = Application.InputBox("nama", "sheet", Type:=2)
If Len(s) = 0 Then
MsgBox "tidak boleh kosong"
GoTo ULANGI
ElseIf s = "False" Then
Exit Sub
End If
On Error Resume Next
Set sht = Sheets(s)
If Err.Number <> 0 Then
Err.Clear
Set sht = Sheets.Add(after:=Sheets(Sheets.Count))
sht.Name = s
If Err.Number <> 0 Then
MsgBox "namanya salah"
Application.DisplayAlerts = False
sht.Delete
Application.DisplayAlerts = True
GoTo ULANGI
Else
MsgBox "berhasil : [" & s & "]"
End If
Else
MsgBox "sudah ada"
GoTo ULANGI
End If
Err.Clear
On Error GoTo 0
End Sub

2015-09-27 17:00 GMT+07:00 al1mon@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> disuruh koding tapi ini pernyataannya..
>
> Beri nama sub carisheet
> bikin inputbox isinya >>> isikan nama sheet yang akan dicari
>
> terus memeriksa apakah nama diisi valid.. ketentuannya
> - namasheet tidak boleh kosong
> - namasheet yang diisi tidak boleh sama dengan nama sheet yang sudah ada
>
> apabila nama tidak valid muncul pesan "nama sudah dipakai, gunakan nama
> lain
> apabila sudah valid makan muncul pesan sheet dengan nama .... telah
> berhasil dibuat
>
>
>
>

Tue Sep 29, 2015 4:12 am (PDT) . Posted by:

"Samsudin"

Dear Mr, Kid,

Terima kasih atas pencerahannya




Terkirim dari tablet Samsung

"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


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<mailto:samsudin@bayan.com.sg> [belajar-excel] <belajar-excel@yahoogroups.com<mailto: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.





----------------------------------------------------------

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 5:32 am (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Cahyo,

1. membuat combo box atau list (seperti search engine) yang saling
berkaitan bagaimana pada sheet input kode dan nama penyakit kita bisa milih
( saya tidak bisa mengingat semua kode ICD maklum banyak, di cari dari nama
penyakit)
> combobox memiliki properti bernama ColumnCount yang bisa menampilkan
banyak kolom dalam daftar, untuk sumber daftar berisi banyak kolom.
Properti BoundColumn adalah nomor indeks kolom yang akan menjadi isian
properti Values. Properti TextColumn adalah indeks kolom dari daftar yang
akan ditulis dalam combobox untuk item terpilih (isian properti Text).
> silakan diatur properti-ptoperti tersebut.
> Penggunaan ColumnCount lebih dari 1 terkadang membutuhkan pengaturan
lebar kolom dalam daftar melalui properti ColumnWidth. Isiannya berurutan
dari indeks kolom 1 sampai sejumlah isi ColumnCount. Contoh : 50pt;100pt
berarti kolom ke-1 dalam daftar selebar 50pt dan kolom ke-2 selebar 100pt.

2. bagaimana sintax untuk macro perhitungan apa menggunakan sumproduct atau
sumifs atau perhitungan lain karena yang menjadi patokan bulan, tempat,
kriteria umur dan kode penyakit, mohon contoh (saya sudah coba dari
beberappa referensi tapi gagal) referensi banyak tapi belum paham fungsi nya
> Fungsi SumIF sheet REKAP BULAN RI range E11 :
=SUMIFS(INDEX(Table1,0,COLUMNS('REKAP ALL'!$A$4:F$4)
),INDEX(Table1,0,3),$C$4,INDEX(Table1,0,29),$C$5,INDEX(Table1,0,4),$C11)
> formula bisa di-copy ke baris dan kolom lain.
> untuk kolom tertentu yang tidak berurutan, lakukan penyesuaian rujukan
nomor kolom (BUKAN NAMA KOLOM) dalam Table1yang akan dipakai untuk
kalkulasi (yang akan di-sum), yaitu menggantikan bagian : COLUMNS('REKAP
ALL'!$A$4:F$4)

> Jika akan diotomasi dengan VBA untuk mem-values-ken, formula di atas akan
dipasang di E11:V20, baris kodenya :
application.calculation=xlcalculationautomatic
sheets("rekap bulan ini").range("e11:v20").formula="
=SUMIFS(INDEX(Table1,0,COLUMNS('REKAP ALL'!$A$4:F$4)
),INDEX(Table1,0,3),$C$4,INDEX(Table1,0,29),$C$5,INDEX(Table1,0,4),$C11)"
sheets("rekap bulan ini").range("e11:v20").value=sheets("rekap bulan
ini").range("e11:v20").value
> terapkan untuk area range lain dengan bunyi formula yang berbeda.

--------------
CATATAN :
1. susun formula universal yang bisa digunakan suatu area tertentu (misal
area range SATU) pada sebuah cell dalam area tersebut
2. coba copy paste manual formula ke seluruh area range tertentu tersebut
3. jika sudah sesuai, maka usaha mem-values-ken dengan VBA bisa disusun
dengan menyesuaikan rujukan sheet, range yang akan dipasangi formula dan
bunyi formula yang akan dipasang.

4. sumif(s), CountIF(s), dsb bisa menerima wildcard character * dan ? yang
bisa menjumlahkan dengan pattern tertentu.
5. jika kode memiliki pattern root dan child yang pasti, maka wildcard
character bisa dimanfaatkan untuk mengkalkulasi total root.
Contoh : untuk menjumlah semua yang rootnya berkode A01 (bisa A01,
A01.blablabla, A01.blublabli), maka bagian $C11 bisa diubah menjadi $C11&"*"
6. setiap 1 karakter " (petik dua) dalam formula disuatu cells harus diubah
menjadi 2 buah karakter " (petik dua) ketika akan dimanfaatkan dalam VBA di
atas.
--------------

3. pada sheet rekap dan rekap total, ingin buat auto copy code dan nama
penyakit (baru bisa buat tombol filter aja he... he... )
> Lakukan usaha dengan cara manual lebih dulu. Jika sukses, barulah mencoba
record macro. Kemudian ubah bagian tertentu hasil record macro agar
mendapat suplai nilai dari cells yang menjadi area inputan user.
> Excel memiliki fitur Goto Special. Jadi, coba filter data sumber, blok
area yang akan di-copy, CTRL G (Goto) -> tekan Special -> pilih visible
cells -> OK, kemudian lakukan Copy (tekan CTRL C), lalu ke sheet tujuan,
klik cell target paste, lakukan paste (tekan CTRL V).

3. untuk rekap triwulan, semester dan tahunan bagaiamana sudah cari di mbah
google tapi belum nemu)
> Anda sudah bisa membuat data harian (sheet REKAP ALL) menjadi rekap
bulanan (sheet REKAP BULAN INI) dengan bantuan kolom nama-nama bulan.
> Bukankah Anda bisa menerapkannya untuk triwulan dan segala macam
pengelompokan yang dibutuhkan ? Dengan cara bagaimana hayo ?

4. pada sheet RL 4a dan 4b ada kelompok kode penyakit bagaimana cara
menjumlahnya dengan macro contoh cell dengan isi kode A21.24-28. A31-32,
38-42-49 artinya kode A21 + A24 sampai dengan A28 + A31 sampai A32 + A38 +
A42 sampai dengan A49 (itu kode urut ada di sheet ICD X ) kalo sulit ga apa
apa paling di manual dulu yang penting untuk rekap saja untuk form RL bisa
nyusul
> Masih ingat tentang rekap bulanan ? Kenapa kok bisa data harian yang
bermacam-macam nilai tanggalnya menjadi terkumpul menyatu berdasar bulan
tertentu ?
> Pada rekap bulanan, yang diproses untuk dibentuk pengelompokannya adalah
berdasar kolom tanggal dan nama kelompoknya bisa disusun dengan formula.
> Pada kasus RL ini, Anda bisa menyusun kelompoknya juga, tetapi berdasar
kolom kode. Jadi di REKAP ALL ada kolom yang menjelaskan kode tersebut akan
masuk kelompok bernama apa (seperti tanggal tersebut masuk kelompok bernama
bulan x misalnya)
> Pada sheet RL nya juga diperlukan nama kelompoknya disetiap baris data
sheet RL.
> Fungsi SumIFs seperti di atas sana bisa Anda sesuaikan untuk kebutuhan
penjumlahannya.

5. contoh contoh saja selanjut saya ingin belajar meneruskan
> coba deh Anda buat contohnya sendiri dengan mengikuti alur dongengan di
atas...

Selamat mencoba.

Wassalamu'alaikum wr wb
Kid

On Mon, Sep 28, 2015 at 4:57 PM, imam cahyo yuwono chyywn@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> saya kirim ulang kembali data ada yang di delete hanya sebagian saja yang
> di munculkan
>
> terima kasih
>
>
>
> On Sunday, September 27, 2015 9:28 PM, "imam cahyo yuwono chyywn@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> --- Mods ---
> File lampiran yang melebihi 250KB dilepas dari email. Silakan penanya
> mengirim ulang file lampiran yang berisi data contoh dengan ukuran file
> yang diusahakan maksimal 250 KB dengan cara me-reply email ini.
> ----------------
>
> Assalamualaikum Wr. Wb
>
> Dear para master saya dapat tugas merekap data, sudah buat format untuk
> perhitungan saya menggunakan rumus sumproduct tapi file menjadi besar coba
> macro tapi tidak jalan yang saya tanyakan :
>
> 1. membuat combo box atau list (seperti search engine) yang saling
> berkaitan bagaimana pada sheet input kode dan nama penyakit kita bisa milih
> ( saya tidak bisa mengingat semua kode ICD maklum banyak, di cari dari nama
> penyakit)
>
> 2. bagaimana sintax untuk macro perhitungan apa menggunakan sumproduct
> atau sumifs atau perhitungan lain karena yang menjadi patokan bulan,
> tempat, kriteria umur dan kode penyakit, mohon contoh (saya sudah coba dari
> beberappa referensi tapi gagal) referensi banyak tapi belum paham fungsi
> nya
>
> 3. pada sheet rekap dan rekap total, ingin buat auto copy code dan nama
> penyakit (baru bisa buat tombol filter aja he... he... )
>
> 3. untuk rekap triwulan, semester dan tahunan bagaiamana sudah cari di
> mbah google tapi belum nemu)
>
> 4. pada sheet RL 4a dan 4b ada kelompok kode penyakit bagaimana cara
> menjumlahnya dengan macro contoh cell dengan isi kode A21.24-28. A31-32,
> 38-42-49 artinya kode A21 + A24 sampai dengan A28 + A31 sampai A32 + A38 +
> A42 sampai dengan A49 (itu kode urut ada di sheet ICD X ) kalo sulit ga apa
> apa paling di manual dulu yang penting untuk rekap saja untuk form RL bisa
> nyusul
>
> 5. contoh contoh saja selanjut saya ingin belajar meneruskan
>
> mohon bantuannya maklum masih nubie
> Wassalamualaikum Wr. Wb.
>
>
>
>

Tue Sep 29, 2015 5:47 am (PDT) . Posted by:

"Ivan Sebastian" layonardo

data saya lampirkan... mohon bantuannya para master2 excel... thx..

Tue Sep 29, 2015 6:00 am (PDT) . Posted by:

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

Hai Ivan,

Sebaiknya Anda membuat sebuah sheet yang menampung seluruh data inputan
berupa sebuah tabel yang baik.

Misal Anda punya sheet inputan Nota berbentuk :
No Nota 12345
Nama a
Alamat fffff
Bla gjye
tanggal 2015-09-29

No pesanan kode barang kuantitas nilai
1 x 10 50
2 y 1 100
3 z 345 12345

(nomor pesanan tentu ada maksimalnya per lembar nota)

maka di sheet inputan sejajar dengan baris nomor pesanan di kolom yang tak
terlihat dikanan sana dibuatkan formula untuk mengisi kolom berikut : susun
kekanan dengan tampilan hasil formula yang Anda susun menjadi seperti ini
(untuk contoh di atas)
No Nota Nama Alamat Bla tanggal No Pesanan Kode
Barang Kuantitas Nilai
12345 a fffff gjye 2015-09-29
1 x 10 50
12345 a fffff gjye 2015-09-29
2 y 1 100
12345 a fffff gjye 2015-09-29
3 z 345 12345

Buat sebuah sheet baru bernama DATA berisi header :
No Nota Nama Alamat Bla tanggal No Pesanan Kode
Barang Kuantitas Nilai

Nah, tombol yang ada di sheet input nota akan meng-copy area range
berformula di sheet inputan nota (misal area yang dibiru) dan paste sepcial
values ke baris kosong baru di sheet data.

Setelah itu, output yang dibuat :
1. sheet Cetak Nota bisa mengambil dari sheet Data dengan formula
2. sheet Rekap Barang bisa mengmabil dari sheet Data dengan formula

btw,
Hal diatas sekedar saran agar pengolahan datanya lebih luwes, dan dapat
terus dikembangkan secara baik, cepat, tepat, dan mudah
Tidak ada paksaan untuk menerima saran diatas, karena hal pertama yang
tampak adalah terasa ribet dan sulit.
Sayangnya, sudah ditetapkan bahwa kemudahan itu adanya setelah kesulitan

Wassalam,
Kid

2015-09-29 19:35 GMT+07:00 Ivan Sebastian layonardo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> data saya lampirkan... mohon bantuannya para master2 excel... thx..
>
>
>

Tue Sep 29, 2015 8:02 am (PDT) . Posted by:

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

Hai Roy,

Object control ComboBox dan ListBox bisa banyak membantu dalam kasus ini.
Contohnya seperti file terlampir.

Wassalam,
Kid

2015-09-28 13:23 GMT+07:00 'Roy@ld' talengong@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Sesepuh Excel
>
> Mohon bantuannya terkait dengan permasalahan Makro Excel yang saya lagi
> hadapi
>
> terlampir file yang menjadi contoh kasus.
>
> Atas bantuan dari pada master diucapkan terima kasih
>
>
>

Tue Sep 29, 2015 8:06 am (PDT) . Posted by:

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

Hai Ambo,

Sepertinya trit ini mirip dengan trit yang masih termasuk baru yang berupa
loadpicture.
Trit loadpicture tersebut ada disini :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/37873

Untuk proses print-nya, silakan dikembangkan dengan mencari trit print yang
ada di milis.

Wassalamu'alaikum wr wb
Kid

2015-09-24 12:37 GMT+07:00 Ambo Ala ambo12ran@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear All,
>
> Mohon bantuannya untuk kondisi seperti ini:
>
> Saya memiliki form data siswa (hasil vlookup) beserta foto di
> loadpicture dari sebuah folder.
>
> Kemudian saya buat tombol print menggunakan macro, dengan membuat
> nomor absen dari .... sampai .... pada sebuah cell untuk data yang akan
> diprint, (apalah istilahnya, mohon maaf master jika penjelasannya kurang
> jelas...).
>
> Nah... saat tombol print ditekan, semua data di dalam form tersebut
> tercetak dengan baik dan sesuai dengan nomor urutnya.... Tapi master....
> Sayangnya Foto pada form tersebut tidak berubah menyesuaikan dengan data
> yang ada... Alias semua form siswa yang berbeda-beda fotonya sama...
>
> Mohon pencerahan dan bantuannya sekali lagi... dan Terimakasih
>
> --
> Wassalam,
>
> *Ambo Ala*
> 0853 1170 2112
> PIN BB ** 7E A1A1 37 **
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar