Latest Post

Apartemen Kos-Kosan Lokasi Strategis, Potensi Passive Income Dari Mahasiswa IPB

Assalamualaikum,

Sudah lama saya ga aktif nulis lagi di blog ini. hal ini dikarenakan banyak urusan di dunia real yang harus saya lakukan.

Bukan apa-apa mengingat faktor usia pun sekarang sangat mempengaruhi.... hehehe.
Dulu ketika saya mulai aktif menulis diblog ini karena dulu saya masih Jomblo hahaha sehingga banyak waktu yang saya manfaatkan untuk menulis diblog ini, apalagi kata orang-orang daripada melakukan hal-hal yang tidak bertanggung jawab lebih baik melakukan hal-hal yang bisa bermanfaat untuk orang banyak.... hehe itulah pemikiran saya waktu itu (saat kuliah).

Tetapi sekarang situasi sudah berubah, sekarang saya sudah tidak jomblo lagi hehe. Sekarang saya sudah berkeluarga dimana baru mempunyai 1 istri satu ( ya iyalah baru 1 emangnya mau nambah jadi 2 ... haha) juga punya anak laki-laki baru 1 juga. Wah maaf disini maksudnya bukan saya mau cerita tentang keluarga saya tetapi lebih ingin cerita dan menjelaskan kenapa saya lama tidak aktif lagi menulis diblog ini. Semua karena kehidupan yang berubah itulah maka saya pun jarang lagi menulis diblog ini.

Namun pada kesempatan kali ini saya coba untuk meluangkan waktu sekaligus ingin memanfaatkan kembali blog ini khususnya untuk sarana bagian dari promosi saya hehehe. maaf ya maklum faktor usia dan kebutuhan rumah tangga membuat saya sudah berpikir hal-hal yang sifatnya investasi, sehingga mungkin ditulisan-tulisan saya nanti nya mungkin akan lebih banyak membahas hal-hal yang berkaitan dengan investasi baik mulai dari trading forex, saham, sukuk, obligasi, reksadana, emas bahkan properti.

Nah kebetulan kali ini saya sedang berjalan bisnis properti maka sudah selayaknya pembahasan tentang properti lah yang pertama akan saya bahas dan promosikan disini.

Memiliki investasi yang menghasilkan passive income merupakan cara cerdas dalam mengatur keuangan dan masa depan keluarga Anda Memiliki passive income dari hasil investasi dengan modal terjangkau adalah impian banyak orang. Mungkin termasuk juga anda.

Salah satu investasi yang dapat mendatangkan passive income dengan hasil yang cenderung naik setiap tahun adalah investasi dalam bentuk property, yaitu tanah/kavling dan bangunan (rumah, apartment, kontrakan, kos-kosan)

Pernahkah anda terpikir untuk memiliki investasi kos-kosan yang dekat dengan sebuah
kampus besar dengan ribuan mahasiswa baru setiap tahunnya?
Ataukah anda berpikir akan sangat merepotkan mengurus sebuah rumah kos-kosan?

Tahukah anda berapa harga sebuah property di tengah kota Bogor dengan lokasi yang
sangat strategis?
Ataukah anda sedang menunggu kesempatan untuk membeli sebuah property dengan
harga terjangkau?

Apabila memiliki passive income untuk masa depan adalah impian anda, bisa jadi inilah saat yang anda nantikan selama ini.

Promo pertama saya adalah Apartemen Kos-Kosan Syariah yaitu DeKost Indonesia berlokasi di Bogor, lebih tepatnya  di Cilubang Raya, Kel. Balumbang Jaya, Bogor Barat, Kota Bogor, Jawa Barat.


DeKost Indonesia adalah Sebuah Apartemen yang dirancang khusus untuk kos-kosan. Yang hadir dengan Program² unggulan bagi para penghuninya. Berada di kawasan Perguruan Tinggi ternama Institut Pertanian Bogor dengan jumlah mahasiswa yang mencapai 3.400 mahasiswa lebih tiap tahunnya sehingga potensial untuk investasi Anda.

Lokasi sangat strategis dan berada dipusat komersil Bogor
  • 15 Menit Ke Sarana Komersil
  • 10 Menit Ke Rumah Sakit
  • 10 Menit Ke Supermaket
  • 8 Menit Ke Kampus IPB
  • 20 Menit Ke Tol Borr
  • 30 Menit Ke Stasiun Bogor

 Jika Anda tertarik untuk cepat KAYA DENGAN MENJADI JURAGAN KOS-KOSAN silahkan untuk informasi detailnya lihat pada official webnya atau klik link ini DeKost Indonesia
 

