Terima kasih ilmunya mas.. Saya gabungkan sistem pencarian data dengan rumus yg sdh saya buat dari tutorial mas Erwin.. Hasilnya sudah bisa sekarang Tinggal menambahkan sheet yg lain...
Bang erwin.. request 1 lagi bang😁😁😁 gimana ya aktivin scrool mouse pada combobox atau listbox... sukses terus bang... VBA & EXCEL TUTORIAL ERWIN CHANEL memang chanel yang bermanfaat. Semoga ilmu2 yang abang bagikan menjadi amal ibadah abng... aamiin... bang.
Tutorialnya bagus dan bermanfaat bang erwin. Bagaimana jika datanya di kelompokkan berdasarkan RW dan RT yang datanya ribuan bang. Buatkan tutorialnya dong bang. Terima kasih sebelumnya bang erwin.
Gan..sy mau nanya.. Biasa ny mas.make utk sorot data ke baris bawah memakai rumus = offset; nama range;0;0; counta(nama range batas);3)... Nah kalo utk sorot data kesamping pake rumus ap.gan..?trims..
Mas erwin.. Mau nanya tentang beda nya kita masukan Coding di form sama di combobox atau toolbox yg lain.. Gk terlalu pham soalnya saya liat kbnyakan msukan coding di formnya sja.
Coding yg kita ketik, itu tidak semua di Formnya gan, Jdi mksudnya gni, Jika saya mau memasukkan coding untuk formnya , maka saya harus klik 2x pada userformnya, bukan pada objek yg ada di userform, sehingga akn muncul PrivateSub Userform Blablabla Isi perintah End Sub Tapi jika kita mngetik koding di objek dalam userform misalnya Combobix atau textbox, maka pasti kita klik 2x di objek tersebut, sehingga menghasilkn PrivateSub ComboBox_Change() Isi perintah End Sub Coding diatas memang berada di dalam userform, tetapi dia digunakan untk mngatur cara kerja Conboboxnya. Mudahan penjelasan saya bisa mmbantu.
@@EAProject maksih mas.. Ada pencerahan.. Brarti untuk userform itu bukan cuma sebagai tempat untuk tampilan toolbox saja ya. Tapi coding yg di userform terkoneksi pada object toolbox2 dalam userform itu.
Kebanyakan masalahnya di sintak pencariannya. Di Action :=xlbla bla bla =_ Yg pasti di daerah sini salahnya di bagian2 ini. Pencerahannya om terima ksih
Bang erwin.. Mohon pencerahan.. Hasil tombol cari kemarin sudah fix.. Namun saat saya edit datanya tidak terefresh di listbox nya itu knapa yak? Sedangkan jika kita edit berdasarkan combobox provinsi terefresh secara otomatis..
Bang bgm misal pencarian data pnduduk an. A di prov. Jawa Barat ditemukan dan akan disimpan di prov.lain (sheet lain) itu gmn codingnya ? sebab sy punya data ratusan sy cari, ketemu tapi tidak bisa disave di sheet lain. thanks sebelumnya bang.
Halo Mas Erwin, Sebelumnya terima kasih atas tutorialnya. Mas saya ada pertanyaan, Bagaimanakah cara menyembunyikan "HASIL CARI" sheet dari ComboBox ? Terima kasih Mas
kak, mau tanya.. membuat suatu aplikasi dengan VBA ini bisa di terapkan di MICROSOFT EXCEL 2008?? karena sudah saya coba hanya beberapa sub-sub yg berhasil di coba tapi tidak secara penuh /sudah jadi.. apakah bisa dibuat VBA dengan menggunakan Ms. Excel 2008?? terima kasih..
@@EAProject ketika saya membuat VBA di video ini, ada beberapa sub yg error / atau ga bisa di input data nya.. Sehingga VBA yg saya buat di Excel 2008 Gagal.. Bagaimana cara nya kak, apabila terjadi seperti itu? Apakah ada video tutorial nya, kak?
Error itu biasa terjadi di pembuatan aplikasi, Office 2019 pun akan terjadi error saat menjalankan app yg dibuat. Bukan karena versi Office, tapi memang ada kesalahan Coding yg diketik, Dan untuk memperbaikinya, tentunya harus memiliki pemahaman tentang vba mas, di video yg saya posting, kebanyakan udah saya kasi link download untuk coding yg saya buat, jadi tinggal download codingnya dan ikuti pembuatannya.
kak mau tanya, kalo misal kita pengen bikin sheet yang berisikan jumlah stok ketika stok kurang dari 10 maka secara otomatis masuk ke sheet pree order.. mohon bantuannya trimakasih
misalkan barang dengan kode A1, nama barang sabun, jumlah stok 5. otomatis tercopy di sheet pree order. jadi yang pindah di sheet pree order hanya stok barang yang kurang dari 10 aja yg pindah, yg lebih dari 10 masih stay di sheet stok :D
Bang Erwin.. Kl kita punda data di sheet ada 15 range tapi mau nampilkan di listbox hanya 5/beberapa saja apakah bisa? Gmn dong caranya...terimakasih sebelmnya..
Bisa aja mas, Banyak cara menampilkan data ke listbox dari Sheet, Jika hanya ingin menampilkan data beberapa kolom saja dari 15 kolom misalnya, tinggal Dibuatkan Name manager, 1. Masuk Name Manager di Menu Data pada Excel, Lalu klik Name Manager 2. Klik tombol New, beri Nama DATABASE misalnya dibagian Name 4. Di bagian Rowsource Blok Kolom atau range yg hanya mau ditampilkan, misalnya dari kolom A smpe kolom J, lalu Klik Ok untuk menyimpan 5 . Msuk vba lalu klik sekali listboxnya, cek di properties, cari column count, isi dengan 10, karena kita mau menampilkan dan 10 kolom 6. Cari Rowsource di bagian bawah pada properties, lalu ketik DATABASE yaitu nama name manager yg tadi dibuat. Lalu Enter
Halo Mas Erwin, Sebelumnya terima kasih atas tutorialnya. Mas saya ada pertanyaan, apakah form hasil excel bisa diisi orang lain secara online dari hp atau pc Terima kasih Mas
Bang erwin.. Saat cari data selalu tidak ditemukan, debugnya Cari_Data.Range, ("A1"). CurrentRegion. AdvancedFilter blablabla sampai unique:=false Mohon pencerahan
Coba tunjukkan coding yg debug mas, lengkap, soalnya jika debug diantara situ, biasanya : 1. Salah ketik perintah 2. Nama sheet ga sama 3. Nama Rumus name manager ga sama
@@EAProject maaf saya baru on lagi .. dengan akun ini berikut coding yang debug nya bang Cari_Data.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Sheet11.Range("H1:H2"), CopyToRange:=Sheet11.Range("A1:G1"), Unique:=False
Selamat malam mas Erwin Saya mau tanya... Saya copas file Excel utk dimasukan ke dalam file vba yg sdh jd dan ada rumusnya... Masalahnya ketika saya ingin mengedit data atau menghapus tp tidak bisa ...yg terjadi data yg di edit menimpa data yang paling bawah. ..mohon pencerahan mas atau ada cara lain ketika ingin copas file dan bisa di edit pada file vba hasil dari copas.
@@EAProject klo mau mengedit hasil copas gmn mas codingnya? Soalnya saya gunakan edit tp jadinya menimpa data yg paling bawah... Seperti tambah data baru...
Assalamualaikum gan, mau tanya.. Bagaimana caranya menghapus seluruh data berdasarkan kriterianya. misalkan : Hapus semua data berdasarkan Provinsi "JAWA TIMUR" Sekian pertanyaan dari saya, mohon maaf apabila ada tuturkata yang tidak sopan.
cari_data.Range("a6").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheet2.Range("m5:m6"), copytirange:=Sheet2.Range("a6:k6"), unique:=False ini koq muncul warna kuning kak salah dimana yah kak??
Mas Erwin knp utk coding script pencarian tidak bisa keluarkan namanya...semua sesuai dengan codingnya. Pas saya tes tidak bisa keluar nama yang saya cari berdasarkan kata kunci. Keluarnya " data tidak ditemukan ". Mohon penjelasan mas....
Untuk mengetahui bagian mana yg error, hapus terlebih dahulu coding On error Goto nya, lalu di coba cari lagi, nanti akan terjadi debug, nah dari debug itulah nanti ketahuan mana yg salah codingnya, ditunjukkan dengan blok warna kuning di bagian yg error, itu yg harus diperbaiki.
@@EAProject coding yg salah: Setelah sheet2. Range("T8").value = me.katakunci.value. "Cari_data .......dansterusnya salah warna kuning. Gmn mas perbaikannya
mas kode dibawah tak menjadi, ada error : Cari_Data.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Sheet11.Range("I1:I2"), CopyToRange:=Sheet11.Range("A1:G1"), Unique:=False Mana yang silap?
mas erwin, untuk menghilangkan sheet Hasil cari agar tidak masuk ke combobox pilih provinsi gimana caranya ya? tolong bantuan nya mas, saya udah nyari kesana kesini gak nemu juga. makasih mas, semoga ilmu nya bermanfaat. Aamiin
Sub BERSIHKAN() Dim Kosong For Each Kosong In Me.Controls If TypeOf Kosong Is msforms.TextBox Then Kosong .Text = "" End If Next Kosong Me.TextBox1.SetFocus End Sub Tinggal call aja.. Coba Om.
bang Erwin bagaimana caranya memasukan perintah ubah data atau tambah data pada satu useform supaya hasilnya masuk ke useform yg lainnya...terima kasih bang
Ini udah sering saya aplikasikan ketika saya buat video aplikasi mas, contohnya di Video Aplikasi data siswa dan guru, disitu hasil inputan masuk ke form yg berbeda dengan form inputnya
@@EAProject bang..maaf nanya lg..saya udah berhasil memasukan perintah ubah pada useform yg berbeda namun kenapa ya hasilnya selalu masuk ke sheet1 terus padahal pilihan target sheet active sudah saya beda bedakan..
OMM ERWIN..MOHON SOLUSI NYA DONK pleasee..ERROR WARNA MERAH DI Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_ pakai spasi malah merah juga yang perintah Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False
Jika text code warna merah, berrti jelas ada kesalahan pengetikan, contoh di bagian : CriteriaRange:= _ (Harus ada spasi setelah Tanda =) baru kasi Garis bawah atau Underscore
Private Sub CARI_Click() On Error GoTo Erwin PilihSheet = Me.PROV.Value Worksheets(PilihSheet).Activate Set Cari_Data = ActiveSheet Sheet2.Range("I1").Value = Me.BERDASARKAN.Value Sheet2.Range("I2").Value = Me.KATAKUNCI.Value Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_ (yg ini menjadi error dan berwarna merrah,salah dimana y om ) Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False Me.TABELPENDUDUK.RowSource = Sheet2.Range("HasilCari").Address(extenrnal:=True) Exit Sub Salah: Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data") End Sub
Bang... boleh minta file nya pencarian data seperti di video ini,soalnya saya tidak bisa untuk membuat nya. Mohon di kirim via email ini: a17mmuranting@gmail.com Atau: khoironcobansari@gmail.com Terimakasih
Private Sub CARI_Click() On Error GoTo Erwin PilihSheet = Me.PROV.Value Worksheets(PilihSheet).Activate Set Cari_Data = ActiveSheet Sheet2.Range("I1").Value = Me.BERDASARKAN.Value Sheet2.Range("I2").Value = Me.KATAKUNCI.Value Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_ (yg ini menjadi error dan berwarna merrah,salah dimana y om ) Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False Me.TABELPENDUDUK.RowSource = Sheet2.Range("HasilCari").Address(extenrnal:=True) Exit Sub Salah: Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data") End Sub
Private Sub CARI_Click() On Error GoTo Erwin PilihSheet = Me.PROV.Value Worksheets(PilihSheet).Activate Set Cari_Data = ActiveSheet Sheet2.Range("I1").Value = Me.BERDASARKAN.Value Sheet2.Range("I2").Value = Me.KATAKUNCI.Value Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_ (yg ini menjadi error dan berwarna merrah,salah dimana y om ) Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False Me.TABELPENDUDUK.RowSource = Sheet2.Range("HasilCari").Address(extenrnal:=True) Exit Sub Salah: Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data") End Sub
Terima kasih ilmunya mas..
Saya gabungkan sistem pencarian data dengan rumus yg sdh saya buat dari tutorial mas Erwin..
Hasilnya sudah bisa sekarang
Tinggal menambahkan sheet yg lain...
Bang erwin.. request 1 lagi bang😁😁😁 gimana ya aktivin scrool mouse pada combobox atau listbox... sukses terus bang... VBA & EXCEL TUTORIAL ERWIN CHANEL memang chanel yang bermanfaat. Semoga ilmu2 yang abang bagikan menjadi amal ibadah abng... aamiin... bang.
Manteb mas...sukses n semangat trus...
Bang request dong, mencari multiple di listbox kemudian di filter sesuai yg di inginkan.. terima kasih
Tutorialnya bagus dan bermanfaat bang erwin. Bagaimana jika datanya di kelompokkan berdasarkan RW dan RT yang datanya ribuan bang. Buatkan tutorialnya dong bang. Terima kasih sebelumnya bang erwin.
Sangat Bagus. Bikin Group Telegram Mas, Supaya Bisa belajar sama2. Sukses dah untuk Chanelnya.
Mantap..trimakasih master👍👍👍
Hadiiiirr bang... makasih..😁😁😁
bagaimana caranya membuat sistem pencarian data berdasarkan rentang tanggal dari banyak sheet
Mas Erwin, ini sudah bagus bgt. tapi ada gak caranya utk ekspor atau import data ke file di beda sheet. lumayan juga kalo ngetik satu satu.
Cek dsini
th-cam.com/video/thsKlH3TE4Q/w-d-xo.html
Mas bisa buat vba untuk pelanggaran siswa sistem poin gak
Mas kok d tabel pencariannya selalu ada pesan data tidak di temukan apakah ada code atau rumus yg terlewat, padaha sdh kita ikuri titorialnya
Gan..sy mau nanya..
Biasa ny mas.make utk sorot data ke baris bawah memakai rumus = offset; nama range;0;0; counta(nama range batas);3)...
Nah kalo utk sorot data kesamping pake rumus ap.gan..?trims..
Mas erwin.. Mau nanya tentang beda nya kita masukan Coding di form sama di combobox atau toolbox yg lain.. Gk terlalu pham soalnya saya liat kbnyakan msukan coding di formnya sja.
Coding yg kita ketik, itu tidak semua di Formnya gan, Jdi mksudnya gni, Jika saya mau memasukkan coding untuk formnya , maka saya harus klik 2x pada userformnya, bukan pada objek yg ada di userform, sehingga akn muncul
PrivateSub Userform Blablabla
Isi perintah
End Sub
Tapi jika kita mngetik koding di objek dalam userform misalnya Combobix atau textbox, maka pasti kita klik 2x di objek tersebut, sehingga menghasilkn PrivateSub ComboBox_Change()
Isi perintah
End Sub
Coding diatas memang berada di dalam userform, tetapi dia digunakan untk mngatur cara kerja Conboboxnya. Mudahan penjelasan saya bisa mmbantu.
@@EAProject maksih mas.. Ada pencerahan.. Brarti untuk userform itu bukan cuma sebagai tempat untuk tampilan toolbox saja ya. Tapi coding yg di userform terkoneksi pada object toolbox2 dalam userform itu.
Bang.....bagaimana untuk pilihan beberapa sheet saja (karena udah dicoba tapi semua sheet yang ada tampil di ComboBoxnya) terima kasih......
mas saya mau nanya?? coding untuk masuk ke worksheet gmna ya??? kalau seandainya buka file excel langsung masuk ke form
Buat tombol di userfom, lalu ketik coding :
Application.Visible = True
Unload Me
@@EAProject TERIMAKASIH GAN MANTAP BOLEH MINTA NO WA NYA KAH?????
@@lyhealth2020 0811-5233-311
Kebanyakan masalahnya di sintak pencariannya. Di Action :=xlbla bla bla =_
Yg pasti di daerah sini salahnya di bagian2 ini. Pencerahannya om terima ksih
Mantaaap gan..
Bang erwin.. Mohon pencerahan..
Hasil tombol cari kemarin sudah fix.. Namun saat saya edit datanya tidak terefresh di listbox nya itu knapa yak?
Sedangkan jika kita edit berdasarkan combobox provinsi terefresh secara otomatis..
Bang bgm misal pencarian data pnduduk an. A di prov. Jawa Barat ditemukan dan akan disimpan di prov.lain (sheet lain) itu gmn codingnya ? sebab sy punya data ratusan sy cari, ketemu tapi tidak bisa disave di sheet lain. thanks sebelumnya bang.
Halo Mas Erwin, Sebelumnya terima kasih atas tutorialnya.
Mas saya ada pertanyaan, Bagaimanakah cara menyembunyikan "HASIL CARI" sheet dari ComboBox ?
Terima kasih Mas
kak, mau tanya..
membuat suatu aplikasi dengan VBA ini bisa di terapkan di MICROSOFT EXCEL 2008??
karena sudah saya coba hanya beberapa sub-sub yg berhasil di coba tapi tidak secara penuh /sudah jadi..
apakah bisa dibuat VBA dengan menggunakan Ms. Excel 2008??
terima kasih..
Vba bisa dibuat dari Office 2003 hingga Office keluaran terbaru gan.
@@EAProject ketika saya membuat VBA di video ini, ada beberapa sub yg error / atau ga bisa di input data nya..
Sehingga VBA yg saya buat di Excel 2008 Gagal..
Bagaimana cara nya kak, apabila terjadi seperti itu?
Apakah ada video tutorial nya, kak?
Error itu biasa terjadi di pembuatan aplikasi, Office 2019 pun akan terjadi error saat menjalankan app yg dibuat. Bukan karena versi Office, tapi memang ada kesalahan Coding yg diketik, Dan untuk memperbaikinya, tentunya harus memiliki pemahaman tentang vba mas, di video yg saya posting, kebanyakan udah saya kasi link download untuk coding yg saya buat, jadi tinggal download codingnya dan ikuti pembuatannya.
Mas Erwin, dengan cara seperti itu apakah hasil searching nya bisa di doubleclick dan muncul valuenya di form bagian atas?
Bisa mas, disitu udah saya praktik kan
kak mau tanya, kalo misal kita pengen bikin sheet yang berisikan jumlah stok ketika stok kurang dari 10 maka secara otomatis masuk ke sheet pree order.. mohon bantuannya trimakasih
Masuk ke sheet Pre Order itu dia Pindah atau TerCopy ke Pre Order?
@@EAProject pindah secara otomatis kak, gimana tuh caranya
misalkan barang dengan kode A1, nama barang sabun, jumlah stok 5. otomatis tercopy di sheet pree order. jadi yang pindah di sheet pree order hanya stok barang yang kurang dari 10 aja yg pindah, yg lebih dari 10 masih stay di sheet stok :D
@@arofatunnurainiah2146 berrti jika pindah, di sheet awal dia hilang ya, karena pindah ke sheet pre order?
@@EAProject tidak hilang ka, tetep ada di sheet stok, brrti tercopy ya..??
Bang Erwin.. Kl kita punda data di sheet ada 15 range tapi mau nampilkan di listbox hanya 5/beberapa saja apakah bisa? Gmn dong caranya...terimakasih sebelmnya..
Bisa aja mas, Banyak cara menampilkan data ke listbox dari Sheet, Jika hanya ingin menampilkan data beberapa kolom saja dari 15 kolom misalnya, tinggal Dibuatkan Name manager,
1. Masuk Name Manager di Menu Data pada Excel, Lalu klik Name Manager
2. Klik tombol New, beri Nama DATABASE misalnya dibagian Name
4. Di bagian Rowsource Blok Kolom atau range yg hanya mau ditampilkan, misalnya dari kolom A smpe kolom J, lalu Klik Ok untuk menyimpan
5 . Msuk vba lalu klik sekali listboxnya, cek di properties, cari column count, isi dengan 10, karena kita mau menampilkan dan 10 kolom
6. Cari Rowsource di bagian bawah pada properties, lalu ketik DATABASE yaitu nama name manager yg tadi dibuat. Lalu Enter
@@EAProject makasih bang...
mas, error: object required bugsnya di Cari_Data.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet821.Range("AP1:AP2"), CopyToRange:=Sheet1.Range("A1:AN1"), Unique:=False
kenapa ya?
Sama errornya disitu, udah ketemu blm om. Kasih tau y 😂 klw udah
cek isi range nya mas, kali aja isinya beda
@@riansutarsa660 ok terima kasih bank infonya
Gan, rumus cara add data di sheet yang di pilih saya coba kok error trus ya, mhon pencerahannya
Halo Mas Erwin, Sebelumnya terima kasih atas tutorialnya.
Mas saya ada pertanyaan, apakah form hasil excel bisa diisi orang lain secara online dari hp atau pc
Terima kasih Mas
Ini buatnya pake VBA Excel, di Hp ga bisa baca kode program VBA Excel, jadi hanya bisa dijalankan di PC, dia Offline dan single user
Mas Erwin, di final saat pencarian gagal terus 😭
Bang erwin.. Saat cari data selalu tidak ditemukan, debugnya Cari_Data.Range, ("A1"). CurrentRegion. AdvancedFilter blablabla sampai unique:=false
Mohon pencerahan
Coba tunjukkan coding yg debug mas, lengkap, soalnya jika debug diantara situ, biasanya :
1. Salah ketik perintah
2. Nama sheet ga sama
3. Nama Rumus name manager ga sama
@@EAProject maaf saya baru on lagi .. dengan akun ini
berikut coding yang debug nya bang
Cari_Data.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet11.Range("H1:H2"), CopyToRange:=Sheet11.Range("A1:G1"), Unique:=False
mas kenapa ya di salahsatu sheet engga bisa di cari? padahal data ada
bang apakah aplikasi tersebut bisa diterapkan di google spreadseeds?
Selamat malam mas Erwin
Saya mau tanya...
Saya copas file Excel utk dimasukan ke dalam file vba yg sdh jd dan ada rumusnya...
Masalahnya ketika saya ingin mengedit data atau menghapus tp tidak bisa ...yg terjadi data yg di edit menimpa data yang paling bawah.
..mohon pencerahan mas atau ada cara lain ketika ingin copas file dan bisa di edit pada file vba hasil dari copas.
Kalo mau menghapus data coding yg saya gunakan dia pake offset, untuk offsetnya sendiri dia pake yg 0,0 lalu 0,1 lalu 0,2 dst,
@@EAProject klo mau mengedit hasil copas gmn mas codingnya?
Soalnya saya gunakan edit tp jadinya menimpa data yg paling bawah...
Seperti tambah data baru...
Mas Erwin, coding untuk tombol edit dengan multi kriteria bagaimana ya ?
Maksudnya edit multi kriteria bagaimana Gan?
ini kenapa data hilang semua pas di cari ?
Assalamualaikum gan, mau tanya..
Bagaimana caranya menghapus seluruh data berdasarkan kriterianya. misalkan :
Hapus semua data berdasarkan Provinsi "JAWA TIMUR"
Sekian pertanyaan dari saya, mohon maaf apabila ada tuturkata yang tidak sopan.
Mas erwin sudah dilakukan step by stepnya, pas di coba "maaf data tidak ditemukan" Padahal sdh saya cek dr coding, sampai data yg mau saya cr
Bagaimana mencari data tanpa ListBox, terima kasih Bang......
cari_data.Range("a6").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheet2.Range("m5:m6"), copytirange:=Sheet2.Range("a6:k6"), unique:=False
ini koq muncul warna kuning kak
salah dimana yah kak??
Copytirange diganti Jadi COPYTORANGE
Ow ini toh jawabannya thanks shifu.. Semoga bermanfaat 😊
Mas Erwin knp utk coding script pencarian tidak bisa keluarkan namanya...semua sesuai dengan codingnya.
Pas saya tes tidak bisa keluar nama yang saya cari berdasarkan kata kunci.
Keluarnya " data tidak ditemukan ".
Mohon penjelasan mas....
Untuk mengetahui bagian mana yg error, hapus terlebih dahulu coding On error Goto nya, lalu di coba cari lagi, nanti akan terjadi debug, nah dari debug itulah nanti ketahuan mana yg salah codingnya, ditunjukkan dengan blok warna kuning di bagian yg error, itu yg harus diperbaiki.
@@EAProject ok mas bsk saya coba lagi
@@EAProject ada no WA gak mas...klo bsk saya coba perbaiki bisa langsung tanya🙏🙏
@@EAProject coding yg salah:
Setelah
sheet2. Range("T8").value = me.katakunci.value.
"Cari_data .......dansterusnya salah warna kuning.
Gmn mas perbaikannya
Pesan errornya apa gan, pesan error yg muncul di Kotak debug
mas kode dibawah tak menjadi, ada error :
Cari_Data.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet11.Range("I1:I2"), CopyToRange:=Sheet11.Range("A1:G1"), Unique:=False
Mana yang silap?
mas dah ok saya copy kode dari file lain
@@ns144010 dapat dari mana om...saya masih error nih
Bang Erwin, bisa user form di buat saya dikirim untuk diperbaiki? Mohon emailnya
mas erwin, untuk menghilangkan sheet Hasil cari agar tidak masuk ke combobox pilih provinsi gimana caranya ya? tolong bantuan nya mas, saya udah nyari kesana kesini gak nemu juga. makasih mas, semoga ilmu nya bermanfaat. Aamiin
Sub BERSIHKAN()
Dim Kosong
For Each Kosong
In Me.Controls
If TypeOf Kosong
Is msforms.TextBox Then
Kosong
.Text = ""
End If
Next Kosong
Me.TextBox1.SetFocus
End Sub
Tinggal call aja..
Coba Om.
bang Erwin bagaimana caranya memasukan perintah ubah data atau tambah data pada satu useform supaya hasilnya masuk ke useform yg lainnya...terima kasih bang
Ini udah sering saya aplikasikan ketika saya buat video aplikasi mas, contohnya di Video Aplikasi data siswa dan guru, disitu hasil inputan masuk ke form yg berbeda dengan form inputnya
@@EAProject siap bang ..nanti saya tonton videonya...maklum newbie nih bsng
@@EAProject bang..maaf nanya lg..saya udah berhasil memasukan perintah ubah pada useform yg berbeda namun kenapa ya hasilnya selalu masuk ke sheet1 terus padahal pilihan target sheet active sudah saya beda bedakan..
Bang, dulu kursusnya dimana bang?
Saya otodidak gan
untuk criteria nya belum dibuatkan
Cari_Data.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy,CriteriaRange:=_
belum dijelaskan
OMM ERWIN..MOHON SOLUSI NYA DONK pleasee..ERROR WARNA MERAH DI Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_
pakai spasi malah merah juga yang perintah Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False
Jika text code warna merah, berrti jelas ada kesalahan pengetikan, contoh di bagian :
CriteriaRange:= _
(Harus ada spasi setelah Tanda =) baru kasi Garis bawah atau Underscore
@@EAProject Selamat siang mas,, saya masih belum menemukan solusi ini mas,... tetap eror dia ,mas erwin
mohon bantuannya.
@@EAProject Yup memang disana sering lupa beri spasi .... thank's mas Erwin
minta file xlsm nya bang
Pak Erwin bolehkah dishare utk File latihannya..?? Klo boleh diemail ke dmrvica9@gmail.com
Terima kasih banyak
Private Sub CARI_Click()
On Error GoTo Erwin
PilihSheet = Me.PROV.Value
Worksheets(PilihSheet).Activate
Set Cari_Data = ActiveSheet
Sheet2.Range("I1").Value = Me.BERDASARKAN.Value
Sheet2.Range("I2").Value = Me.KATAKUNCI.Value
Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_ (yg ini menjadi error dan berwarna merrah,salah dimana y om )
Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False
Me.TABELPENDUDUK.RowSource = Sheet2.Range("HasilCari").Address(extenrnal:=True)
Exit Sub
Salah:
Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")
End Sub
kak boleh minta dikirim gak filenya ke shendy.santicaa@gmail.com makasih
Bang boleh minta file coding untuk membuat yg seperti di vidio, makasih
fikri.thegates@gmail.com
Bang... boleh minta file nya pencarian data seperti di video ini,soalnya saya tidak bisa untuk membuat nya. Mohon di kirim via email ini: a17mmuranting@gmail.com
Atau: khoironcobansari@gmail.com
Terimakasih
minat bang filenya rizkyrafael1@gmail.com
👍👍👍
Private Sub CARI_Click()
On Error GoTo Erwin
PilihSheet = Me.PROV.Value
Worksheets(PilihSheet).Activate
Set Cari_Data = ActiveSheet
Sheet2.Range("I1").Value = Me.BERDASARKAN.Value
Sheet2.Range("I2").Value = Me.KATAKUNCI.Value
Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_ (yg ini menjadi error dan berwarna merrah,salah dimana y om )
Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False
Me.TABELPENDUDUK.RowSource = Sheet2.Range("HasilCari").Address(extenrnal:=True)
Exit Sub
Salah:
Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")
End Sub
Di bagian CriteriaRange:= _
Harus ada spasi setelah Tanda =
Sudah dicoba gun masih juga salah.
Malah menjadi merah 2 yh dibawah juga merah
Private Sub CARI_Click()
On Error GoTo Erwin
PilihSheet = Me.PROV.Value
Worksheets(PilihSheet).Activate
Set Cari_Data = ActiveSheet
Sheet2.Range("I1").Value = Me.BERDASARKAN.Value
Sheet2.Range("I2").Value = Me.KATAKUNCI.Value
Cari_Data.Range("A1").CurrentRegion.AdvancedFillter Action:=xlFilterCopy, CriteriaRange:=_ (yg ini menjadi error dan berwarna merrah,salah dimana y om )
Sheet2.Range ("I1:I2"), CopyToRange:=Sheet2.Range("A1:G1"), Unique:=False
Me.TABELPENDUDUK.RowSource = Sheet2.Range("HasilCari").Address(extenrnal:=True)
Exit Sub
Salah:
Call MsgBox("Maaf Data tidak ditemukan", vbInformation, "Cari Data")
End Sub