Jumat, 30 November 2012

[belajar-excel] Digest Number 1942

5 New Messages

Digest #1942

Messages

Fri Nov 30, 2012 4:32 am (PST) . Posted by:

"Hobys Mengamati"


dear exceler,

ada berapa kemungkinan kombinasi 5 huruf ABCDE jadi 4 digit, mis; ABCD ABCE ACDE dst? trims

Fri Nov 30, 2012 4:51 am (PST) . Posted by:

"Jan Raisin"

kalau hanya sekedar ingin mengetahui jumlah kombinasi yang dapat dibuat
maka gunakan fungsi Conbin

=Combin(jumlah_huruf_tersedia , jumlah_huruf_digunakan)
=Combin(5 , 4)

dalam matematika setara dengan 5C4

kalo yang dicari adalah Permutasi maka fungsi Combin diganti dengan Permut,
jangan sampai terbalik menggunakan antara Permutasi dengan Kombinasi

Best Regard,

-Ms. Jan Raisin-

Pada 30 November 2012 19:29, Hobys Mengamati <hobysmengamati@yahoo.com>menulis:

> **
>
>
>
> dear exceler,
>
> ada berapa kemungkinan kombinasi 5 huruf ABCDE jadi 4 digit, mis; ABCD
> ABCE ACDE dst? trims
>
>
>

Fri Nov 30, 2012 5:02 am (PST) . Posted by:

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

Mencari jumlah item permutasi atau kombinasi sudah dijelaskan oleh miss Jan.

Untuk menyusun daftar permutasi, coba gunakan UDF Permutasi pada file
terlampir.
UDF (User Defined Function = Fungsi buatan sendiri) adalah prosedur
Function yang bisa disusun dengan VBA (seperti pada file terlampir) untuk
bisa digunakan layaknya menggunakan fungsi bawaan Excel.

Syarat : Prosedur fungsi Permutasi beserta seluruh prosedur yang dibutuhkan
oleh prosedur Permutasi harus selalu ada dalam lembar VBProject file
tersebut.

Pastikan VBA (Macro) diijinkan bekerja oleh security komputer Anda.

Wassalam,
Kid.

2012/11/30 Jan Raisin <miss.jan.raisin@gmail.com>

> **
>
>
> kalau hanya sekedar ingin mengetahui jumlah kombinasi yang dapat dibuat
> maka gunakan fungsi Conbin
>
> =Combin(jumlah_huruf_tersedia , jumlah_huruf_digunakan)
> =Combin(5 , 4)
>
> dalam matematika setara dengan 5C4
>
> kalo yang dicari adalah Permutasi maka fungsi Combin diganti dengan
> Permut, jangan sampai terbalik menggunakan antara Permutasi dengan Kombinasi
>
> Best Regard,
>
>
> -Ms. Jan Raisin-
>
> Pada 30 November 2012 19:29, Hobys Mengamati <hobysmengamati@yahoo.com>menulis:
>
> **
>>
>>
>>
>> dear exceler,
>>
>> ada berapa kemungkinan kombinasi 5 huruf ABCDE jadi 4 digit, mis; ABCD
>> ABCE ACDE dst? trims
>>
>>
> _
>

Fri Nov 30, 2012 6:28 am (PST) . Posted by:

"ngademin Thohari" ngademinth

Be- exceller 

Pak Kid and Miss. Jan

Terima kasih atas waktu dan pembelajarannya, inventory ini akan saya aplikasikan besok dengan actual kondisinya

Wassalam

amin

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 30 November 2012 17:19
Judul: Re: [belajar-excel] Inventory Variance


 
Pak Amin,

Mungkin Bapak bersedia mencoba file terlampir. Mencoba tanpa VBA dan mungkin hasilnya tidak terlalu benar (namanya mencoba kok).

Formula : (khusus xl2007. Untuk xl2003, ubah formulasi SumIFs dengan SumProduct dengan rujukan tanpa menyertakan baris 1)
=MIN(MAX(SUMIFS('Stock tag'!$C$1:$C$317,'Stock tag'!$B$1:$B$317,B2,'Stock tag'!$A$1:$A$317,"<="&A2)-SUMIFS('ONHAND system'!$C$1:$C$692,'ONHAND system'!$A$1:$A$692,B2,'ONHAND system'!$B$1:$B$692,"*ex*"),0),VLOOKUP(A2,'Stock tag'!$A$1:$C$317,3,0))