Kode Aktivasi Excel Gantt Chart Untuk Menjadwalkan Project

Terima kasih saya ucapkan kepada Anda yang telah mendownload dan menggunakan aplikasi Excel Gantt Chart Untuk Menjadwalkan Project ini.




Pada file yang telah Anda download sebelumnya adalah versi trial 30 hari dengan penambahan sheet sponsor yang artinya file tersebut hanya dapat Anda gunakan dalam waktu yang terbatas yaitu 30 hari setelah lebih dari 30 hari file tersebut tidak dapat Anda gunakan lagi. 

Sedangkan untuk menggunakannya lebih lama maka Anda harus memasukkan kode Aktivasi nya. Sehingga file Excel Gantt Chart untuk menjadwalkan project ini dapat Anda gunakan selamanya. 


Untuk mendapatkan kode aktivasinya Anda cukup berdonasi sebesar Rp. 50.000 ke rekening saya dibawah ini:

No. Rekening BCA            : 7410483321
Atas Nama                         : Iyan Supriyadi

Setelah itu konfirmasikan pembayaran donasi Anda melalui form di link ini :

Kemudian tunggu untuk kami cek dan proses lebih lanjut, jika konfirmasi pembayaran Anda berhasil maka kami akan mengirimkan kode Aktivasi ke alamat email yang sudah Anda kirimkan ataupun melalui WhatsApp ke no. telp yang sudah Anda masukkan. 

Terima Kasih
 

Kode Aktivasi Aplikasi Production Schedule

Terima kasih saya ucapkan kepada Anda yang telah mendownload dan menggunakan aplikasi untuk menyusun jadwal produksi ini.


Pada file yang telah Anda download sebelumnya adalah versi trial 30 hari dengan penambahan sheet sponsor yang artinya file tersebut hanya dapat Anda gunakan dalam waktu yang terbatas yaitu 30 hari setelah lebih dari 30 hari file tersebut tidak dapat Anda gunakan lagi. 

Sedangkan untuk menggunakannya lebih lama maka Anda harus memasukkan kode Aktivasi nya. Sehingga file Excel untuk menyusun Jadwal Produksi ini dapat Anda gunakan selamanya. 


Untuk mendapatkan kode aktivasinya Anda cukup berdonasi sebesar Rp. 50.000 ke rekening saya dibawah ini:

No. Rekening BCA            : 7410483321
Atas Nama                         : Iyan Supriyadi

Setelah itu konfirmasikan pembayaran donasi Anda melalui form di link ini :

Kemudian tunggu untuk kami cek dan proses lebih lanjut, jika konfirmasi pembayaran Anda berhasil maka kami akan mengirimkan kode Aktivasi ke alamat email yang sudah Anda kirimkan melalui form konfirmasi. 
 

Cara Mencegah Duplikasi Entri Dalam Range Data Excel Dengan Data Validation

Pada artikel ini, kita akan belajar bagaimana mencegah duplikasi entri dalam sebuah range data Excel dengan Validasi Data.

Kita akan belajar bagaimana fitur ini membantu dan berguna untuk menghindari kesalahan pengetikan atau kesalahan lainnya ketika sedang melakukan proses data entri pada sebuah lembar kerja excel. Fungsi ni tidak hanya mencegah pengguna memasukkan data yang tidak benar dalam daftar tetapi juga menghemat banyak waktu.

Mari kita mengambil contoh bahwa bagaimana kita dapat mencegah pengguna dari memasuki nilai-nilai duplikat dalam kisaran data excel yang akan dibuat. 


Seperti yang bisa kita lihat pada gambar di atas, kita memiliki kolom C, di mana kita memiliki beberapa produk dan kita akan memasukkan lebih banyak produk di kisaran tersebut. Kita ingin Excel untuk meminta kita dengan pesan, seperti "Produk Duplikat", saat kita memasukkan entri duplikat dalam kisaran atau "Produk ini telah ditambahkan ke daftar". Jadi, silakan masukkan produk lain, atau dengan kata lain, kita hanya ingin sel harus dibatasi untuk hanya memiliki entri yang unik dalam kisaran.

