Re: [belajar-excel] Menggunakan 2 MemMaster dalam 1 UserForm
Pada bagian general declaration dari userform, tambahkan baris : private memmaster2 as range lalu pada setiap prosedur yang membutuhkan data dari sheet bernama DATA TRANSAKSI harus menggunakan memmaster2 dan bukan memmaster. Wassalam, Kid. 2014-04-02 9:09 GMT+07:00 Harry hariansyah...@yahoo.com: Dear BeExceller, Mohon pencerahan akan pertanyaan saya mengenai MemMaster yang referensi datanya dari 2 (dua) sheet yang berbeda. Bersama ini saya sertakan scrip yang saya gunakan yang terdiri dari sheet DATABASE dan sheet DATA TRANSAKSI, tetapi hasinya tidak seperti yang saya inginkan karena selalu atau bahkan tetap mengambil dari sheet DATA TRANSAKSI sehingga sheet DATABASE sama sekali tidak berfungsi. Mohon pencerahaan dari rekan-rekan BeExceller. Terima kasih - Wassalam, Harry Private Sub UserForm_Initialize() Dim I As Long, TbHeigh As Long, TbWidth Set MemMaster = Sheets(*DATABASE*).Cells(1).CurrentRegion TbHeigh = MemMaster.Rows.Count - 1 TbWidth = MemMaster.Columns.Count - 1 Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth) Application.EnableEvents = False With ComboBox1 .ColumnCount = 2 .BoundColumn = 1 For I = 1 To TbHeigh .AddItem .List(I - 1, 0) = MemMaster(I, 135) Next I End With Application.EnableEvents = True Set MemMaster = Sheets(*DATA TRANSAKSI*).Cells(1).CurrentRegion TbHeigh = MemMaster.Rows.Count - 1 TbWidth = MemMaster.Columns.Count - 1 Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth) Application.EnableEvents = False With CboNOPOLKENDARAAN .ColumnCount = 2 .BoundColumn = 1 For I = 1 To TbHeigh .AddItem .List(I - 1, 0) = MemMaster(I, 2) Next I End With Application.EnableEvents = True txtJAM = Format(Time, h:mm) End Sub Private Sub CboNOPOLKENDARAAN_Change() Dim r As Integer If CboNOPOLKENDARAAN.ListIndex -1 Then r = CboNOPOLKENDARAAN.ListIndex + 1 If r 0 Then CboNOPOLKENDARAAN.Value = MemMaster(r, 2) txtMODEL.Value = MemMaster(r, 3) txtNORANGKA.Value = MemMaster(r, 4) txtNOMESIN.Value = MemMaster(r, 5) txtWARNA.Value = MemMaster(r, 6) txtTAHUN.Value = MemMaster(r, 7) txtNAMACUSTOMER.Value = MemMaster(r, 8) txtMERKKENDARAAN.Value = MemMaster(r, 9) txtALAMAT.Value = MemMaster(r, 10) txtHP.Value = MemMaster(r, 11) txtREF.Value = MemMaster(r, 12) End If End If End Sub Private Sub ComboBox1_Change() Dim r As Integer If ComboBox1.ListIndex -1 Then r = ComboBox1.ListIndex + 1 If r 0 Then ComboBox1.Value = MemMaster(r, 135) txtSERVICESADVISOR1.Value = MemMaster(r, 137) End If End If End Sub Private Sub ComboBox2_Change() Dim r As Integer If ComboBox2.ListIndex -1 Then r = ComboBox2.ListIndex + 1 If r 0 Then ComboBox2.Value = MemMaster(r, 135) txtSERVICESADVISOR2.Value = MemMaster(r, 137) End If End If End Sub Pada Senin, 31 Maret 2014 6:01, Harry hariansyah...@yahoo.com menulis: Dear BeExceller, Assalamu'alakum Wr. Wb. Rekan-rekan BeExceller, saya ingin menggunakan MemMaster yang mengambil data dari 2 (dua) sheet yang berbeda dalam 1 (satu) UserForm. Jika hanya menggunakan 1 (satu) MemMaster, saya menggunakan Script sebagai berikut : Private Sub UserForm_Initialize() Dim I As Long, TbHeigh As Long, TbWidth Set MemMaster = Sheets(DATA CUSTOMER).Cells(1).CurrentRegion TbHeigh = MemMaster.Rows.Count - 1 TbWidth = MemMaster.Columns.Count - 1 Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth) Application.EnableEvents = False With CboNOPOLKENDARAAN .ColumnCount = 2 .BoundColumn = 1 For I = 1 To TbHeigh .AddItem .List(I - 1, 0) = MemMaster(I, 2) Next I End With Application.EnableEvents = True txtJAM = Format(Time, h:mm) End Sub Private Sub CboNOPOLKENDARAAN_Change() Dim r As Integer If CboNOPOLKENDARAAN.ListIndex -1 Then r = CboNOPOLKENDARAAN.ListIndex + 1 If r 0 Then CboNOPOLKENDARAAN.Value = MemMaster(r, 2) txtMODEL.Value = MemMaster(r, 3) txtNORANGKA.Value = MemMaster(r, 4) txtNOMESIN.Value = MemMaster(r, 5) txtWARNA.Value = MemMaster(r, 6) txtTAHUN.Value = MemMaster(r, 7) txtNAMACUSTOMER.Value = MemMaster(r, 8) txtMERKKENDARAAN.Value = MemMaster(r, 9) txtALAMAT.Value = MemMaster(r, 10) txtHP.Value = MemMaster(r, 11) txtREF.Value = MemMaster(r, 12) End If End If End Sub Dan hasilnya sesuai dengan yang diinginkan. Tapi bagaimana cara dan Scipt-nya jika saya ingin menggunakan 2 (dua) MamMaster (dalam 1 UserForm) jika referensi yang ingin diambil dari sheet yang berbeda...??? Mohon bantuan dari rekan-rekan Master sekalian. Terima kasih atas berkenan informasinya. Wassalamu'alaikum Wr. Wb. Harry N/B: Sheet 1 = DATABASE CUSTOMER Sheet 2 =
Re: [belajar-excel] Memotong-motong kalimat menjadi 20 karakter [1 Attachment]
Hai iJal, formula dalam file terlampir menggunakan asumsi : 1. pemotongan dilakukan pada karakter spasi, jadi hati-hati dengan adanya karakter ganda apalagi sampai 20 karakter spasi 2. jika ada sebuah teks antara dua spasi berisi lebih dari 20 karakter, maka akan diporong per 20 karakternya. Wassalam, Kid. 2014-04-01 21:41 GMT+07:00 iJaL Rezpector rezpect...@yahoo.co.id: halo semua salam kenal, wah udah lumayan lama sih ngikutin milis dan alhamdullilah banyak membantu. sekarang saya kebetulan ada satu kasus yang belum nemu jawabanya, jadi kasusnya gini: ada sebuah kalimat dan saya mau memotong kalimat-kalimat tersebut menjadi hanya 20 karakter, tetapi saya tidak mau jika ada kata yang terpotong. dan jika ada kata yang terpotong maka kata tersebut tidak akan masuk. contohnya: -saya mau pergi ke pasar siang ini jika 20 karakter hasilnya akan: 0-saya mau pergi ke pa -sar siang ini yang saya mau jika ada kata yang terpotong maka katanya akan ikut kebawahnya menjadi: -saya mau pergi ke -pasar siang ini bagaimana ya? ini saya sertakan contoh excelnya. terimakasih, semoga pertanyaan saya tidak menyalahi aturan. salam re-TUGAS.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: [belajar-excel] Rumus Otomatis (Mengikuti cel Sebelahnya) [1 Attachment]
Hai Lazuardi, Pada Excel 2007 ke atas disediakan fitur Excel Table. Bagaimana kalau dicoba dengan menggunakan fitur tersebut. Andaikan data berupa nilai tanggal bertipe datetime, bagaimana jika juga memanfaatkan format cells. Jadi dimungkinkan juga agar inputan pada kolom tersebut sudah menampilkan nama harinya. Contohnya seperti file terlampir. Wassalam, Kid. 2014-04-02 16:32 GMT+07:00 Lazuardi Biru lazuardi_bir...@yahoo.com: dh salam be exceler selamat sore, begini master saya punya data di kolom B di isi manua, sedangkan di kolom A pakai formula. data di kolom B selalu berubah. maksud saya formula di kolom A selalu mengikuti data di kolom B. kira2 ada cara gak ya master. sudah coba pakai insert tables, kalau data di kolom B bertambah memang formula ikut bertambah, tapi kalau data di kolom B di hapus formula gak ikut hilang. untuk jelasnya file terlampir salam LB re-Rumus mengikuti data di cel sebelah.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: [belajar-excel] Fwd: autofill
Hai Eko, *** thread ini sudah 5 hari tak tercolek siapapun :( colek dikit ah... biar deg deg sir... lalu mau jalan-jalan lihat file yang ada disini https://app.box.com/s/h9fi41c427uccjtsy16p. Wassalam, Kid. 2014-03-28 15:00 GMT+07:00 Eko NS ekon...@gmail.com: maaf attach nya ketinggalan. -- Forwarded message -- From: Eko NS ekon...@gmail.com Date: 2014-03-28 14:50 GMT+07:00 Subject: autofill To: belajar-excel@yahoogroups.com permisi para mastah, ane mohon bisa dibagi ilmu supaya dropdown bisa mengenali karakter yang akan dientri a.k.a AUTOFILL. terima tengkyu para mastah.
Bls: [belajar-excel] Rumus Otomatis (Mengikuti cel Sebelahnya)
makasih pak kid saran nya.. tapi ada gak ya cara, mungkin pake makro.. jadi setiap kali kolom B ada perubahan data, makro berjalan mengkopi rumus atasnya,, jika kolom B di hapus makro menghapus rumus sebelahnya. tapi berhubung saya belum paham soal makro jadinya mentok.. salam lb Pada Rabu, 2 April 2014 16:56, Mr. Kid mr.nm...@gmail.com menulis: Hai Lazuardi, Pada Excel 2007 ke atas disediakan fitur Excel Table. Bagaimana kalau dicoba dengan menggunakan fitur tersebut. Andaikan data berupa nilai tanggal bertipe datetime, bagaimana jika juga memanfaatkan format cells. Jadi dimungkinkan juga agar inputan pada kolom tersebut sudah menampilkan nama harinya. Contohnya seperti file terlampir. Wassalam, Kid. 2014-04-02 16:32 GMT+07:00 Lazuardi Biru lazuardi_bir...@yahoo.com: dh salam be exceler selamat sore, begini master saya punya data di kolom B di isi manua, sedangkan di kolom A pakai formula. data di kolom B selalu berubah. maksud saya formula di kolom A selalu mengikuti data di kolom B. kira2 ada cara gak ya master. sudah coba pakai insert tables, kalau data di kolom B bertambah memang formula ikut bertambah, tapi kalau data di kolom B di hapus formula gak ikut hilang. untuk jelasnya file terlampir salam LB
Re: Re: [belajar-excel] INVENTARISASI DAN PEMETAAN POHON
Dear All, Saya hampir lupa mengucapkan terima kasih...sy ucapkan terima kasih atas semua sumbang saran dari para excelers.btw msh ada sdikit unek2 nih, terkait dengan koneksi data tabel tersebut dg pewarnaan nomor pada peta rekap dlm bentuk excel... jadi pembuatan petanya menggunakan excel yang disusun berdasarkan jalur dari tanaman/pohon yang ada dilapangan...nah yang saya inginkan adakah fungsi atau macro yang dapat mengkoneksikan antara data tabel dengan pewarnaan pada peta... contoh jika nomor pohon tersebut tanaman sulam maka dia berwarna merah bermotif garis (arsir miring). Mohon bantuannya, dan sebelumnya saya ucapkan terima kasih atas semua masukan yang telah diberikan On Friday, March 28, 2014 10:10 AM, zainul_ulum[at]yahoo[dot]com zainul_u...@yahoo.com wrote: Mas Ari, sdh lama saya tidak memakai ArcGis karena terlalu asik menggunakan excel. Seingat saya ada beberapa metode untuk connect excel ke arcgis: 1. menggunakan setting ODBC 2. Menggunakan setting OLE DB 3. Menggunakan Arc Catalog kalo ingin menampilkan peta di excel, silahkan berkunjung ke http://cadex.wordpress.com/2011/03/14/xls-map-006-menampilkan-hasil-koordina t-gps-di-chart-excel-dengan-image-dari-google-earth/ terimakasih -zainul- From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of ari05aug...@yahoo.com Sent: Friday, March 28, 2014 8:56 AM To: belajar-excel@yahoogroups.com Subject: Bls: Re: [belajar-excel] INVENTARISASI DAN PEMETAAN POHON Bentukan peta yang ingin kami tampilkan sebetulnya dalam bentuk file shpfile (program arcgis),apakah bisa dilink kan dr peta rekap excel tsb kedlm peta arcgis. tp utk smtr ini sy msh mgunakan bentuk excel (spt yg terlampir pd sheet peta rekap)..dmana dr data yg ada bisa langsung terkoneksi dg peta rekap tsb Powered by Telkomsel BlackBerry® From: Heri Pamungkas ( Gmail ) ghery.dha...@gmail.com Sender: belajar-excel@yahoogroups.com Date: Fri, 28 Mar 2014 08:45:28 +0700 To: belajar-excel@yahoogroups.com ReplyTo: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] INVENTARISASI DAN PEMETAAN POHON السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. Boleh tanya pak ?! untuk Report Peta yang diinginkan bentuknya seperti apa ?! وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards, On 28/03/2014 7:57, ari dwiputra wrote: Dear Excelers, Saya ingin menyampaikan uneg2 berkenaan dengan penggunanan excel ini. Dalam pekerjaan saya, ada kegiatan yang namanya inventarisasi pohon yaitu kegiatan mengukur ketinggian dan keliling dari pohon tersebut. dari data ini kemudian dirapikan dan dibuat semacam klasifikasi data. pertanyaan yang ingin saya ajukan adlah sebagai berikut: 1. Adakah formula atau fungsi yang dapat diterapkan dalam merapikan dan mengklasifikasikan data lapangan (file terlampir dengan nama sheet:data1 dan data 2) menjadi tabel rekapan (Sheet Tabel rekap) ? 2. Adakah cara memasukan data-data tersebut kedalam peta lapangan (sheet peta rekap) ? pembuatan peta kami lakukan secara manual disesuaikan dengan keberadaan pohon dan bentukan blok yang ada dilahan Mohon pencerahan dan masukan dari para Excelers = Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari. Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel). Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan. Link untuk menuangkan seluruh uneg-uneg tersebut ada di : http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecordtbl=3 = Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua. = - bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscr...@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-ow...@yahoogroups.com keluar dari membership milis (UnSubscribe): kirim mail kosong ke
[belajar-excel] Mohon bantuan rumusnya
Yth. Para Master Excel Mohon bantuannya untuk meringkas data base seperti dibawah ini : NO NAMA CARA PEMBAYARAN CABANG Bonus 1 Bonus 2 1 Andi BCA Jakarta 1,000,000 1,200,000 2 Budi BNI Bandung 1,500,000 1,400,000 3 Citra TUNAI Bandung 1,200,000 1,400,000 4 Dewi TUNAI Bandung 1,600,000 1,800,000 5 Edi BNI Bandung 1,700,000 1,900,000 6 Fandi BCA Jakarta 2,000,000 1,500,000 7 Gayatri BNI Jakarta 1,800,000 1,300,000 8 Hendro TUNAI Jakarta 1,500,000 1,200,000 9 Indah BCA Bandung 1,000,000 1,700,000 10 Joko TUNAI Jakarta 1,700,000 1,600,000 menjadi seperti di bawah ini : Bonus 1 Bonus 2 Jakarta TOTAL BONUS14,800,000 BCA 3,000,0002,700,000 BNI 1,800,0001,300,000 TUNAI 3,200,0002,800,000 Bandung TOTAL BONUS15,200,000 BCA 1,000,0001,700,000 BNI 3,200,0003,300,000 TUNAI 2,800,0003,200,000 Bagaiman caranya ? Antara data base dan hasilnya terletak di beda sheet, karena sebetulnya data basenya tidak sesederhana seperti tersebut di atas. Terimakasih saya ucapkan sebelum dan sesudahnya atas bantuan para master excel. -- Regards, Nunuk Yuliani Saptaningtyas http://www.enyees.com - Mods - Mohon tidak menyertakan link lain yang tidak berhubungan dengan pertanyaan ke milis
Bls: Bls: [belajar-excel] Rumus Otomatis (Mengikuti cel Sebelahnya)
pak hk.. iya pak... soalnya ingin saya implementasikan di file lainya juga.. yang datanya bukan hanya tanggal saja.. karena kalau rumus di isikan langsung di semua cell misal A2:A2000 proses kalkulasi agak lama. maksud saya rumus akan bertambah atau berkurang (dinamis) (jika memungkinkan) heheheehe...(karena bisanya makro baru rekam saja) jadi mohon pencerahanya. makasih sebelumnya. salam lb Pada Kamis, 3 April 2014 9:02, Hendrik Karnadi hendrikkarn...@yahoo.com menulis: Hai lb, Mustinya bisa. Namun kalau bisa tanpa macro mengapa harus pake macro? Salam, HK Sent from Samsung Mobile Lazuardi Biru lazuardi_bir...@yahoo.com wrote: makasih pak kid saran nya.. tapi ada gak ya cara, mungkin pake makro.. jadi setiap kali kolom B ada perubahan data, makro berjalan mengkopi rumus atasnya,, jika kolom B di hapus makro menghapus rumus sebelahnya. tapi berhubung saya belum paham soal makro jadinya mentok.. salam lb Pada Rabu, 2 April 2014 16:56, Mr. Kid mr.nm...@gmail.com menulis: Hai Lazuardi, Pada Excel 2007 ke atas disediakan fitur Excel Table. Bagaimana kalau dicoba dengan menggunakan fitur tersebut. Andaikan data berupa nilai tanggal bertipe datetime, bagaimana jika juga memanfaatkan format cells. Jadi dimungkinkan juga agar inputan pada kolom tersebut sudah menampilkan nama harinya. Contohnya seperti file terlampir. Wassalam, Kid. 2014-04-02 16:32 GMT+07:00 Lazuardi Biru lazuardi_bir...@yahoo.com: dh salam be exceler selamat sore, begini master saya punya data di kolom B di isi manua, sedangkan di kolom A pakai formula. data di kolom B selalu berubah. maksud saya formula di kolom A selalu mengikuti data di kolom B. kira2 ada cara gak ya master. sudah coba pakai insert tables, kalau data di kolom B bertambah memang formula ikut bertambah, tapi kalau data di kolom B di hapus formula gak ikut hilang. untuk jelasnya file terlampir salam LB
RE: [belajar-excel] Mohon bantuan rumusnya
Cara tercepat adalah dengan pivottable. Total bonus bisa ditambahkan pada sheet atau dengan calculated field pada pivottable. Salam, HK Sent from Samsung MobileNunuk Y Saptaningtyas eny...@gmail.com wrote:Yth. Para Master Excel Mohon bantuannya untuk meringkas data base seperti dibawah ini : NO NAMA CARA PEMBAYARAN CABANG Bonus 1 Bonus 2 1 Andi BCA Jakarta 1,000,000 1,200,000 2 Budi BNI Bandung 1,500,000 1,400,000 3 Citra TUNAI Bandung 1,200,000 1,400,000 4 Dewi TUNAI Bandung 1,600,000 1,800,000 5 EdiBNI Bandung 1,700,000 1,900,000 6 Fandi BCA Jakarta 2,000,000 1,500,000 7 GayatriBNI Jakarta 1,800,000 1,300,000 8 Hendro TUNAI Jakarta 1,500,000 1,200,000 9 Indah BCA Bandung 1,000,000 1,700,000 10 Joko TUNAI Jakarta 1,700,000 1,600,000 menjadi seperti di bawah ini : Bonus 1 Bonus 2 Jakarta TOTAL BONUS 14,800,000 BCA 3,000,000 2,700,000 BNI 1,800,000 1,300,000 TUNAI 3,200,000 2,800,000 Bandung TOTAL BONUS 15,200,000 BCA 1,000,000 1,700,000 BNI 3,200,000 3,300,000 TUNAI 2,800,000 3,200,000 Bagaiman caranya ? Antara data base dan hasilnya terletak di beda sheet, karena sebetulnya data basenya tidak sesederhana seperti tersebut di atas. Terimakasih saya ucapkan sebelum dan sesudahnya atas bantuan para master excel. -- Regards, Nunuk Yuliani Saptaningtyas - Mods - Mohon tidak menyertakan link lain yang tidak berhubungan dengan pertanyaan ke milis
Re: [belajar-excel] TextBox otomatis
Alhamdulillah berhasil juga.. Makasih Miss Jan Raisin From: Jan Raisin miss.jan.rai...@gmail.com To: belajar-excel@yahoogroups.com Sent: Wednesday, April 2, 2014 1:34 PM Subject: Re: [belajar-excel] TextBox otomatis Wa'alaikumsalam wr. wb., thread ini tidak ada yang menanggapi karena tidak ada contoh file yang dilampirkan, sehingga BeExceller yang ingin membantu jadi enggan karena harus kerja bakti dahulu membuat datanya. asumsi berdasarkan isi email anda di milis ini asumsi: txtbox1 = kode_barang txtbox2 = nama_barang txtbox3 = harga_barang database di sheet2 input di sheet1 berasal dari masing-masing txtbox seluruh textbox ada di sebuah userform yang diinginkan: txtbox1 diisi dengan kode, maka txtbox2 akan menampilkan nama_barang, txtbox3 akan menampilkan harga_barang persiapan hal-hal yang akan digunakan (disingkat P dengan point masing-masing): P1: deklarasikan sebuah variabel bertipe string untuk menyompan isi txtbox1 dim nama_variabel as string P2: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris akhir database dim nama_variabel as long P3: deklarasikan sebuah variabel bertipe range untuk menyimpan area database dim nama_variabel as range P4: deklarasikan sebuah variabel bertipe range untuk menyimpan hasil pencarian data dim nama_variabel as range P5: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris hasil pencarian jika data ditemukan dim nama_variabel as long solusi: buat sebuah event change pada txtbox1, tujuannya jika terjadi perubahan isi pada txtbox1 maka macro akan bekerja simpan nilai txtbox1 ke dalam variabel P1, nama_variabel = txtbox1.text cari nomer baris terakhir dari database dan simpan ke dalam variabel P2, nama_variabel = sheets(nama_sheet).range(nama_kolom rows.count).end(xlup).row set lokasi database dan simpan ke dalam variabel P3 set nama_variabel = sheets(nama_sheet).range( range_database ) set P4 untuk mencari nilai P1 di dalam P3 set nama_variabel = nama_variabel.find( nama_variabel , lookat:=xlwhole ) jika P1 tidak ditemukan dalam P3 maka keluar dari prosedur if nama_variabel is nothing then exit sub jika P1 ditemukan dalam P3 maka ambil nilai barisnya lalu simpan ke dalam variabel P5 else nama_variabel = nama_variabel.row jika nilai P5 sudah didapat, maka masukkan nama_barang ke txtbox2 dan harga_barang ke txtbox3 berdasarkan nomer baris P5 pada saat yang sama, anda dapat langsung mengisi sheet1 berdasarkan nomer baris yang sudah disimpan dalam variabel P5, atau menyalin isi masing-masing txtbox ke sheet1 logikanya adalah seperti di atas, silakan disesuaikan dengan kondisi real yang ada. semoga solusinya gak salah2 amat ^_^ Wassalam, -Miss Jan Raisin- Pada 28 Maret 2014 16.15, amas solihin amas...@yahoo.com menulis: Assalamu'alaikum semuanya. Para master mohon dibantu. Saya punya kasus misal saya isi TextBox1 dengan kode barang kemudian TextBox2 dan TextBox3 akan otomatis keluar nama beserta harga,Database misal di ambil di sheet2 sedangkan isian user form di isi di sheet1. Terimakasih sebelumnya. Wassalam.. - Momod - untuk memudahkan BeExceller menanggapi kasus anda silakan melampirkan sample workbook 250 KB dengan cara mereply email ini tidak perlu melampirkan data asli yang penting mewakili kasus yang anda tanyakan __
[belajar-excel] fungsi untuk membuat batas penyampaian
Saya ingin membuat batas penyampaian suatu berkas.,semisal Ada berkas yg masuk namun batas penyampaian berkas itu sudah melewati waktu penyampaian. Jadi, berkas itu masuk tgl 4 April 2013 pkl 10.15 padahal batas penyampaian berkas itu tgl 2 April 2013 pkl. 14.45 kira2 bentuk fungsinya bagaimana ya?! Terima kasih.
[belajar-excel] Mengaktifkan macro dengan mengganti cell tertentu
Kepada member Be Excell asalamualaikum warahmatullah Saya ingin menjalankan macro yang dipicu oleh perubahan sebuah cell tertentu, misalnya cell A1 berubah maka macro dijalankan. Bagaimanakah script VBA nya? saya menggunakan perintah: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Namun yang macro tersebut dijalankan jika terjadi perubahan pada seluruh cell pada whorksheet dimana script ditulis. bagaimana penulisann yang benar? atas perhatiannya disampaikan terima kasih Wasalamualaikumwarahmatullah. NangAgus
Re: [***SPAM*** Score/Req: 05.30/5.0] [belajar-excel] agar kurs USD dapat dikalkulasikan.
Pak ASL; Coba dirubah dulu tipe data dari cell yang mau dikalikan 100 mwnjadi numerik misal yg mau di kalikan ada di cell c6, maka =value(c6)*100 Wassalam ~ Bagus ~ - Original Message - From: Ahmad Syaifullah Lubis To: belajar-excel@yahoogroups.com Sent: Thursday, April 03, 2014 10:46 AM Subject: [***SPAM*** Score/Req: 05.30/5.0] [belajar-excel] agar kurs USD dapat dikalkulasikan. [1 Attachment] Dear BeExceller, saya ada ambil data dari http://www.bi.go.id/id/moneter/informasi-kurs/transaksi-bi/Default.aspx yaitu untuk mengambil kurs USD tahun 2013, bagaimana caranya agar data tsb bisa dipakai untuk kalkulasi transaksi yang ingin kita kurskan. terlampir file dimaksud. terima kasih, ASL
Re: [belajar-excel] Mengaktifkan macro dengan mengganti cell tertentu
Wa'alaikumsalam wr. wb., pak Agus, worksheet_selection_change adalah event yang bekerja jika cel yang diselect berubah posisinya, misalnya dari cel aktif A1 menjadi cel aktif A2 worksheet_change adalah event yang bekerja jika ada isi cel yang berubah isinya, misal isi cel A1 dari A menjadi 10 coba ganti selection change menjadi change Wassalam, -Miss Jan Raisin- Pada 3 April 2014 11.10, nangAgus nangag...@yahoo.co.id menulis: Kepada member Be Excell asalamualaikum warahmatullah Saya ingin menjalankan macro yang dipicu oleh perubahan sebuah cell tertentu, misalnya cell A1 berubah maka macro dijalankan. Bagaimanakah script VBA nya? saya menggunakan perintah: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Namun yang macro tersebut dijalankan jika terjadi perubahan pada seluruh cell pada whorksheet dimana script ditulis. bagaimana penulisann yang benar? atas perhatiannya disampaikan terima kasih Wasalamualaikumwarahmatullah. NangAgus
Re: [belajar-excel] Mengaktifkan macro dengan mengganti cell tertentu
Asalamualaikum warahmatullah Terima Kasih miss jan, sudah saya ganti menjadi: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address $A$1 Then Exit Sub dapat berjalan sesuai keinginnan, Namun saya kesulitan jika ungin macro dijalankan jika diubah di dua cell misaalnya A1 dan A2 bagaimana scriptnya? mau menggunakan or, sintaknya masih kesulitan. Terima kasih atas perhatiannya wasalamualaikumwarahmatullah NangAgus On 03/04/2014 11:17, Jan Raisin wrote: Wa'alaikumsalam wr. wb., pak Agus, worksheet_selection_change adalah event yang bekerja jika cel yang diselect berubah posisinya, misalnya dari cel aktif A1 menjadi cel aktif A2 worksheet_change adalah event yang bekerja jika ada isi cel yang berubah isinya, misal isi cel A1 dari A menjadi 10 coba ganti selection change menjadi change Wassalam, -Miss Jan Raisin- Pada 3 April 2014 11.10, nangAgus nangag...@yahoo.co.id mailto:nangag...@yahoo.co.id menulis: Kepada member Be Excell asalamualaikum warahmatullah Saya ingin menjalankan macro yang dipicu oleh perubahan sebuah cell tertentu, misalnya cell A1 berubah maka macro dijalankan. Bagaimanakah script VBA nya? saya menggunakan perintah: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Namun yang macro tersebut dijalankan jika terjadi perubahan pada seluruh cell pada whorksheet dimana script ditulis. bagaimana penulisann yang benar? atas perhatiannya disampaikan terima kasih Wasalamualaikumwarahmatullah. NangAgus
Re: [belajar-excel] Mengaktifkan macro dengan mengganti cell tertentu
Wa'alaikumsalam wr. wb., mungkin seperti ini: with target if .address = $a$1 or .address = $a$2 then ' script jika ada nilai berubah di cel A1 dan A2 else exit sub end if end with untuk 2 baris else dan exit sub bisa dihilangkan, sehingga script hanya menjadi with target if .address = $a$1 or .address = $a$2 then ' script jika ada nilai berubah di cel A1 atau A2 end if end with maaf, lagi gak bisa buka excel jadi script di atas cuma tebak2 buah manggis saja.. belum dites Wassalam, -Miss Jan Raisin- Pada 3 April 2014 11.36, nangAgus nangag...@yahoo.co.id menulis: Asalamualaikum warahmatullah Terima Kasih miss jan, sudah saya ganti menjadi: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address $A$1 Then Exit Sub dapat berjalan sesuai keinginnan, Namun saya kesulitan jika ungin macro dijalankan jika diubah di dua cell misaalnya A1 dan A2 bagaimana scriptnya? mau menggunakan or, sintaknya masih kesulitan. Terima kasih atas perhatiannya wasalamualaikumwarahmatullah NangAgus On 03/04/2014 11:17, Jan Raisin wrote: Wa'alaikumsalam wr. wb., pak Agus, worksheet_selection_change adalah event yang bekerja jika cel yang diselect berubah posisinya, misalnya dari cel aktif A1 menjadi cel aktif A2 worksheet_change adalah event yang bekerja jika ada isi cel yang berubah isinya, misal isi cel A1 dari A menjadi 10 coba ganti selection change menjadi change Wassalam, -Miss Jan Raisin- Pada 3 April 2014 11.10, nangAgus nangag...@yahoo.co.id menulis: Kepada member Be Excell asalamualaikum warahmatullah Saya ingin menjalankan macro yang dipicu oleh perubahan sebuah cell tertentu, misalnya cell A1 berubah maka macro dijalankan. Bagaimanakah script VBA nya? saya menggunakan perintah: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Namun yang macro tersebut dijalankan jika terjadi perubahan pada seluruh cell pada whorksheet dimana script ditulis. bagaimana penulisann yang benar? atas perhatiannya disampaikan terima kasih Wasalamualaikumwarahmatullah. NangAgus
Re: [belajar-excel] agar kurs USD dapat dikalkulasikan.
pak ASL, kalo boleh tau, regional komputer setempat apa ya? Indonesian apa English? jika Indonesian, maka: hapus semua tanda koma pada pemisah ribuan ganti tanda titik menjadi koma pada pemisah desimal caranya dengan menggunakan fitur Replace All yang bisa diakses dengan cara menekan CTRL H jika regional setempat adalah English, maka: ketik angka 1 di sembarang cel yang kosong copy cel yang berisi angka 1 tersebut blok seluruh area data yang berisi angka copas special, pilih Multiply OK semoga salah satu dari 2 cara di atas ada yang sesuai Wassalam, -Miss Jan Raisin- Pada 3 April 2014 10.46, Ahmad Syaifullah Lubis syaiful...@hotmail.commenulis: Dear BeExceller, saya ada ambil data dari http://www.bi.go.id/id/moneter/informasi-kurs/transaksi-bi/Default.aspx yaitu untuk mengambil kurs USD tahun 2013, bagaimana caranya agar data tsb bisa dipakai untuk kalkulasi transaksi yang ingin kita kurskan. terlampir file dimaksud. terima kasih, ASL http://www.bi.go.id/id/moneter/informasi-kurs/transaksi-bi/Default.aspx
Re: [belajar-excel] fungsi untuk membuat batas penyampaian
Yth Pak paulus. Mungkin dapat menggunakan formula IF, =IF(A141376,614583,OK,terlambar) (nilai 41376,614583 adalah tanggal 2 April 2013 pukul 14.45) salam Nangaaagus On 03/04/2014 11:00, Paulus Taripar wrote: Saya ingin membuat batas penyampaian suatu berkas.,semisal Ada berkas yg masuk namun batas penyampaian berkas itu sudah melewati waktu penyampaian. Jadi, berkas itu masuk tgl 4 April 2013 pkl 10.15 padahal batas penyampaian berkas itu tgl 2 April 2013 pkl. 14.45 kira2 bentuk fungsinya bagaimana ya?! Terima kasih.
Re: [belajar-excel] Mengaktifkan macro dengan mengganti cell tertentu
Asalamualaikum warahmatullah Terima kasih Miss Jan, script sudah sesuai keinginnan, hanya saja karena kebiasaaan saya yang jelek tidak bisa ditinggalkan (copy paste script) script miss jan di kompie saya gak jalan, namun dengan penulisan yang seperti itu membuat saya lebih mengerti syntak penulisan script. (harus mengetik ulang sesuai dengan syntak di VB) sekali lagi terima kasih sudah jalan sesuai harapan. On 03/04/2014 11:45, Jan Raisin wrote: Wa'alaikumsalam wr. wb., mungkin seperti ini: with target if .address = $a$1 or .address = $a$2 then ' script jika ada nilai berubah di cel A1 dan A2 else exit sub end if end with untuk 2 baris else dan exit sub bisa dihilangkan, sehingga script hanya menjadi with target if .address = $a$1 or .address = $a$2 then ' script jika ada nilai berubah di cel A1 atau A2 end if end with maaf, lagi gak bisa buka excel jadi script di atas cuma tebak2 buah manggis saja.. belum dites Wassalam, -Miss Jan Raisin- Pada 3 April 2014 11.36, nangAgus nangag...@yahoo.co.id mailto:nangag...@yahoo.co.id menulis: Asalamualaikum warahmatullah Terima Kasih miss jan, sudah saya ganti menjadi: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address $A$1 Then Exit Sub dapat berjalan sesuai keinginnan, Namun saya kesulitan jika ungin macro dijalankan jika diubah di dua cell misaalnya A1 dan A2 bagaimana scriptnya? mau menggunakan or, sintaknya masih kesulitan. Terima kasih atas perhatiannya wasalamualaikumwarahmatullah NangAgus On 03/04/2014 11:17, Jan Raisin wrote: Wa'alaikumsalam wr. wb., pak Agus, worksheet_selection_change adalah event yang bekerja jika cel yang diselect berubah posisinya, misalnya dari cel aktif A1 menjadi cel aktif A2 worksheet_change adalah event yang bekerja jika ada isi cel yang berubah isinya, misal isi cel A1 dari A menjadi 10 coba ganti selection change menjadi change Wassalam, -Miss Jan Raisin- Pada 3 April 2014 11.10, nangAgus nangag...@yahoo.co.id mailto:nangag...@yahoo.co.id menulis: Kepada member Be Excell asalamualaikum warahmatullah Saya ingin menjalankan macro yang dipicu oleh perubahan sebuah cell tertentu, misalnya cell A1 berubah maka macro dijalankan. Bagaimanakah script VBA nya? saya menggunakan perintah: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Namun yang macro tersebut dijalankan jika terjadi perubahan pada seluruh cell pada whorksheet dimana script ditulis. bagaimana penulisann yang benar? atas perhatiannya disampaikan terima kasih Wasalamualaikumwarahmatullah. NangAgus