Wassalam,
Kid.

2012/11/28 ngademin Thohari <ngademinth@yahoo.co.id>

> 
>Be-Exceller , Miss. jan
>
>
>Setelah saya simulasikan data saya saya revisi, sudikah kiranya menganalisa lagi?
>pertanyaan:
>Part no. A002941-ANlokasi  78P1EX02 
di onhand system= 45000
>Data di stock
tag = 60000, yang
dibutuhkan adalah memenuhi data di onhand
system, (kalau pengurangan 60000 - 45000)
>itu adalah sisanya, tapi yang diinginkan
adalah sbb:
>stock tag 141303 = 10000  ---> 
akan berkurang stocknya menjadi 0
>                 141304 = 10000  --->  akan berkurang stocknya menjadi 0
>                 141305 = 10000  --->  akan berkurang stocknya menjadi 0
>                 141306 = 10000  --->  akan berkurang stocknya menjadi 0
>                 141307 = 10000  --->  akan berkurang stocknya menjadi 5000 jadi
total untuk memenuhi excess adalah 45000 dari 6 stock tag ini
>                 141308 = 10000  ---> akan tetap 10000
>jadi sisanya akan masuk ke KEY IN SYSTEM
>saya lampirkan datanya
>
>
>terima kasih
>
>
>
>
>
>________________________________
> Dari: Jan Raisin <miss.jan.raisin@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Rabu, 28 November 2012 17:52
>
>Judul: Re: [belajar-excel] Inventory Variance
>
>
>
> 
>Pak Amin,
>
>
>jika ternyata seperti itu, asumsi:
>
>
>1. Ada banyak kode lokasi (lebih dari 2 kode lokasi)
>2. Perhitungan akan dilakukan berdasarkan Part Number yang telah ditentukan terhadap seluruh kode lokasi yang ada
>3. Kode lokasi untuk yang akan dijumlah adalah yang mengandung kode "WP" sesuai dengan Part Number yang ditentukan
>4. Kode lokasi sebagai pengurang adalah yang mengandung "EX" sesuai dengan Part Number yang ditentukan
>5. Lokasi WP & EX selalu tetap, yaitu mulai daari digit ke 5 dari kode lokasi
>
>
>maka solusinya adalah sbb:
>
>
>=SUMPRODUCT((MID('ONHAND system'!$B$2:$B$692,5,2)="WP")*('ONHAND system'!$A$2:$A$692='KEY IN SYSTEM'!B2)*'ONHAND system'!$C$2:$C$692)+SUMPRODUCT((MID('Stock tag'!$D$2:$D$3,5,2)="WP")*('Stock tag'!$B$2:$B$3='KEY IN SYSTEM'!B2)*'Stock tag'!$C$2:$C$3)-SUMPRODUCT((MID('ONHAND system'!$B$2:$B$692,5,2)="EX")*('ONHAND system'!$A$2:$A$692='KEY IN SYSTEM'!B2)*'ONHAND system'!$C$2:$C$692)
>
>
>-- ganti tanda  koma dengan titik koma, jika regional setting adalah Indonesia --
>Yang warna biru adalah seluruh WP di sheet OnHand System yang sesuai dengan Part Number yang sudah ditentukan
>Yang warna hijau adalah seluruh WP di sheet Stock Tag yang sesuai dengan Part Number yang sudah ditentukan
>Yang warna merah adalah seluruh EX  di sheet OnHand System yang sesuai dengan Part Number yang sudah ditentukan
>Untuk mengambil WP atau EX menggunakan fungsi Mid
>
>
>Jika data berupa data dinamis yang bisa bertambah atau berkurang jumlah baris datanya, maka untuk alamat rujukan bisa memanfaatkan fungsi Tabel (Excel 2007 ke atas) atau List (Excel 2003 ke bawah)
>
>
>Best Regard,
>
>
>-Ms Jan Raisin-
>
>Pada 28 November 2012 15:55, ngademin Thohari <ngademinth@yahoo.co.id> menulis:
>
>
>> 
>>Be- exceller,
>>
>>
>>dari sistem di software kami seperti itu, ex adalah excess raw material produksi, wp = adalah raw material produksi
>>
>>
>>terima kasih
>>
>>
>>
>>
>>amin 
>>
>>
>>
>>________________________________
>> Dari: Jan Raisin <miss.jan.raisin@gmail.com>
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Rabu, 28 November 2012 14:29
>>Judul: Re: [belajar-excel] Inventory Variance
>>
>>
>>
>> 
>>Pak Amin,
>>
>>
>>sedikit yang masih agak membuat Jan bingung:
>>
>>
>>1. apakah kode lokasi hanya ada 2 saja?
>>2. jika ada lebih dari 2 kode lokasi (-- ini menurut analisa Jan saja--), apakah kode untuk kode lokasi yang dijumlah yang mengandung unsur "WP", dan sebagai pengurang adalah yang mengandung kode "EX" ?
>>
>>
>>karena informasinya sangat minim sekali, jadi berikut ini adalah solusi berdasarkan pemahaman pribadi Jan
>>
>>
>>pada sheet "Key In System" cell C2 ditulis formula berikut:
>>=SUMPRODUCT(('ONHAND system'!$B$2:$B$692="78P1WP02")*('ONHAND system'!$A$2:$A$692='KEY IN SYSTEM'!B2)*'ONHAND system'!$C$2:$C$692)+
>>SUMPRODUCT(('Stock tag'!$D$2:$D$3="78P1WP02")*('Stock tag'!$B$2:$B$3='KEY IN SYSTEM'!B2)*'Stock tag'!$C$2:$C$3)-
>>SUMPRODUCT(('ONHAND system'!$B$2:$B$692='KEY IN SYSTEM'!D2)*('ONHAND system'!$A$2:$A$692='KEY IN SYSTEM'!B2)*'ONHAND system'!$C$2:$C$692)
>>
>>lalu dicopy ke bawah, semoga sesuai dengan harapan :)
>>
>>
>>file terlampir
>>
>>
>>Best Regad,
>>
>>
>>-Ms Jan Raisin-
>>
>>Pada 28 November 2012 13:46, ngademin Thohari <ngademinth@yahoo.co.id> menulis:
>>
>>
>>> 
>>>Dear Be-Exceller
>>>
>>>Bisakah Be-exceller membantu saya untuk memecahkan masalah ini untuk mengetahui hasil variance inventory
>>>
>>>berikut penjelasannya, kalau kurang mohon di maapin
>>>
>>>Qty Stock Tag + Qty Request System location 78P1WP02 HASIL dari PENJUMLAHAN ini untuk memenuhi location 78P1EX02, setelah dipenuhi baru sisanya masuk ke KEY IN SYSTEM
>>>
>>>Contoh:�
>>>
>>>78P1WP02(Di ONHAND system) + 78P1WP02 (Di Stock tag) - 78P1EX02 (Di ONHAND system) = Hasil nya di transfer ke Qty KEY IN SYSTEM
>>>
>>>Terima kasih
>>>
>>>amin
>>
>>
>>
>
>
>