Dan, untuk mencegah duplikasi entri dalam range tersebut, cobalah ikuti langkah mudah berikut ini !
  1. Pertama, pilihlah kisaran seluruh kolom C
  2. Pergi ke Validasi Data atau tekan "ALT + D + L" sehingga muncul kotak dialog Data Validation seperti terlihat pada gambar dibawah ini.

  3. Pilih "Custom" dari Allow kategori sehingga kita akan memiliki fungsi dalam "formula bar" untuk mencegah pengguna dari memasukkan entri duplikat  
  4. Masukkan fungsi COUNTIF: - = COUNT IF (C: C, C1) = 1 
  5. Kemudian, kita abaikan saja tab "Input Message" dan langsung melompat pada tab "Error Alert"
  6. Kita biarkan saja type Error style pada posisi "Stop", dan kemudian dalam judul, kita akan tuliskan "Duplikat / Invalid Entri!"
  7. Kemudian, di kotak pesan kesalahan, kita ketik "Anda telah memasukkan produk yang sudah ada di kolom ini. Jadi, masukkan beberapa produk lain yang unik. "
  8. Lalu klik OK
  9. Sekarang, kita dapat melihat sudah ada delapan produk dalam kisaran. Jadi, kita masukkan "Produk 09" di sel C17 dan sel menerima produk baru tanpa kesalahan apapun karena "Produk 09" tidak ada di mana saja di kisaran.
  10. Dan sekarang, kita coba untuk memasukkan "Produk 06" di sel C18 dan tekan enter. Di sini, kita mendapatkan pesan kesalahan yang kita tetapkan untuk entri ganda. Hal itu karena, jika Anda melihat kisaran, "Produk 06" sudah ada di sel C14. 

Kriteria validasi ini berlaku untuk seluruh rentang. Jadi, bahkan jika kita pergi dan masukkan duplikat nilai dalam sel C1, maka tidak akan menerima dan menampilkan pesan kesalahan customize yang sama yang telah kita set.
Jadi, itu berlaku jika pengguna akan mencoba untuk memasukkan duplikat nilai di mana saja dalam jangkauan, hal itu akan ditolak dan kotak dialog pesan kesalahan akan muncul. Anda dapat mengklik "Retry" atau "Cancel" untuk menghapus pesan kesalahan dan masukkan kode produk yang unik ke dalam daftar.
Ini adalah cara bagaimana Anda dapat mencegah pengguna dari memasukkan duplikat entri dalam kisaran, dengan menggunakan validasi data di Excel.
 

Menggunakan Warna untuk Mengatur Tabs Pada Excel

Mengatur dan mengorganize tabs pada lembar kerja Excel Anda mungkin salah satu aktivitas yang perlu Anda lakukan ketika Anda mengerjakan file Excel yang didalamnya banyak Tabs dari buku kerja Excel Anda. Untuk mengatur tabs dan mengorganize tab tersebut agar dapat memudahkan ketika Anda bekerja pada buku kerja Excel Anda adalah salah satu nya dengan memberikan tanda warna pada tabs tersebut. Namun apakah Anda tahu bahwa Anda dapat menambahkan warna untuk tab di Excel? Ini adalah fitur yang sederhana namun sangat membantu ketika mengatur spreadsheet besar. 
Ok saya berikan Tips Excel ini pada Anda. 

Langkah - langkah untuk memberikan warna pada Tabs Excel adalah sebagai berikut:

  1. Klik kanan pada tab yang diinginkan:

  2. Klik Tab Color dan kemudian pilih warna yang diinginkan:
  3. kuncinya adalah untuk membuat pengelompokan tab berwarna sehingga mudah dinavigasi pada workbook yang besar. Anda dapat mengatur ulang tab dengan menekan tombol kiri-klik tab lebih dan kemudian bergerak di sekitar:
  4. Untuk menghilangkan warna - warna pada tabs tersebut, Anda cukup klik kembali pada Tab Color dan pilihlah No Color. 












Sekarang Anda dengan mudah untuk melihat mana data set yang sudah Anda kelompokan berdasarkan warna tersebut dan ini akan membuatnya lebih mudah bagi Anda untuk menggunakan buku kerja Excel. Pastikan untuk tidak menggunakan warna yang akan mengganggu Anda kemudian.

Ini adalah tip sederhana tapi percayalah ketika saya mengatakan bahwa hal itu akan membuat pekerjaan Excel Anda lebih mudah.
 

Menerapkan Foto / gambar sebagai Background Pada Lembar Kerja Excel

Salah satu fitur format yang keren dari Excel adalah bahwa Anda dapat mengatur gambar dari komputer Anda sebagai latar belakang untuk setiap lembar kerja Excel. Anda dapat mengubah latar belakang lembar kerja agar sesuai dengan tema dari data yang disajikan atau buku kerja serta merapikan tampilan dan nuansa dari spreadsheet. Ketika Anda mulai bosan dengan latar belakang membosankan dan monoton maka Anda dapat mengatur gambar sebagai latar belakang untuk spreadsheet Excel Anda.

