#Ask Bisakah Vba melakukan proses ini ??

  1. 8 bulan yang lalu

    Siang ,.

    Mau tnya apakah bisa Vba melakukan proses ini :
    Saya memiliki Data berikut :
    SUSAH.png

    Tujuannya :
    input data menggunakan UserForm , dengan alur

    1. No auto , mulai dari A4-A23 ( 1-20 saja )
    2. Saat input nama Unit start dari B4 -B23 , Jikas sudah sampai B23 akan berpindah ke C4-C23 dst ( ini hanya boleh terjadi di Range Kolo A-F , di kolom G tidak boleh )
    3. Menambah Nama + Kota ( G2 untuk nama , G3 untuk kota ) dimana itu bisa berlanjut di H1+H3 dst

    Terima kasih

  2. Mungkin ini bisa membantu, terima kasih..

  3. @Eunike Abigail
    Terima kasih

    mau bertnya lagi

     Kolom_Akhir = Sh.Cells(2, Columns.Count).End(xlToLeft).Column


    itu harus ditulis bagaimana agar command Delete bisa berjalan berdasrkan Combobox ( Kriterianya )

  4. Mungkin maksudnya seperti ini...

    Terima Kasih.

  5. @Eunike Abigail

    iya seperti ini , tapi yang saya maksud delete beserta kolomnya ( jika bisa yg didelete kolom tsb + hanya sebatas ampai row 23 )
    Maaf pertanya saya seblumnya kurang lengkap ,.

    WOW NEXT.png

    Terima kasih

  6. 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.

  7. 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

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

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

  10. 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 ;)

  11. 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.

  12. @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

  13. 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.

  14. 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

  15. 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.

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

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

    Terima Kasih.

  18. 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

  19. Contoh lampiranannya bisa mas..

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

  21. Newer ›
 

atau Mendaftar untuk ikut berdiskusi!