Fri Nov 30, 2012 8:20 am (PST) . Posted by:

"Jan Raisin"

Dear Be-Exceller,

ada seorang kawan yang menanyakan suatu masalah lewat jalur pribadi ke Jan,
inti dari masalah tersebut adalah sbb:

1. kawan tersebut ingin melakukan input suatu data
2. data tersebut berubah-ubah lebar kolomnya berdasarkan golongan yang bisa
dipilih menggunakan Data Validasi
3. baris data tersebut selalu tetap
4. data yang diinput berupa Text yang akan diubah menjadi Numerik setalah
membandingkan dengan kriteria tertentu
5. pada akhirnya akan dibuat banayk laporan pada sheet yang berbeda-beda

Untuk membantu kawan tersebut Jan harus banyak berkonsultasi dengan mr Kid
(terima kasih mr Kid untuk ilmunya, semoga menjadi berkah).

Alasan Jan menjawab melalui millis ini adalah:
1. Agar semua dapat memperoleh kesempatan belajar yang sama,
2. Data yang Jan kirim ke millis sudah diubah menjadi Dummy tetapi masih
mewakili pertanyaan dari sang kawan,

Ilmu yang Jan peroleh (--semoga para newbie seperti Jan juga akan sama--)
saat membuat solusi ini adalah:
1. Data yang disusun berdasarkan kaidah database akan tampak cantik &
ramping (seperti Jan xixixixi :D ), berbeda dengan matriks yang semula Jan
buat jumlah kolom ke kanannya hampir 2 digit
2. Dengan data base yang baik maka penulisan script vba akan menjadi lebih
singkat, (awalnya untuk proses input ke DataBase mencapai 3 digit jumlah
baris ke bawah tidak termasuk comment, saat ini total baris yang digunakan
adalh 260 baris dengan komposisi terbesar adalah comment)
3. Dengan database yang baik maka pembuatan report oleh user akan menjadi
mudah
4. Membuat multiple report dengan Pivot Table dari Pivot Table
Cache,(sebelumnya
harus menggunakan VBA)
5. Cara membuat Total jumlah di sebelah bawah Pivot Table dan membuat
Rata-rata di sebelah kanan Pivot Table
6. Untuk membuat laporan yang baik harus dilakukan Input >>> Database >>>
Report, sebelumnya Jan melakukan potong kompas dari Input langsung ke
Report yang akhirnya membuat Jan pusing sendiri.
7. Pada akhirnya yang diperoleh user adalah kemudahan dan kecepatan proses
input sampai dengan report