Langkah-langkah untuk mengatur gambar / foto sebagai latar belakang untuk Excel 2007 spreadsheet adalah sebagai berikut :


  1. Klik pada Tab Page Layout
  2. Lihat pada kotak Page Setup
  3. Klik pada tombol Background
  4. Pilih foto atau gambar dari komputer Anda lalu tekan "OK." Sekarang gambar yang dipilih akan ditetapkan sebagai latar belakang untuk spreadsheet Excel.
Background Pada Lembar Kerja Excel





Untuk menghapus background yang sudah anda pasang, Anda cukup tekan kembali pada tombol background tersebut

 

Tips Dan Cara Mencegah Duplikasi Nilai Dalam Excel

Disini saya akan menunjukkan bagaimana caranya untuk mencegah duplikasi nilai-nilai yang kita masukkan ke Excel menggunakan Validasi Data.

Katakanlah kita memiliki daftar nomor bagian dan kita ingin memastikan bahwa tidak ada duplikat, dan juga memastikan bahwa sejumlah bagian yang dimasukkan ke dalam daftar tidak lebih dari sekali.
Pertama, pilih range di mana Anda akan memasukan daftar yang akan anda buat.

Pastikan untuk memilih cukup baris sehingga semua bagian depan akan berada dalam daftar ini. Jika Anda berada di versi Excel yang lebih besar dari 2007, Anda dapat saja memilih seluruh kolom jika Anda inginkan.
Berikutnya, kita perlu membuat formula untuk memastikan tidak ada duplikasi nilai yang diperbolehkan.

Berikut adalah rumus yang kita butuhkan:

=COUNTIF($A$2:$A$16,A2)=1

Ada dua hal yang akan Anda perlu ubah disini sesuai kebutuhan Anda, referensi ke daftar $ A $ 2: $ A $ 16 dan referensi ke sel pertama dalam daftar A2

$ A $ 2: $ A $ 16 adalah lokasi daftar di mana kita tidak ingin mengizinkan terjadinya duplikat. Anda harus menyertakan tanda dolar $ di depan kolom dan baris referensi untuk bekerja dengan benar, ini untuk memastikan bahwa ini adalah sebuah referensi sel absolut, yang berarti bahwa itu tidak akan berubah.

A2 adalah sel pertama dari daftar Anda dan Anda tidak pernah harus menyertakan tanda dolar $ karena harus selalu tetap menjadi referensi sel relatif, yang berarti bahwa itu dapat memperbarui ketika disalin ke sel lain.

Tip: Ketika membuat formula, sebaiknya Anda melakukannya di lembar kerja sehingga Anda dapat memastikan semuanya diketik dengan benar. Bila Anda meletakkan rumus ke dalam jendela Validasi Data, Excel tidak akan memeriksa untuk kesalahan pada ketikan formula tidak seperti ketika Anda membuatnya dalam worksheet.

Setelah Anda membuat formula Anda, Anda kemudian dapat memasukannya ke dalam Validasi Data untuk mencegah duplikasi entri.

Ingatlah untuk memiliki daftar di mana Anda tidak ingin duplikat yang dipilih, maka pergi ke tab Data dan klik tombol Validasi Data:




















Sebuah jendela akan terbuka dan Anda harus memilih Custom dari field Izinkan:


Sekarang, kita dapat memasukan formula ke bidang Formula yang muncul.


Sekarang, tekan tombol OK dan emua sudah Anda lakukan

Mari kita menguji kondis yang sudah kita buat seperti langkah-langkah diatas. Ketika saya mencoba memasukkan Buku ke dalam sel A5, saya mendapatkan pesan kesalahan ini:


















Maka hasilnya sekarang saya tidak bisa memasukkan nilai duplikat dalam daftar ini!

Ini sangat penting untuk memilih seluruh range di mana Anda tidak ingin terjadi duplikat sebelum Anda menerapkan Validasi Data dan itu sangat penting bahwa Anda meninggalkan referensi kisaran kedua, dalam kasus di atas A2, referensi sel relatif, yang hanya berarti untuk tidak menempatkan tanda-tanda $ di dalamnya.

Ketika kita sekarang pergi ke, misalnya, sel A3 dan klik tombol Validasi data, maka kita akan melihat ini:

Perhatikan bahwa segala sesuatu dalam formula tetap sama KECUALI A2 yang kini telah menjadi A3. Inilah sebabnya mengapa bahwa referensi sel menjadi relatif sangat penting dan ini adalah apa yang memungkinkan kita untuk mencegah duplikasi nilai dalam daftar.

