Arsip – Belajar Microsoft Excel : Tips, Tricks & Tutorial

Arsip

Berikut tulisan2 yang pernah nongol di blog ini

bingung cara downloadnya ??

Baca aja halaman download dengan klik icon di samping

feed , email and my social media
47 Comments
    Newer Comments »
  1. wahyu

    Mas saya mau tanya! bagaimana cara menampilkan aplikasi berlayar penuh (score kode) dan membuat serial number agar program yang kita buat tidak di bajak?
    terima kasih sebelumnya.
    ini e-mail saya : wahyuareta@yahoo.com / bksman20surabaya@yahoo.co.id

    webs : bksman20sby.web.som itu tempat saya bekerja.

    Reply
    • motorbreath

      wah saya ndak pernah bikin aplikasi berlayar penuh boss … jadi bingung jawabnya … kalau aplikasi saya pakai KONCI yang cara bikinnya secara umum sama dengan artikel ini

      Reply
  2. wahyu

    mas nanya lagi !
    kalau untuk membuat KONCI itu sendiri memakai module apa tidak dan kode yang yang mas tulis itu apa di masukkan ke module? terima kasih

    Reply
  3. wahyuareta

    Mas mau tanya misalkan ada 3 sheet, sheet 1 input data, sheet 2 database, sheet 3 formulir cetak. saya ingin menonaktifkan printer jika belum memasukan konci atau password itu ginama caranya [printer tidak bisa koneksi di haruskan memasukkan konci/passwor baru printer ok]
    terima kasih!! pak..

    Reply
    • motorbreath

      asumsi password ada pada Sheet1 range A1 … masukkan code ini pada bagian ThisWorkbook
      Private Sub Workbook_BeforePrint(Cancel As Boolean)
      If Not Range("Sheet1!A1").Value = "passwordnyah" Then Cancel = True
      End Sub

      Reply
  4. wahyuareta

    Terima kasih Mas
    sudah saya coba.
    Mas mau tanya saya punya 2 buah xls [1 sebagai penyimpan data, 1 sebagai inputan (user)] di inputan user ada sebuah 1 form inputan data dimana inputannya ada 86 item masalahnya saat saya isi itemnya yang di user terisi dat dan yang di dimaster terisi tapi selalu bermasalah master tidak bisa mengisi urut melaikan langsung hapus :
    seperti ini contoh string yang saya buat;

    Dim rc As Long
    Dim fileku As String
    Dim wb As Workbook

    Application.ScreenUpdating = False
    fileku = ActiveWorkbook.Path
    rc = ActiveSheet.UsedRange.Rows.Count

    With Sheets(1).Range(“A1”)
    .Offset(rc, 1).Value = Me.txt1.Value
    .Offset(rc, 2).Value = Me.txt2.Value
    .Offset(rc, 3).Value = Me.txt3.Value
    .Offset(rc, 4).Value = Me.txt4.Value ‘ ini yang masuk ke user, sampai 84 item inputan
    end with

    ‘ ini yang masuk ke master

    ThisWorkbook.Save
    Workbooks.Open fileku & “” & “DATA.xls”
    Set wb = ActiveWorkbook
    rc = ActiveSheet.UsedRange.Rows.Count
    With Sheets(1).Range(“A1”)
    .Offset(rc, 0).Value = Me.txt1.Value
    .Offset(rc, 1).Value = Me.txt2.Value
    .Offset(rc, 2).Value = Me.txt3.Value
    .Offset(rc, 3).Value = Me.txt4.Value ‘sampai 84 item inputan
    .Offset(rc, 84).Value = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) – 85) ‘

    End With

    wb.Save
    wb.Close
    Application.ScreenUpdating = True
    Unload Me

    End Sub

    yang .Offset(rc, 84……. selalu bermasalah muncul pesan :

    Run-time error ‘5’:
    Invalid procedure call or argument

    dimana cara mengatasi mas supaya di master bisa terisi dan mendetek dari xls mana data di isi
    terima kasih

    Reply
    • motorbreath

      Len(ThisWorkbook.Name) hasilnya berapa ?
      kalau kurang dari 85 bisa error dong

      Reply
  5. wahyuareta

    Mas saya sudah berhasil sampai 200 item input sudah jalan baik di user maupun di master

    Soal printer Protect untuk mengaktifkan setiap di kolom A1 harus terisi password/nilai yang sama

    terima kasih!

    Mas tanya lagi, kemarin saya sudah coba konci mengonci untuk menghapus

    auto_open()
    ThisWorkbook.Close SaveChanges:=False

    Tapi masih juga aplikasi berjalan, yang saya inginkan begitu masa berlaku/tgl lewat habis si user/pemakai diminta memasukkan kode konci jika tidak file langsung di tutup.

    apakah ada module nya? mohon bantuannya

    Terima kasih selanjutnya….

    Reply
    • motorbreath

      coba pakai kode ini
      If ThisWorkbook.Sheets("SheetKonci").Range("A3").Value < Date Then GoTo TutupWorkbook
      letakkan dibawah
      If Sn1 = Sn2 Then

      Reply
  6. wahyuareta

    sudah bisa mas
    terima kasih!
    jika tidak langsung tutup melainkan keluar kontak informasi konci dimana caranya?
    maaf mas saya banyak minta bantuan.

    Reply
  7. wahyuareta

    maaf saya minta bantuan lagi masih tentang cetak
    module saya tempatkan di thisworkbook hasil modifikasi yang Mas kasih kemarin

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If PrtOK Then
    Cancel = False
    Else
    MsgBox “Maaf Silahkan Masukkan Konci”, vbOKOnly, “error”
    If Not Range(“Sheet1!A1”).Value = “ina” Then
    Cancel = True
    End If
    End Sub

    saya jalankan error jika If Not Range….. saya jika tidak saya kasih tanda petik &Jika saya kasih tanda petik printer tunda

    saya mau jika di A1 terisi konci/angka cetak bisa jika kosong cetak dibatalkan itu perintah apa yang harus saya tambahkan di module di atas?
    terima kasih banyak Mas!

    Reply
    • wahyuareta

      Untuk cetak saya sudah bisa dijalankan tanpa Error setelah saya modifikasi lagi dengan modifikasi string dibawah ini:

      Private Sub Workbook_BeforePrint(Cancel As Boolean)
      If PrtOK Then
      Cancel = False

      Else
      If Not Range(“Sheet1!A1”).Value = “OKE” Then
      MsgBox “Maaf Silahkan Masukkan Koncinya”, vbOKOnly, “error”
      Cancel = True

      Else
      MsgBox “Terima Kasih”, vbOKOnly, “Succes”
      If Not Range(“Sheet1!A1”).Value = “OKE” Then
      Cancel = True
      End If
      End If
      End If
      End Sub

      Jika di Sheet1 (A1) = OKe maka printer siap
      jika di Sheet1 (A1) = “”/kosong maka muncul pesan = “Maaf silahkan masukkan Koncinya”

      Terima kasih Mas…
      merepotkan….

      Reply
  8. wahyuareta

    Mas minta bantuan
    saya punya 3 sheet.
    saya mau cetak sheet 3 tapi melalui sheet 1 dimana modulenya mohon pencerahannya?
    soal saya sudah coba tapi cetak keluar namum pada sheet 1 saja

    Reply
    • motorbreath

      try this
      ThisWorkbook.Sheets("Sheet1").PrintOut
      ThisWorkbook.Sheets("Sheet2").PrintOut
      ThisWorkbook.Sheets("Sheet3").PrintOut

      Reply
  9. ndyew

    mas saya tertarik dengan aplikasinya, terutama untuk persediaan barang… bisa tidak saya dwonload aplikasi tersebut.. mohon petunjuk

    Reply
    • motorbreath

      silahkan download aja langsung dari sidebar atau halaman download

      Reply
  10. wahyuareta

    Mas saya tolong minta kode konci add ins unprotect2 : UNP2.2487
    terima kasih!

    Reply
  11. wahyuareta

    wahyuareta :
    Mas saya minta tolong kode konci add ins unprotect2 : UNP2.2487
    terima kasih!

    Reply
  12. dedek

    Gimana mas, aku punya blangko isian nyang kolomnya lebih dari 30 kolom. udah tak coba isi pake gaya data form. Nah, ada masalah kalo jumlah kolom lebih dari 30, data form nggak mau jalan. Lalu aku coba buat blangko pake validation excel. tapi masalahnya lagi aku belum bisa ngatur untuk menghubungkan cellnya dan juga supaya ketika ditekan tombol enter, data bisa otomatis ke baris berikutnya hingga jumlah tak terbatas. gimana mas, bisa kasih solusi? trim

    Reply
    • motorbreath

      saya belOm pernah make fasilitas Data Form untuk tabel yang lebih dari 30 Kolom jadi saya ndak bisa kasih solusi … alternatipnya menurut saya bisa pakai Form Controls atau pakai UserForm … download contoh filenya dan pelajari kode2 macronya 😉

      Reply
  13. DeniANdrian

    Selamat siang mas,
    mau tanya, kalau cara membuat menu tanggal pada combobox di aplikasi VBA macro bagaimana? utk scriptnya
    mohon bantuannya.
    terimakasih

    Reply
    • motorbreath

      itu namanya control DatePicker … silahkan tambahkan ke toolbox sodara

      Reply
  14. Iwan

    Pak sy mohon diberi koncinya UNP2.1844, sukron ya…

    Reply
  15. prazt811pras

    assalamu’alaikum…..
    mas, saya punya file excell yang saya inginkan semua orang tidak bisa paste data di flie tersebut, yang bisa hanya paste special>values, dan copy…mohon bantuanya bagaimana prosedur macronya jika paste special>values tersebut menggunakan tombol botton sedangkan area paste special>values_nya di range D4:H230

    Reply
  16. ksumitraalbarokah

    ASALAMUAIKUM MAS BOLEH SAYA MINTA KUNCI UNP2.2351 TERIMAKASIH

    Reply
  17. Khrisna

    mas, sy ada masalah dengan “pagesetup” pada macro.
    sy punya file excel data penduduk, dan ingin setting jenis kertas secara permanen menjadi F4 Folio (disemua jenis printer). mohon bantuanya bagaimana prosedur macronya. mohon pencerahannya.
    Terimakasih.

    Reply
    • motorbreath

      Worksheets("Sheet1").PageSetup.PaperSize = xlPaperFolio
      tapi mungkin beberapa printer tidak support ukuran ini
      coba cari di help VBA dengan keyword “PageSetup.PaperSize Property”

      Reply
  18. agus planjan

    mase minetak tolonge untuk code UNP2.7109 piroooo…

    selamat dan sukses….

    Reply
  19. Ariandry Cointreau

    Mas Mohon Solusinya nie..
    Gimana Cara Mengatasi :”runtime error 5 invalid procedure call or argument” di Laptop saya (Windows 7) tanpa harus mengisntal ulang laptop saia,,
    saia udah cari kemana2 di mbah google ga ada jg,,
    mohon bantuannya mas,,
    makasih sebelumnya,,sukses selalu ,,

    Muhammad Syukron : sayangnya untuk mengatasi problem seperti ini saya harus lihat langsung errornya saat dijalankan pada kompie tsb … 🙁

    Reply
    • Ariandry Cointreau

      Laptop Berjalan Normal,Cmn klo Baru nyala Langsung Kluar Tulisan Gtu mas *Network Conflik* ”runtime error 5 invalid procedure call or argument”..

      Muhammad Syukron :
      Seharusnya ndak ada urusan dengan network yah … saya sendiri bingung kalO ndak ngadep langsung 😕

      Reply
  20. Sinode Sinaga

    Mas, mohon bantuan…
    saya punya 2 buah file excel. Pertama saya sebut Master, yaitu input manual jam kerja karyawan (Absensi). Ada 150 org karyawan. Ter input pada kolom “B11:L157”. Setelah terisi semua saya mau me-rekap data tsb ke file “Rekap.xls” (Masih satu folder). Dan per hari akan berurut sampai ke bawah di file rekap tersebut. Cara ne piye to mas??? maaf saya newbie di excel. Salam

    Sinode

    Muhammad Syukron : harus lihat filenya langsung

    Reply
  21. Ben

    mas..
    mau tanya..
    konci UNP1.9396 apa ya

    Muhammad Syukron : UNP1.9396 KONCINYA : 1O7AVBV7JB

    Reply
  22. Paryatno

    maaf pak, sya pernah download Aplikasi DP3,,mau minta Konci UNP1.8719,,,terima kasih..

    Reply
  23. Iyan

    Mas punya aplikasi Excel untuk membuat schedulle produksi ga ? klo ada minta tolong bantuannya !

    Reply
  24. Muhammad Nur Salim

    Pak Bos Mau Tanya Kunci UNP2.9233 apa ya ??? Mohon jawabannya … diucapkan terima kasih..

    Reply
  25. New'julian Leo

    mohon bantuannya

    TANGGAL NAMA QTY
    1-May-15 DAVID 1
    1-May-15 LINA 2
    2-May-15 DESI 1
    3-May-15 DAVID 3

    cth:
    DATA YANG MAU DICARI 1-May-15 —> diisi secara manual

    MAKA AKAN MUNCUL SECARA OTOMATIS DATA YANG
    KITA INGINKAN
    KETIKA SUDAH DIMASUKAN TANGGAL maka akan muncul
    seperti dibawah ini

    TANGGAL NAMA QTY
    1-May-15 DAVID 1
    1-May-15 LINA 2

    mohon bantuan nya ya ..
    tlg di bls ke alamat email saya
    julian_david_wuisan@yahoo.co.id
    Terima kasih..

    Reply
    26. Newer Comments »

Jika sOdara menemukan sesuatu yang bermanpaat di marih .... silahkan kasih komennya