#Ask Bisakah Vba melakukan proses ini ??

  1. ‹ Older
  2. 8 bulan yang lalu

    Sheet1.Range(Cells(4, 6 + x), Cells(23, 6 + x)).Value = vbNullString

    tambahkan formula di atas mas Chris untuk menambah penghapusan data mulai cell 4 samapai cell 23, bisa di kembangkan sesuai keperluan.

    Terima kasih.

  3. Di sunting 8 bulan yang lalu oleh Chris212

    @Eunike Abigail
    maaf untuk yg @Eunike Abigail berikan juga termasuk yg saya cari ,.
    tapi yg lebih saya maskutkan seperti ini
    wow.gif' alt='-image-'/>
    karena gif yg saya contohkan mengunakan cara manual , yg saya cari mengunakan vba berdasrkan dari comboboxnya
    :) hehhhe

  4. Maksudnya seperti itu...
    Coba file ini.
    Terima kasih.

  5. Mas @Eunike Abigail
    Terima kasih
    saya pelajari dulu :)

  6. Di sunting 8 bulan yang lalu oleh Chris212

    Mas @Eunike Abigail

    maaf bertanya lagi , karena masih bingung

    Sheet1.Range(Cells(bb, cc), Cells(bb + 21, cc))


    1. untuk angka +21 itu apa ya ?

    2.cara membut set range ( berdasrkan button Add ) bagaimana ya ?,
    Tujuannya saat menambah Intsansi + kota maka auto border ( cara penulisan set range yg bingung )
    wowhh.png

    3. saya sudah googling dan belum menemukannya , bagaimana agar Muncul Msgbox saat Input Instansi+Kota sudah sampai batas ( AD (30)

    4. apakah bisa Mengatasi data ganda di Input di Intsansi + kota ?
    jika ada Data PT.A kota Malang , ingin input PT.A kota Malang akan otomatis msgbox " DATA GANDA " muncul , jika Input PT.A kota Surabya di izinkan , jika input PT.B kota Malang di iznkan

    Karena banya yg saya tanyakan , unutk no 3-4 jika ada referensi untuk dibaca bolehkan di linkkan
    saya coba pelajari dan terapka di data saya ;)

  7. Selamat malam mas Chris,
    saya coba jawab:

    1. Angka 21 itu penambahan nilai cell, kalau kita bermain data di excel, harus paham penggunaan cell dan Row
    2. Untuk membatasi, bisa menggunakan fungsi Countif untuk membatasi, untuk logicnya bisa menggunakan fungsi IF, untuk menggunakan fungsi IF, logic kita harus bermain.
    3. Seperti di atas, jika sudah pahan penggunaan fungsi IF, tinggal penggunaan msgbox.
    4. Bisa mas, harus menggunakan beberapa kondisi di tambah pemahaman fungsi FIND, contoh waktu itu saya kasi, hanya menggunakan fungsi Left dan Right karena contohnya hanya 1 huruf untuk masing-masing (Instansi dan Kota), ngga mungkin nama kota dan instansi 1 huruf...oleh sebab itu kita harus menggunakan delimeter untu menggabungkan anatara Instansi dan kota , setelah data di gabungkan, kita bisa menggunakan fungsi SPLIT untuk memisahkannya kembali dan fungsi FIND sebagai refrence pencarian datanya.

    Fungsi-fungsi dasar dalam pengelolahan data sebenarnya tidak terlalu sulit, cuma terkadang banyak yang kurang memahami "Prinsip dasar data base" atau kaidah data base.

    Terima Kasih.

  8. @Eunike Abigail
    Pagi ,.
    Terima kasih sudah menjawab
    Bolehkah saya bertanya lagi :)

    Angka 21 itu penambahan nilai cell, kalau kita bermain data di excel, harus paham penggunaan cell dan Row

    Sheet1.Range(Cells(bb, cc), Cells(bb + 21, cc)).Select									
    bb = ActiveCell.Cells.Row			dim bb as string						
    cc = ActiveCell.Cells.Column		dim cc as integer		


    +21 karena Penambahan Nilai di mulai ( dituju ) dari Kolom 7 baris 3 ( G3 ) , dan tujuan akhir adalah Baris 24
    jika tujuan akhir baris saya 30 , maka +21 berubah menjadi +27
    apakh benar pemahaman saya ?

    sama , cc itu kenapa integer dan bukan string
    apakah karena ini

    Cells(bb + 21, cc + 1 + a)).Copy Destination:=Cells(bb, cc)


    cici.png
    Terima kasih

  9. Selamat Siang mas Chris,

    Benar mas, angka 21 ada penambahan nilai, penambahan nilai disini berdasarkan activecell yang di tuju.
    Penggunaan Deklarasi sesuai kebutuhan mas, saya menggunakan Integer karna saya bermain di angka saja, ngga masalah menggunakan string/integer tapi kita jg harus tahu kebutuhan program yang kita buat.
    Gimana mas sudah jadi programnya yang waktu itu mengenai pemisahan data ganda, saya sudah buatkan, tapi saya mau lihat program yang mas Chris buat, biar bisa belajar sama-sama di sini.

    Terima Kasih.

  10. Siang , mas @Eunike Abigail

    maaf terlalu lama membalasnya
    5 hari buat memahami alur find scrip saya ^_^; , tapi tidak tahu ini sudah benar atau tidak ( untuk tujuan yg saya cari ) script berjalan normal

    pertanyan no 2+3 sudah berhasil saya buat ( apkah scrip sudah banar atau tidak masih belum tahu , karena berjalan normal sya beranggapan sudah benar ) heehheehhe :)

    untuk pertanyaan nomer 4 , saya hanya bisa sampai find saja ( + Penambhan backcolor jika sudah ada datanya ) ,masih ada tapinya ^_^; ( wkwkwkw ) , ragu untuk ke split nya
    apakah script find saya sudah benar untuk menacari tujuan yang saya maksut

    4. apakah bisa Mengatasi data ganda di Input di Intsansi + kota ?
    jika ada Data PT.A kota Malang , ingin input PT.A kota Malang akan otomatis msgbox " DATA GANDA " muncul , jika Input PT.A kota Surabya di izinkan , jika input PT.B kota Malang di iznkan


    jika salah , bisakah diberitahu untuk letaknya :) , jika sudah benar + saya akan coba palajari lagi bagian split nya :) untuk nextya

    Terima kasih

  11. Ok mas Chris, formnya masih bisa masukan nama ganda, ngga apa-apa mas namanya juga belajar, saya juga masih belajar mas, ini program yg saya buat, mungin bisa belajar sama-sama.

    Terima Kasih.

  12. Mas @Eunike Abigail
    Siap , saya coba pahami
    Terima kasih , sudah dibantu :)

  13. Sama-sama mas, kalau masih ada pertanyaan di persilahkan...

    Terima Kasih.

  14. pagi ,.
    Mas @Eunike Abigail
    mau tanya mengenai control listbox

    adakah conttoh sederhana untuk menampilkan data Area B4 : F23 ke listbox ?
    dengann kondisi per data dapat di klik , ( per data per cell ) ( saya mecoba menacri googling tidak ketemu )
    saya pakai script ini ,.

    Dim a As Integer
        Dim z As Long
        Dim Sh As Worksheet
        
         Set Sh = ThisWorkbook.Worksheets("WORKSHOP")
        a = Application.WorksheetFunction.CountA(Sh.Range(Cells(4, 2), Cells(23, 6)))
    
       Dim BarisB As Long
        
        BarisB = ThisWorkbook.Worksheets("WORKSHOP").Range("A" & Rows.Count).End(xlUp).Row
       
        
        Me.LsFrom.ColumnCount = 2
        
        For z = 4 To Sh.Range("A" & Rows.Count).End(xlUp).Row
        
        If BarisB = 1 Then
            Me.LsFrom.RowSource = "WORKSHOP!A4:F4"
        Else
           Me.LsFrom.RowSource = "WORKSHOP!A4:F" & BarisB
        End If
        
        If BarisB = 1 Then
            Me.LsFrom.RowSource = "WORKSHOP!B4:F4"
        Else
           Me.LsFrom.RowSource = "WORKSHOP!B4:F" & BarisB
        End If
        Next z


    saat saya klik , malah 1 baris ter klik semua

    Terima kasih

  15. Contoh lampiranannya bisa mas..

  16. @Eunike Abigail
    maaf lupa upload :)
    UNIT NEW.xlsb

  17. Selamat siang mas Chris,

    1. Ada beberapa contoh penggunaan Listbox untuk men-cover beberapa data yang kita inginkan (bisa di googling), jangan terpaku hanya menggunakan Listbox, saya ada contoh menggunakan ListView, masalahnya computer mas Chris bisa ngga menapilkan tool ListView, terus terang saya jarang menggunakan Listbox sebagai Visualisasi suatu data.
    2. Suatu Listbox memang di design untuk mengambil data 1 list(deret) bukan induvidual sama halnya dalam penggunaan ListView, jika mau mengambil satu data secara individual seperti kita mengklik di sebuah sheet, butuh cara yang banyak mas, karena kalo yang saya lihat, mas Chris mau mengambil sebuah data dari Listbox kemudian data individual itu mau di transfer/dipindahkan sesuai keinginan (kira-kira...).

    Terima Kasih.

  18. Di sunting 8 bulan yang lalu oleh Chris212

    @Eunike Abigail

    Ada beberapa contoh penggunaan Listbox untuk men-cover beberapa data yang kita inginkan (bisa di googling), jangan terpaku hanya menggunakan Listbox, saya ada contoh menggunakan ListView, masalahnya computer mas Chris bisa ngga menapilkan tool ListView, terus terang saya jarang menggunakan Listbox sebagai Visualisasi suatu data.

    iya mas , saya mncoba mencari googling yang saya temui listbox mengambil 1 baris ( deret ) , untuk listview dikomputer saya tidak bisa berjalan muncul error " Method or data member not found " ( lagi saya coba mencari solusinya )

    Suatu Listbox memang di design untuk mengambil data 1 list(deret) bukan induvidual sama halnya dalam penggunaan ListView, jika mau mengambil satu data secara individual seperti kita mengklik di sebuah sheet, butuh cara yang banyak mas, karena kalo yang saya lihat, mas Chris mau mengambil sebuah data dari Listbox kemudian data individual itu mau di transfer/dipindahkan sesuai keinginan (kira-kira...).

    benar mas , yg saya cari seperti itu
    listbox 1 bisa transfer data ke listbox 2 dan sebaliknya , listbox acuannya dari Combobox yg diplih ( header instansi + kota )

    berati saya mulai dari , problem listview di pc , dan memahami penggunaan listviewnya :)

    Terima kasih mas @Eunike Abigail

  19. Untuk menambahkan tool ListView dalam properties, mas bisa copy file MSCOMCT2.OCX sama MSCOMCTL.OCX (bisa di gooling caranya) , setelah tercopy bisa di run, baru nanti ada di propertiesnya, tapi kalo officenya ori biasanya sudah ada sendirinya mas...

    Terima Kasih.

  20. @Eunike Abigail
    sudah mas , saya cek ke C:\Windows\SysWOW64 sudah ada , terus saya cek ke C:\Windows\System32 tidak ada ( saya copykan dari SysWOW64 masih error" Method or data member not found "
    saya cek ke trusted center setting --> ActiveX setting saya ubahke Enable all masih error

    setelah cek lagi ternyata Listview di userform saya hilang ( terhapus ) ^^; heheeheh
    saya masih mencoba cari referenci listview + pelajari :) ,ada bebarapa yg ketemu tapi masih satu baris ( deret )

  21. Ok mas, ini saya kasi contohnya menggunakan ListView dengan select per cell dengan bantuan optionbutton sebagai nilai X nya.
    semoga bisa buat refrensi untuk penggunaan ListView.

    Terima Kasih.

 

atau Mendaftar untuk ikut berdiskusi!