Juga, jika Anda ingin pesan kesalahan kustom atau petunjuk untuk memberitahu pengguna tidak memasukkan nilai ganda, Anda dapat mengedit pilihan pada pesan Input dan Kesalahan tab Alert, yang keduanya cukup jelas.

Seperti yang Anda lihat, Validasi data di Excel memungkinkan Anda untuk melakukan beberapa hal yang cukup kuat dan akan cukup untuk membantu Anda menyimpan data Anda dari hal yang rusak.

Jangan lupa untuk men-download spreadsheet Excel yang menyertai sehingga Anda dapat melihat fitur ini dengan mencobanya secara langsung dan jangan lupa untuk melihat  tutorial Validasi Data saya yang lain untuk mempelajari lebih lanjut tentang apa yang dapat Anda lakukan dengan validasi data di Excel.

 

Tips Menyembunyikan Interface Pada Excel, Yang Ditampilkan Hanya Data Saja

Pada tulisan ini saya ingin menjelaskan kepada Anda, bagaimana caranya menghilangkan atau menyembunyikan interface pada program Excel sehingga yang terlihat oleh kita hanya data-data nya saja. Hal ini berguna untuk memperluas sudut pandang kita dalam melihat kumpulan data yang ada didalam tabel excel sehingga kita akan lebih terfokus pada pengolahan data saja.
Jika Anda bingung seperti apa maksud saya di atas, coba Anda perhatikan dan bedakan dari dua gambar yang saya berikan dibawah ini:
Interface Excel
Tampilan Standart
Tampilan setelah interface disembunyikan
Untuk mendapatkan tampilan seperti gambar diatas yaitu dengan menyembunyikan atau menghilangkan interface pada workbook langkah-langkahnya adalah sebagai berikut :

Meminimalkan Menu Ribbon
Klik kanan judul apapun dari Menu Ribbon dan kemudian pilih Opsi Minimize Ribbon, atau cukup klik dua kali pada judul


Maka hasilnya menu Ribbon akan mengecil otomatis, seperti terlihat pada gambar dibawah ini:


Remove Column dan Row Headings serta Formula Bar
Klik pada tab View dan didalamnya hilangkan tanda centang pada pilihan Formula Bar dan Headings yang ditunjukan.

Maka hasilnya akan terlihat seperti gambar dibawah ini:


Sembunyikan Scroll Bars dan Sheet Tabs
Sebagai catatan : Hal ini tidak mendelete atau menghapu menu yang berhubungan dengan ini.

1. Buka File menu atau Office button, jika kamu menggunakan Excel 2007, lalu klik Options.



2. Klik pada bagian Advanced yang tercantum dalam menu di sebelah kiri jendela Options Excel.
3. Gulirkan ke bawah ke pilihan Tampilan untuk bagian buku kerja ini.
Un-check pilihan ini: ( atau hilangkan tanda centang )
Show horizontal scroll bar
Show vertical scroll bar
Show sheet tabs


Ok, sampai langkah ini maka Anda sudah berhasil menyembunyikan bagian-bagian dari interface pada tampilan excel sehingga kamu bisa memaksimalkan area lembar kerja excel kamu.
 

3 Langkah Mudah Membuat Form Isi Barang Di Excel Menggunakan UserForm

Pada tulisan saya yang terdahulu tentang aplikasi persediaan barang terdiri dari beberapa worksheet yang dikombinasikan dengan form - form input untuk memudahkan pengguna mengisi ataupun menambahkan daftar barang. Form - form tersebut dibuat menggunakan user form yang ada pada VBA editor di Excel. Bagi Anda yang sudah mengenal dengan istilah user form pada VBA editor mungkin akan sangat mudah untuk membuatnya tapi bagaimana yang belum sama sekali ataupun baru mengenal istitilah ini.
Disini saya akan menjelaskan bagaimana cara membuat daftar isi barang tersebut menggunakan User Form pada VBA editor di Excel. 
Langkah-langkahnya adalah sebagai berikut: 

Langkah 1. Membuka Windows Project Explorer
- Tampilkan jendela VBA editor melalui menu Developer


- Tambahkan Form pada jendela VBA project melalui menu Insert lalu klik Usert Form


Maka akan muncul form yang nantinya akan kita design sesuai dengan apa yang kita inginkan. 


Untuk mendesign form tersebut agar sesuai dengan yang kita harapkan maka di perlukan tool-tool seperti Combo List, Combo Box, Text Box, Command Button, Dll. Semua tool tersebut telah disediakan didalam menu Toolbox seperti terlihat pada gambar dibawah ini ; 


