MEMBUAT APLIKASI STOK BARANG SEDERHANA - PART 1 | EXCEL & VBA TUTORIAL

Kali ini saya ingin berbagi tentanag bagaimana cara membuat Aplikasi Stok Barang Sederhana menggunakan Vba Excel. Aplikasi ini digunakan untuk stok barang kantor , tetapi bisa dikembangkan menjadi stok barang gudang atau Toko. Video ini terdiri dari beberapa Part, Jadi yang mau belajar tutorialnya harap jangan bosan melihat videonya. Terimakasih !!!

Please Like, Comments, Share, and Subscribe. Thank You!!!

[andriwira]

Mas klo mau menghilangkan harga gmn misal tidak perlu harganya

[dibalikcerita_]

Kok punya saya value nya ga otomatis kluar stiap saya input titik. Contoh me.kodebarang.VALUE kok ga bs otomatis kluar ya ?

[fideshadutama]

Mas saya mau tanya untuk code new untuk kodebarang tidak keluar angka kode barang pada saat saya tulis code nya yg terakhir kata low tanda tutup kurung mohon pencerahannya terima kasih.

[kaarayox]

min saya erorr saat menit 15.45 di bagian formulas dan name manager bikin tabel barang selalu eror katanya nya formula salah

[ramadhanw]

knp Kok saya invalid character / Expression ya pas masukin Coding ADD .: If me.KodeBarang.Value = ""_ ada yang tau gak plisss

[bamshery]

Terimakasih atas tutorialnya, semoga menjadi amal jariyah yang diridhoi

[Barusut]

pagiii Bang
di excel saya ko ga bisa pake underscore ya....

Private Sub Add1_Click()
Dim DataBarang As Object
Set DataBarang =

If Me.Code1.Value = "" _
or me.Tgl1.Value = "" _
or me.Item1.Value = "" _
or me.Harga1.Value = "" _

data ini ga jalan debug terus itu kenapa ya? mohon pencerahannya suhu

[faishalabdurrasyid]

Bang mau tanya, di bagian set hapusdata saya muncul pesan variable not defined, itu mengatasinya gimana? Mohon bantuannua

[SM-tzhc]

Beautiful. Wonderful.
Dear Sir, how to summarize monthly data in year sheet

[ronnyyonda]

Maaf mau tanya saya kendala di hapus data.. kenal di Set HapusData = Sheet1.Range("A2:A50000").Find(What:=Me.KodeBarang.Value, LookIn:=x1Values.. debug bilang subscript out of range. Itu permasalahan dari mana ia mas

[erwinfebrianto]

Bang mau tanya. Nanti hasil aplikasinya bisa digunakan untuk hp ga ya ?

[rizalkomandan]

Hello mas Erwin, template & codingnga g ada ta. Hehehehe

[bagustrilaksono]

Min untuk koding yg hapus itu
Set hapusdata = sheet1.range("A3:A50000"). Find(what:= me.code.value, lookin := xlvalue) kok tidak bisa yaaa min atau ada koding tambahan ?

[.niakarmiladevi]

min, mau nanya sy sudah coba untuk koding di harga barangnya (untuk tanda koma) tapi di punya saya tidak muncul, jadi nominal yg muncul tetap tanpa koma. mohon bantuannya

[itsnikai]

Itu doeventa atau apa??? Tolong di jelaskan....terimakasih

[seruniandrasari]

Maf mau tanya, itu yg di sub baru, kata erwin maksud nya apa ya?

[ryanmilan]

Mantap gan Tutor nya.... nanya boleh ya gan di menit ke 10:25 untuk menu tambah D_Barang darimana? makasih sebelumnya

[danielmrvica]

Pak Erwin kenapa punya sy dibagian private sub tambah_Click :
If me.Kodebarang.Value = ""_
Or me.namabarang.value =""_
Jd Error. Mohon pencerahan

[Dailyminiku]

Mas saya mau bertanya kenapa di set hapusdata nya ngk mau di jalankan, sedangkan saya suda bikin sesuai dengan di video, mohon utk dibalas ya mas soalnya aplikasi nya saya jadikan utk Karya tulis akhir saya😭

[randiseptia]

Mau tanya untuk change bagian kolom stoknya kenapa ga bisa berubah ya? padahal saya sudah ikutin caranya