berikut scriptnya:
pada sheet Input menggunakan event change:

Option Explicit

' prosedur yang dijalankan saat ada suatu cell yang diubah
Private Sub Worksheet_Change(ByVal Target As Range)

' bekerja pada cell yang menjadi target perubahan
With Target.Cells

' jika jumlah cell yang menjadi target hanya 1, maka
If .Count = 1 Then

' jika letak barisnya = 2 dan letak kolomnya = 2 (atau pada
cell B2), maka
If .Row = 2 And .Column = 2 Then

' panggil prosedur InputNama yang ditulis dalam suatu modul
InputNama

' akhir dari pemeriksaan letak baris & kolom
End If

' akhir dari pemeriksaan jumlah cell yang berubah
End If

' akhir dari bekerja pada cell target
End With

' akhir dari prosedur
End Sub

pada sebuah modul :

Option Explicit
' --------------------------------- '
' Alhamdulillah '
' thank you Mr. Kid for your advice '
' Input Nama berdasarkan Golongan '
' Code by : Ms. Jan Raisin '
' 30 November 2012 '
' untuk millis Belajar Excel '
' --------------------------------- '

'ini adalah prosedur yang dipanggil saat ada perubahan pada sheet input di
cell B2
Sub InputNama()

' deklarasikan sebuah variabel bertipe String untuk menyimpan golongan
' sGol = nama_golongan
Dim sGol As String

' deklarasikan variabel beripe Range untuk menyimpan object berupa range
' hdGol = header_golongan
' rgGol = range_data_golongan
Dim hdGol, rgGol As Range

' non-aktifkan dahulu aplikasi screen update
Application.ScreenUpdating = False

' pergi ke sheet dengan nomer index 2 (sheet Input)
Sheet2.Select

' pergi ke cell E6
' mulai saat ini cell yang aktif adalah E6
Range("e6").Select

' tunjuk sebuah range, gunakan perintah : Range( )
' mulai dari cell yang aktif
' cara menunjukknya gunakan perintah : ActiveCell
' sampai dengan data paling kanan dari cell yang aktif
' cara menunjuknya gunakan perintah : ActiveCell.End(xlToRight)
' pada keyboard setara dengan menekan tombol CTRL panah_kanan
' hapus semua data yang ada, gunakan perintah : .ClearContents
' pada keyboard setara dengan menkan tombol delete
Range(ActiveCell, ActiveCell.End(xlToRight)).ClearContents

' simpan nama_golongan ke dalam variabel sGol
' diambil dari nilai di cell B2
' untuk mengambilnya gunakan perintah : Range("b2").Value
sGol = Range("b2").Value

' sekarang pergi ke sheet dengan nomer index 1 (sheet TabelReferensi)
Sheet1.Select