Langkah 2. Mendesign Tampilan User Form
- Ubah Properties UserForm1 dengan kriteria Height : 295, Width : 490, seperti yang terlihat pada gambar dibawah ini; 


- Tambahkan 4 buah Frame pada UserForm1 yang tersedia pada menu Toolbox, dan atur tata letak sehingga terlihat seperti gambar dibawah ini. 


- Ubah Properties Caption untuk tiap-tiap frame, sepeti terlihat pada gambar dibawah ini;
Frame1 ubah ubah properties caption menjadi Data Barang. 


Frame2 ubah properties caption menjadi Jenis


Frame3 ubah properties caption menjadi Informasi Barang


Frame4 ubah properties caption menjadi "    " atau ( kosongkan saja )


Jika Anda telah melakukan seperti yang saya jelaskan di atas maka tampilan UserFrom1 menjadi terlihat seperti dibawah ini; 


Tambahkan tombol kontrol pada tiap-tiap frame dan atur tata letak sesuai dengan area yang tersedia pada tiap frame dengan contoh seperti gambar dibawah ini;


Lalu ubah properties caption pada masing-masing tombol kontrol seperti yang telah saya jelaskan diatas sehingga tampilan form menjadi terlihat seperti gambar dibawah ini;


Langkah 2. Menambahkan Kode Macro VB 

Agar form yang telah dibuat dapat berjalan secara otomatis dan dapat digunakan untuk kebutuhan menginput data barang maka perlu ditambahkan kode macro VB didalamnya.
Sebelum memasukkan kode VB maka terlebih dahulu ubah properties name pada masing-masing tombol kontrol seperti keterangan dibawah ini;

ComboBox1 = CBFilter 
TextBox1 = TBFilter
ListBox1 = LBFILTER
ComboBox2 = CBFILTERJENIS
TextBox1 = TBNama
TextBox2 = TBKode
TextBox3 = TBStok
TextBox4 = TBSatuan
CommandButton1 = CBOK
CommandButton2 = CBBatal
CommandButton3 = CBTambah
CommandButton4 = CBEdit
CommandButton5 = CBHapus
CommandButton5 = CMDTutup

- Lalu pada UserForm1 masukkan kode seperti dibawah ini;

Option Explicit
Dim CbLock As Boolean, Simpan As Boolean
Dim FormMode As String
Dim harga As Double
Const MsgboxTitle = "Daftar Barang"

'=================================================================================
' CCCCC
'=================================================================================
Private Sub CBTAMBAH_Click()
Dim JmlMasuk, JmlKeluar, JmlSisa
    CbLock = True
    Unlok
    TBKode.Value = Empty
    TBNama.Value = Empty
    TBStok.Value = Empty
    FormMode = "Tambah"
End Sub

Private Sub CBBATAL_Click()
    FormMode = "Ready"
    CbLock = False
    Unlok
    RefreshControl
End Sub

Private Sub CBEDIT_Click()
    CbLock = True
    Unlok
    FormMode = "Edit"
End Sub

Private Sub CBOK_Click()
Dim LnBrg As Integer
    If TBKode.Value = Empty Then
        MsgBox "Kode barang masih kosong", vbInformation, MsgboxTitle
        Exit Sub
    End If
    If TBNama.Value = Empty Then
        MsgBox "Nama barang masih kosong", vbInformation, MsgboxTitle
        Exit Sub
    End If
    If FormMode = "Tambah" Then
        LnBrg = SBBRG.Max + 1
    Else
        LnBrg = SBBRG.Value
    End If
    If Not CheckDup(TBKode.Value, "A", LnBrg, FormMode) Then GoTo ErrOk
    With ThisWorkbook.Sheets("DataBarang")
        Application.ScreenUpdating = True
        .Unprotect
        .Range("A" & LnBrg).Value = TBKode.Value
        .Range("B" & LnBrg).Value = TBNama.Value
        .Range("c" & LnBrg).Value = TBStok.Value
        .Range("d" & LnBrg).Value = TBSatuan.Value
        .Range("e" & LnBrg).Value = CBFILTERJENIS.Value
        MsgBox FormMode & " data berhasil", vbInformation, MsgboxTitle
        Simpan = True
        .Protect
        Application.ScreenUpdating = False
    End With
    If FormMode = "Tambah" Then
        Sekrol
        SBBRG.Value = SBBRG.Max
    End If
    CBBATAL_Click
    Exit Sub
