Geser / acak posisi

  1. 6 bulan yang lalu

    Siang om @Caton

    Jika saya ingin acak/geser posisi , seperti pada file terlampir
    Untuk vba / formulanya seperti apa yaaa om :)

    Terima kasih atas bantuannya

  2. Caton

    Jun 10 Terverifikasi Indonesia + 17.716 Poin

    Mbak @anggun123 ...

    Coba diperiksa file terlampir, mungkin sesuai yang diinginkan. Pada file terlampir, alamat range yang akan diacak posisi datanya saya definisikan melalui Named Range — jadi sekiranya ingin mengganti range data yang akan diacak, cukup mengubah alamat range tersebut melalui Name Manager.

    Untuk percobaan, panggil prosedur Sub IsiDataAcak melalui jendela Macro (ALT F8). Untuk menggunakan script intinya, ada pada prosedur Sub AcakPosisiData.

    Demikian, semoga sesuai.

  3. terima kasih om @Caton sudah berjalan sesuai harapan
    akan tetapi ketika saya coba masukkan data saya,,, kok error yaaa om :)

    Screenshot_1.png

  4. Caton

    Jun 10 Terverifikasi Indonesia + 17.716 Poin

    Mbak @anggun123 ...

    Kesalahan tersebut terjadi karena awalnya script VBA-nya saya susun dengan asumsi minimal data per baris yang akan diproses lebih dari 1 kolom. Saat data yang akan diproses hanya ada 1 kolom data saja, array datanya tidak memiliki indeks, karena proses transpose array hanya akan menyalin data apa adanya (tanpa dikonversikan ke dalam array). Solusinya sebenarnya tidak rumit, cukup mengganti kondisi pengujian nilai lCount > 0 seperti terlihat pada gambar :

    image_2021-06-10_164200.png

    menjadi lCount > 1.

    Pada file terlampir saya tambahkan perbaikan agar jika datanya hanya terdiri dari 1 kolom maka data akan disalin ke kolom pertama (kolom E). Semoga sesuai.

    Demikian.

  5. terima kasih banyak om @Caton
    sesuai yg diharapkan :)

 

atau Mendaftar untuk ikut berdiskusi!