' di sheet ini akan diambil nama-nama yang sesuai dengan golongan yang
disimpan dalam variabel sGol
' untuk itu pertama-tama harus dicari header_golongan (hdGol) yang
sesuai nilainya dengan nilai dalam sGol
' untuk menugaskan hdGol menyimpan suatu object
' gunakan perintah : Set hdGol
' untuk menunjuk semua cell di dalam shett gunakan perintah : Cells
' lalu cari nilai yang tersimpan dalam variabel sGol dengan perintah :
.Find(sGol)
' pada keyboard setara dengan menekan tombol CTRL F
Set hdGol = Cells.Find(sGol)

' sekarang akan diambil seluruh data yang terletak di bawah dan
disimpan dalam variabel yang bernama rgGol
' untuk memerintahkan rgGol menyimpan suatu object gunakan perintah :
Set rgGol
' letak datanya adalah 1 baris di bawah hdGol
' gunakan perintah : hdGol.Offset(1, 0)
' pada keyboard setara dengan pada cell hdGol menekan tombol
panah_bawah 1 x
' yang artinya dari hdGol bergerak 1 baris ke bawah dan 0 kolom (kolom
tetap)
' batas akhirnya adalah baris yang paling bawah berisi data
' gunakan perintah : hdGol.End(xlDown)
' pada keyboard setara dari cell hdGol menekan tombol CTRL panah_bawah
' yang artinya dari hdGol turun ke baris paling bawah yang ada datanya
Set rgGol = Range(hdGol.Offset(1, 0), hdGol.End(xlDown))

' copy seluruh data yang sudah disimpan dalam variabel rgGol
rgGol.Copy

' pergi ke sheet2 (sheet Input)
Sheet2.Select

' pergi ke cell E6, karena ini adalah letak nama yang pertama
' pada saat ini cell aktif berada di cell E6
Range("e6").Select

' pada cell yang aktif paste data berupa nilai : xlPasteValues
' dan lakukan transpose : Transpose:=True
' sehingga data yang tadinya tersusun ke arah bawah akan berubah
menjadi ke arah kanan
ActiveCell.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone,
skipblanks:=True, Transpose:=True

' aktifkan kembali aplikasi screen update
Application.ScreenUpdating = True

' ini adalah akhir dari prosedur input nama
End Sub

' prosedur memindahkan data dari sheet Input ke sheet DataBase
Sub InputKeDataBase()

' deklarasikan variabel bertipe Date untuk menyimpan tanggal
Dim Tgl As Date

' delarasikan variabel bertipe String untuk menyimpan text
' sGol = nama_golongan
' sKls = nama_kelas
Dim sGol, sKls As String

' deklarasikan variabel bertipe Long untuk menyimpan nilai baris & kolom
' lCol = indeks_kolom_paling_kanan_dari_nama (nilainya berubah
tergantung banyaknya nama)
' Brs = indeks_baris_data
' Klm = indeks_kolom_data
' pada contoh ini bentuk input data tetap, yang berubah hanya nama-nama
saja
' sehingga nilai baris & kolom pertama data serta baris terakhir data
akan langsung ditetapkan
Dim lCol, Brs, Klm As Long

' deklarasikan variabel bertipe String untuk menyimpan data berupa text
' sNama = nama
' sCrit = kriteria
' sDesc = deskripsi
' sJwb = jawaban
Dim sNama, sCrit, SDesc, sJwb As String

' deklarasikan variabel bertipe Byte untuk menyimpan nilai
' Scr = nilai_jawaban
Dim Scr As Byte

' non-aktifkan aplikasi screen update
Application.ScreenUpdating = False

' pergi ke sheet2 (sheet Input)
Sheet2.Select

' simpan tanggal di cell B3 ke dalam variabel Tgl
Tgl = Range("b3").Value

' simpan nama_golongan di cell B2 ke dalam varibel sGol
sGol = Range("b2").Value

' simpan nama_kelas di cell B5 ke dalam variabel sKls
sKls = Range("b5").Value

' cari nilai indeks kolom yang paling akhir dari nama dan simpan dalam
variabel lCol
' caranya adalah mulai dari nama yang pertama di cell E6 sampai ke data
yang paling kanan
' gunakan perintah : Range("e6").End(xlToRight)
' pada keyboard setara dengan pada cell E6 menekan tombol CTRL
panah_kanan
' lalu ambil nilai indeks kolomnya dengan perintah : .Column
lCol = Range("e6").End(xlToRight).Column

' lakukan loop mulai baris 7 sampai baris 25
For Brs = 7 To 25