ErrOk:
    MsgBox "No ID sudah dipakai", vbCritical, MsgboxTitle
    Exit Sub
End Sub

Private Sub SBBRG_Change()
    RefreshControl
End Sub

Private Sub TBHARGA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo ErrHarga
    harga = TBHARGA.Value
    TBHARGA.Value = FormatNumber(harga, 0, vbTrue, vbTrue, vbTrue)
    Exit Sub
ErrHarga:
    MsgBox "Hanya Boleh Berisi Angka Saja!", vbOKOnly + vbCritical, MsgboxTitle
    harga = 0
    TBHARGA = FormatNumber(harga, 0, vbTrue, vbTrue, vbTrue)
End Sub

Private Sub TBHARGA_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> vbKeyBack And KeyAscii <> 44 Then
        KeyAscii = 0
    End If
End Sub

Private Sub TBHARGA_Enter()
    TBHARGA.Value = harga
End Sub

Private Sub CBXKOLFILTER_Change()
    LBFILTER.RowSource = FilterBarang(TBFILTER.Value, CBXKOLFILTER.ListIndex)
End Sub

Private Sub LBFILTER_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim response As VbMsgBoxResult
    If LBFILTER.Value = Null Then Exit Sub
    response = MsgBox("tampilkan data " & LBFILTER.Value & " ??", vbYesNo + vbQuestion, MsgboxTitle)
    If response = vbNo Then Exit Sub
    SBBRG.Value = Application.WorksheetFunction.Match(LBFILTER.Value, ThisWorkbook.Sheets("DataBarang").Range("A:A"), 0)
End Sub

Private Sub TBFILTER_Change()
    LBFILTER.RowSource = FilterBarang(TBFILTER.Value, CBXKOLFILTER.ListIndex)
End Sub

