[belajar-excel] Copy file
Dear All Master,
mohon pencerahan datri master, saya mau copy file ke folder tertentu, dengan
case sebagai berikut :
1. apabila folder sumber tidak ditemukan maka muncul pesan"msgbox"Folder tidak
ditemukan, then exit sub
2. apabila file yang dicopy dalam folder sumber tidak ada file excel nya maka
muncul pesan "Msgbox" File excel tidak ditemukan" then exit sub
3. apabila folder ditemukan dan file ditemukan maka muncul pesan "Msgbox" Copy
sukses" End Sub
berikut coding yang belum sempurna :
sub copyfile()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileExt As String
FromPath = "D:\DataSEC" '<< Change
ToPath = "D:\Simulator VIPEC\SimVIPEC\Dbasesim"
FileExt = "*.xl*"
If Right(FromPath, 1) <> "\" Then
FromPath = FromPath & "\"
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " : [Folder Tidak ditemukan] ", vbOKOnly, "Error"
Exit Sub
End If
If FSO.FolderExists(ToPath) = False Then
MsgBox ToPath & " doesn't exist"
Exit Sub
End If
On Error Resume Next
FSO.CopyFile Source:=FromPath & FileExt, Destination:=ToPath
MsgBox "Copy Sukses..." & FromPath & " ke folder " & ToPath
If Err.Number <> 0 Then
MsgBox "Files tidak ditemukan"
End If
End sub
File terlampir.
salam,
Along
Copy File.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: [belajar-excel] Re: Lookup data sebelah kiri.
terima kasih pak Anton atas koreksi & tambahannya...
benar seperti yang telah dijelaskan oleh pak Anton, dalam kasus ini fungsi
LookUp dapat berjalan dengan baik karena kebetulan lookup_vectornya sudah
tersusun secara Ascending.
sedikit tambahan atas kode VBA di email pupung sebelumnya.. untuk
menyingkatnya bisa mengganti seluruh code tersebut dengan 1 baris kode sbb
Evaluate("salah_satu_formula_yang_sudah dibahas")
apa pun regional setting di komputer yang anda gunakanan, pemisah formula
yang *dimerahin* harus menggunakan koma, jadi jika sebelumnya anda
menggunakan regional setting Indonesian dan pemisahnya adalah titik koma
lalu formula tersebut berjalan dengan baik di lembar kerja excel, maka jika
dicopas langsung dari formula bar ke VBE tanpa mengubah tanda pemisahnya
hanya akan menghasilkan debug.
wassalam,
-Aji Mumpung-
.a.k.a. pupung
Pada 15 September 2012 20:36, summonery menulis:
> **
>
>
> Hati-hati ketika akan menggunakan LOOKUP function dimana *lookup_vector* tidak
> terurut secara ascending order.
>
> Nukilan dari excel help:
>
>-
>
>*Important: * The values in *lookup_vector* must be placed in
>ascending order: ..., -2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE;
>otherwise, *LOOKUP* might not return the correct value
>
>
> >semoga bermanfaat
>
>
>
[belajar-excel] Re: Lookup data sebelah kiri.
Hati-hati ketika akan menggunakan LOOKUP function dimana lookup_vector
tidak terurut secara ascending order.
Nukilan dari excel help:
*
Important: The values in lookup_vector must be placed in ascending
order: ..., -2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE; otherwise, LOOKUP
might not return the correct value
>semoga bermanfaat
--- In belajar-excel@yahoogroups.com, aji mumpung
wrote:
>
> Hai Along,
>
> maaf saya tidak tau Along ini nama wanita atau pria.. jadi dari pada
salah
> sebut saya panggil Along saja ya..
>
> untuk melakukan LookUp ke sebelah kiri tidak bisa menggunakan VLookUp
> karena VLookup hanya bisa mengambil data di sebelah kanan.. terus masa
gak
> bisa sih? jawabnya BISA.. bisa menggunakan formula, bisa juga
menggunakan
> VBA..
>
> Yuk kita bahas satu persatu..
>
> Pertama cara lookup untuk data di sebelah kiri menggunakan formula..
> setidaknya ada 3 cara yang saya ketahui untuk melakukan hal ini, yaitu
> menggunakan:
>1. =Index(B2:B6;Match(C22;C2:C6;0)) ==> Kombinasi Index & Match
>2. =LookUp(C22;C2:C6;B2:B6) ==> LookUp
>3. =OffSet(C1;Mach(C22;C2:C6;0);-1) ==> Kombinasi OffSet & Match
>
> Pertama kita bahas dahulu kegunaan Match, karena untuk cara ke 1 & 3
> menggunakan fungsi ini
> syntax untuk fungsi ini adalah
>
> MATCH(lookup_value, lookup_array, [match_type])
>
> LookUp_Value adalah primary key yang akan kita gunakan untuk mencari
suatu
> nilai
> LookUp_Array adalah suatu area atau range yang akan kita bandingkan
dengan
> primary key yang sudah ditentukan
> Match_Type tipe pencarian yang akan kita cari, ada 3 macam yaitu:
>1 = mencari nilai yang sama, jika tidak ditemukan akan mengambil
nilai
> terbesar yang lebih kecil (mengambil nilai sebelumnya)
>0 = mencari nilai yang sama persis
> -1 = mencari nilai yang sama, jika tidak ditemukan maka akan
mengambil
> nilai terkecil yang lebih besar (mengambil nilai setelahnya)
> jika match_type tidak ditulis maka secara default Excel akan
menganggap
> nilainya 1
>
> Dalam kasus ini maka kita menggunakan = Match ( *c22* , *c2:c6* , *0*
) ==>
> Bahasa manusianya adalah, cari nilai c22 di range c2 sampai c6 yang
sama
> persis
>
> Yang berikutnya adalah Index
> syntax dari funfsi ini adalah
>
> INDEX(array, row_num, [column_num])
>
> Array adalah suatu area atau range yang akan kita ambil hasil atau
nilainya
> Row_Number adalah nomor baris
> Column_Number adalah nomor kolom
>
> lalu OffSet
> syntax dari fungsi ini adalah:
>
> OFFSET(reference, rows, cols, [height], [width])
>
> Refference adalah suatu range yang akan kita jadikan referensi atau
titik
> awal bergerak
> Rows adalah nomor baris
> Column adalah nomor kolom
> Height adalah jumlah baris yang akan diambil (jika tidak ditulis maka
> defaulnya adalah 1)
> Width adalah jumlah kolom yang akan diambil (jika tidak ditulis maka
> defaulnya adalah 1)
>
> Dapat kita lihat bahwa untuk fungsi Index & Offset tersedia nomor
baris &
> nomor kolom, sehingga dengan kedua fungsi ini dikombinasikan dengan
Match
> kita dapat mengambil suatu nilai, tidak hanya di sebelah kanan saja,
tetapi
> juga bisa di sebelah kiri, di sebelah atas, dan juga di sebelah bawah.
>
> untuk kasus ini penggunaan cara nomor 1 & 3 adalah sbb:
>
> =Index(B2:B6;Match(C22;C2:C6;0)) ==> Bahasa manusianya adalah: ambil
nilai
> di b2 sampai b6 yang sesuai dengan hasil Match yang sudah kita bahas
di atas
> =OffSet(C1;Match(C22;C2:C6;0);-1) ==> Bahasa manusianya adalah,
berdasarkan
> referensi cell c1, cari nilai yang sama persis berdasarkan hasil Match
di 1
> kolom sebelah kiri
>
> Ingin tau cara mengambil data di sebelah atas? silakan coba-coba
sendiri
> berdasarkan penjelasan di atas
>
> Lalu bagaimana dengan cara nomor 2 yaiu LookUp? Sekarang kita bahas
cara
> tersebut.
> syntax untuk fungsi ini adalah
>
> LOOKUP(lookup_value, lookup_vector, [result_vector])
>
> LookUp_Value adalah primary key yang akan kita gunakan untuk mencari
suatu
> nilai atau hasil
> LookUp_Vector adalah suatu area yang akan kita bandingkan dengan
primary
> key tersebut
> Result_Vector adalah suatu area yang akan kita ambil nilainya
berdasarkan
> hasil perbadingan antara primary key dengan area pencarian
>
> untuk kasus ini formulanya adalah sbb:
> =LookUp(C22;C2:C6;B2:B6) ==> bahasa manusianya adalah: cari nilai C22
di
> area c2 sampai c6, jika ditemukan ambil nilai di b2 sampai b6 yang
sebaris
> dengan hasil pencarian.
>
> Secara logika, LookUp juga bisa digunakan untuk mengambil nilai di
sebelah
> kanan, kiri, atas, dan bawah.. tetapi saya jarang menggunakan fungsi
ini.
> Untuk lebih pastinya bisa dicoba sendiri hehehe ^_^
>
> mengenai keiga cara tersebut bisa dilihat dalam lampiran ^_^
>
> Sekarang bagaimana caranya kalo dengan macro ?
> kodenya sbb:
>
> Sub CariKodeRegistrasi()
> Dim TopCell As Range, rgNmOL As Range, rgOL As Range
>
> Set TopCell = Cells.Find("Nama Outlet VIP Member")
> If TopCell Is Nothing Then
> MsgBox "Tidak Ada Header Nama Outlet", vbOKOnly
> Exit Sub
>
Re: [belajar-excel] Selamat jalan mbak Siti...
Selamat jalan, guru, banyak karya hebatmu yang mempermudah kesulitan kami, banyak rahasia dari milis mengenai profilemu, tapi yang pasti meski kau tak pernah muncul sebagai sosok sebenarnya, namun kami mengenalmu sebagau Siti Vi gadis judes yang pintar dan lakon lucumu akan mengingatkan kami dan kami merindukanmu, sungguh sangat merindukanmu dan sangat begitu kehilangan mu. ya Allah tuhan kami tinggikanlah sosok beliau di sisimu. Salam cinta kami untuk Siti Vi, selamat jalan Bpk Mabrur Masyhud, dirimu akan selalu ada di hati kami Regard's Muridmu Nor Hidayat --- Mods --- Imagenya dibuat berupa link saja ya. --- Pada Sab, 15/9/12, lapendosol opik menulis: Dari: lapendosol opik Judul: Re: [belajar-excel] Selamat jalan mbak Siti... Kepada: "belajar-excel@yahoogroups.com" Tanggal: Sabtu, 15 September, 2012, 6:22 AM Innalillahi wainnailaihi roji'unSemoga seluruh amal dan kebaikan mbak sitiVi terhadap kita semua menjadi bekal disanaSemoga diterima disisiNya dan mendapat tempat yang terbaikMari kita relakan kepergian salah satu Exceller terbaik yang pernah kita kenal Hampir ga percaya ketika dengar kabar kepergian beliau, yg telah banyak membantu kita semua.Meskipun belum sempat bertatap muka, tapi sudah kami anggap sebagai saudara.Mengenang semua kebaikan dan ilmu yang disharing dibagikan kepada kita, apalagi secara pribadi salah satu ID yang pernah dipakai beliau ikut membantu persoalan yang saya postingkan disini.Tapi memang sudah waktunya untuk dipanggil, yang tak pandang usia. Harapan terbesar kita akan muncul sitiVi-sitiVi yang lain.Selamat Jalan sitiVi From: "belajar-excel-ow...@yahoogroups.com" To: belajar-excel@yahoogroups.com Sent: Thursday, September 13, 2012 12:31 AM Subject: [belajar-excel] Selamat jalan mbak Siti... Inna lillahi wa inna ilaihi raji'un Semoga seluruh amal kebaikan mbah Mabrur (aka mbak Siti) diterima Allah SWT. Semoga beliau mendapatkan rahmat ampunan Allah SWT. Semoga iman islamnya diterima Allah SWT. Selamat jalan. --- Dear BeExceller --- Salah seorang Exceller sejati negeri ini telah mendahului kita. Mari kita kenang seluruh kebaikan yang telah diberikannya untuk kita semua. Mari kita amalkan seluruh ilmu yang telah dibaginya untuk kita semua. Thread ini adalah untuk ungkapan cinta kasih yang penuh kerinduan kita kepada mbak Siti. ---
Re: [belajar-excel] cuti
hai snupy, tiap perusahaan memiliki peraturan yang berbeda2 tentang cuti, coba sampeyan kumpulkan dulu yang berlaku di tempat sampeyan.. setelah itu kirim hasil manualnya kemari.. insya Allah nanti akan ada member millis ini yang bersedia membantu. wassalam, -Aji Mumpung- cah angon wedhus Pada tanggal 15/09/12, indria pie menulis: > dear all member > > mohon klo ada yang punya file cuti karyawan dengan formula excelnya, mohon > dishare dunks...buat gambaran saya untuk perbandingan di tempat kerja saya. > > *lagi diminta buat formula cuti di excel tapi masih belum faham, maklum > baru > > terima kasih sebelumnya.. > > salam, > -snupy-
Re: [belajar-excel] Lookup data sebelah kiri.
Dear pak Along, Untuk lookup ke kiri coba dengan kombinasi rumus index & match.. =index(tabel_kode_reg_vip, match(nama_outlet_vip, tabel_nama_outlet_vip, 0)) =index(b2:b6,match(c24,c2:c6,0)) wassalam, Ferdy Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT -Original Message- From: Longinus Along Sender: belajar-excel@yahoogroups.com Date: Sat, 15 Sep 2012 13:59:10 To: belajar-excel@yahoogroups.com Reply-To: belajar-excel@yahoogroups.com Subject: [belajar-excel] Lookup data sebelah kiri. Dear All Master, Terimakasih all Master, tapi saya masing kesulitan, malanjuti pertanyaan saya pada case combobox yang sebelumnya, bagaimana lookup data yang ada di sebelah kiri, dan juga disebelah kanan dengan commbobox. case ini sama dengan yang sebelumnya, bedanya adalah kode registrasi VIP ada disebelah kiri Nama Outlet (file terlampir) No. Kode Registrasi VIP Nama Outlet VIP Alamat/City Category 1 R146526 A.S.MOTOR Kota Tanjung Pinang 2W 2 R148067 ABADI MOTOR Kota Tanjung Pinang 2W 3 R148070 ADI MOTOR Kab. Karimun 2W 4 R146527 AKA MOTOR Kota Tanjung Pinang 2W 5 R146259 AMAN BERKAT MOTOR Kota Tanjung Pinang 2W salam, Along