' lakukan loop mulai kolom 5 (kolom E) sampai nomor kolom yang
sudah disimpan dalam variabel lCol
For Klm = 5 To lCol

' syntax Cells adalah Cells( nomer_baris , nomer_kolom )
' contoh cell B4 jika ditulis dengan Cells menjadi Cells(4,2)

' simpan nama ke dalam variabel sNama dari baris 5 untuk setiap
kolom
sNama = Cells(6, Klm).Value

' simpan kriteria ke dalam variabel sCrit dari kolom 2 (kolom
B) untuk setiap baris
sCrit = Cells(Brs, 2).Value

' simpan dekskripsi ke dalam variabel sDesc dari kolom 3 untuk
setiap baris
SDesc = Cells(Brs, 3).Value

' simpan jawaban ke dalam variabel sJwb dari setiap nilai baris
dan nilai kolom
sJwb = Cells(Brs, Klm).Value

' lakukan pengecekan untuk memberi nilai setiap jawaban
' kunci jawaban berada pada kolom 4 (kolom D) untuk setiap baris
' jika kunci jawaban = Anulir, maka
If Cells(Brs, 4).Value = "Anulir" Then

' nilai_jawaban = 1
Scr = 1

' selain itu, jika jawaban = kunci jawaban, maka
ElseIf Cells(Brs, Klm).Value = Cells(Brs, 4).Value Then

' nilai_jawaban = 1
Scr = 1

' selain itu, berarti jawaban berbeda dengan kunci jawaban
Else

' nilai_jawaban = 0
Scr = 0

' akhir dari pengecekan jawaban
End If

' pergi ke sheet3 (sheet Database) karena seluruh data akan
disimpan
Sheet3.Select

' pergi ke cell A1 (ini adalah header)
Range("a1").Select

' lakukan pengecekan apakah 1 baris di bawah header ada datanya
atau tidak
' untuk mengetahui letak penulisan data yang baru
' jika 1 baris di bawah header tidak ada datanya, maka
If ActiveCell.Offset(1, 0) = "" Then

' turun 1 baris
ActiveCell.Offset(1, 0).Select

' selain itu, berarti di bawah header sudah ada datanya
Else

' pada cell aktif pergi ke baris paling bawah yang berisi
data
' gunakan perintah : ActiveCell.End(xlDown)
' pada keyboard setara dengan menekan tombol CTRL
panah_bawah
' lalu turun 1 baris ke bawah
' gunakan perintah : .Offset(1, 0)
' pada keyboard setara dengan menekan tombol panah_bawah 1 x
ActiveCell.End(xlDown).Offset(1, 0).Select

' akhir dari pengecekan lokasi penulisan data yang baru
End If

' bekerja berdasarkan cell aktif hasil pengecekan di atas
With ActiveCell

' pada cell aktif diisi dengan tanggal
.Value = Tgl

' 1 kolom di sebelah kanan cell aktif diisi dengan golongan
.Offset(, 1).Value = sGol

' 2 kolom di sebelah kanan cell aktif diisi dengan kelas
.Offset(, 2).Value = sKls

' 3 kolom di sebelah kanan cell aktif diisi dengan nama
.Offset(, 3).Value = sNama

' 4 kolom di sebelah kanan cell aktif diisi dengan kriteria
.Offset(, 4).Value = sCrit

' 5 kolom di sebelah kanan cell aktif diisi dengan deskripsi
.Offset(, 5).Value = SDesc

' 6 kolom di sebelah kanan cell aktif diisi dengan jawaban
.Offset(, 6).Value = sJwb

' 7 kolom di sebelah kanan cell aktif diisi dengan
nilai_jawaban
.Offset(, 7).Value = Scr

' akhir dari bekerja pada cell aktif
End With

' kembali lagi ke sheet2 (sheet Input) untuk mengambil data
berikutnya
Sheet2.Select

' lakukan untuk kolom berikutnya
Next Klm

' lakukan untuk baris berikutnya
Next Brs

' aktifkan kembali aplikasi screen update
Application.ScreenUpdating = True

' ini adalah akhir dari prosedur penulisan data dari sheet Input ke sheet
DataBase
End Sub

File terlampir, semoga bermanfaat.

Best Regard,

-Ms. Jan Raisin-
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 09.58

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)