Private Sub UserForm_Activate()
Dim text1 As control
Dim i As Integer
    Application.Calculation = xlCalculationManual
    ThisWorkbook.Activate
    Sheets("DataBarang").Select
    Application.ScreenUpdating = False
    Call Sekrol
    CBXKOLFILTER.Clear
    For i = 1 To 3
        CBXKOLFILTER.AddItem Sheets("DataBarang").Cells(1, i).Value
    Next i
    CBXKOLFILTER.ListIndex = 1
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(2, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(3, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(4, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(5, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(6, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(7, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(8, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(9, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(10, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(11, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(12, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(13, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(14, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(15, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(16, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(17, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(18, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(19, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(20, 1)
        CBFILTERJENIS.AddItem Sheets("DataBarang").Range("K:K").Cells(21, 1)
        CbLock = False
    Call Unlok
    FormMode = "Ready"
    Simpan = False
    Set text1 = Controls.Add("Forms.Label.1", "TT", True)
    text1.Move 12, 360, 420, 12
    text1.Caption = AuthorGen2()
    If SBBRG.Max = 1 Then
        MsgBox "Data masih kosong", vbInformation, MsgboxTitle
        Call CBTAMBAH_Click
        CBBATAL.Enabled = False
        Exit Sub
    End If
    RefreshControl
End Sub

Private Sub UserForm_Terminate()
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    ThisWorkbook.Sheets("DataBarang").Range("A" & SBBRG.Value & ":E" & SBBRG.Value).Select
    ThisWorkbook.Sheets("DataBarang").Protect
    If Simpan Then ThisWorkbook.Save
End Sub

'=================================================================================
'                                                                         FFFFFFF
'=================================================================================

Private Function CheckDup(w As Variant, x As String, y As Integer, z As String) As Boolean
Dim TempCD1, TempCD2, RgLook
    On Error GoTo ErrCheckDup
    CheckDup = True
    RgLook = x & "1:" & x & SBBRG.Max
    TempCD1 = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets("DataBarang").Range(RgLook), w)
    If z = "Tambah" Then
        If TempCD1 > 0 Then CheckDup = False
    ElseIf z = "Edit" Then
        If TempCD1 > 1 Then
            CheckDup = False
        ElseIf TempCD1 = 1 Then
            TempCD2 = Application.WorksheetFunction.Match(w, ThisWorkbook.Sheets("DataBarang").Range(RgLook), 0)
            If TempCD2 <> y Then CheckDup = False
        End If
    End If
    Exit Function
ErrCheckDup:
    MsgBox "ErrCheckDup", vbCritical, MsgboxTitle
    CheckDup = False
End Function

'=================================================================================
' PPPPPPP
'=================================================================================

Private Sub Unlok()
    CBTambah.Enabled = Not CbLock
    CBEdit.Enabled = Not CbLock
    SBBRG.Enabled = Not CbLock
    CBOK.Enabled = CbLock
    CBBATAL.Enabled = CbLock
    TBKode.Locked = Not CbLock
    TBNama.Locked = Not CbLock
    TBStok.Locked = Not CbLock
End Sub

Private Sub Sekrol()
    SBBRG.Max = LastCell(ThisWorkbook.Name, "DataBarang", "A")
    If SBBRG.Max <= 1 Then
        SBBRG.Min = 1
    Else
        SBBRG.Min = 2
    End If
    SBBRG.LargeChange = Round(SBBRG.Max / 5, 0)
End Sub

Private Sub RefreshControl()
Dim JmlMasuk, JmlKeluar, JmlSisa
    With ThisWorkbook.Sheets("DataBarang")
        TBKode.Value = .Cells(SBBRG, 1).Value
        TBNama.Value = .Cells(SBBRG, 2).Value
        TBStok.Value = .Cells(SBBRG, 3).Value
    End With
End Sub

Private Sub CMDTutup_Click()
Unload Me
End Sub

- Tambahkan module1 pada project VBA editor lalu masukan kode dibawah ini; 


- Tambahkan module2 pada project VBA editor lalu masukan kode dibawah ini; 

Option Explicit
Public Function FilterBarang(KeyWord As String, Kolom As Integer) As String
Dim RwCount As Integer
    With ThisWorkbook.Sheets("TabelBarang")
        .Range("A:H").Clear
        .Cells(1, 1).Value = ThisWorkbook.Sheets("Databarang").Cells(1, Kolom + 1)
        If Kolom < 1 Then
            KeyWord = "*" & KeyWord
        Else
            KeyWord = KeyWord
        End If
        .Cells(2, 1).Value = KeyWord
        With ThisWorkbook.Sheets("Databarang")
            .Unprotect
            If ThisWorkbook.Sheets("Databarang").Range("A1").CurrentRegion.Rows.Count <= 1 Then
                FilterBarang = "TabelBarang!C2:E2"
                Exit Function
            End If
            .Protect
            If ThisWorkbook.Sheets("Databarang").Range("A65536").End(xlUp).Row = 1 Then Exit Function
        End With
        ThisWorkbook.Sheets("Databarang").Unprotect
        ThisWorkbook.Sheets("Databarang").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("A1:A2"), CopyToRange:=.Range("C1"), Unique:=False
        ThisWorkbook.Sheets("Databarang").Protect
        RwCount = Application.WorksheetFunction.CountA(.Range("C:C"))
        If RwCount < 2 Then RwCount = 2
        FilterBarang = "TabelBarang!C2:G" & RwCount
    End With
End Function

Public Function LastCell(x, y, z) As Integer
    With Workbooks(x).Sheets(y)
        .Unprotect
        LastCell = .Range(z & "1").CurrentRegion.Rows.Count
        .Protect
    End With
End Function

Public Function BrgDet(x, y)
Dim RgLook
Dim MatchLn
    With ThisWorkbook.Sheets("Databarang")
        .Unprotect
        If .Range("A1").CurrentRegion.Rows.Count <= 1 Then
            BrgDet = Empty
            Exit Function
        End If
        RgLook = "A1:A" & .Range("A1").CurrentRegion.Rows.Count
        MatchLn = Application.WorksheetFunction.Match(x, .Range(RgLook), 0)
        BrgDet = .Range(y & MatchLn).Value
        .Protect
    End With
End Function

Public Function kategori() As Integer
    With ThisWorkbook.Sheets("DataBarang")
        ListIndex = Range("A:H").Select
    End With
End Function

- Agar kode macro VB di atas dapat berjalan sebagaimana mestinya maka tambahkan worksheet baru pada workbook yang aktif lalu rename menjadi TabelBarang. 
- Untuk mencoba hasil dari kode macro tersebut tekal tombol F5 pada keyboard komputer atau laptop Anda. 

Bagaimana mudahkan? ok silahkan Anda mencoba tutorial ini !!! Jika ada yang perlu ditambahkan atau Anda masih merasa kesulitan maka Anda bisa menanyakan ataupun menginformasikan melalu kolom komentar dibawah ini. 
Sebagai bahan untuk latihan Anda juga bisa menggunakan file yang sudah jadi hasil dari tutorial ini dengan mendownload pada link dibawah ini:
 

 
 
Links : About | Excel Tutorial | Macro VBA
Copyright © 2011. iyanzone - All Rights Reserved
Support by Teknik AutoCAD Published by Iyan Supriyadi
Proudly powered by Blogger