POWER QUERY DI UBAH KE VBA

  1. 2 minggu lalu

    Selamat Sore Para Master

    Mohon bantuannya.. saya mau membuat data before after pegawai, data sudah saya olah pake power query excel
    Tetapi mau saya terapkan di VBA Macro Excel dengan cara sekali klik pake button..
    File excel terlampir.. mohon pencerahannya ya master dan teman-teman

    Terima kasih

  2. Masdad

    Jan 9 Terverifikasi Demak + 2.162 Poin

    Saya ubah posisi range data hasilnya biar lebih enak lihatnya.

    area dan jabatan.gif

    Dan ini script VBA yang digunakan:

    Sub tes()
    Dim x As Integer: x = 3
    Dim i As Integer, v As Integer
    For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 2
            Cells(x, 8) = Cells(i, 3)
            Cells(x, 9) = Cells(i, 4)
            Cells(x, 10) = Cells(i + 1, 4)
            Cells(x, 11) = Cells(i, 5)
            Cells(x, 12) = Cells(i + 1, 5)
        x = x + 1
    Next i
    
    'Bandingkan Area dan Jabatan
    For v = 3 To Cells(Rows.Count, 8).End(xlUp).Row
        'Bandingkan Area Sebelum dan Sesudah
        If Cells(v, 9) = Cells(v, 10) Then
           Cells(v, 9) = "-"
           Cells(v, 10) = "-"
        End If
        'Bandingkan Jabatan Sebelum dan Sesudah
        If Cells(v, 11) = Cells(v, 12) Then
           Cells(v, 11) = "-"
           Cells(v, 12) = "-"
        End If
    Next
    End Sub

  3. Terima kasih master.. bisa kah dibuatkan penjelasannya master supaya saya bisa memahami coding yg master buat step by step

  4. Masdad

    Jan 9 Terverifikasi Demak + 2.162 Poin

    ini saya kasih penjelasan tapi hanya sekilas saja, mudah-mudahan bisa di mengerti.

    penjelasan.png

  5. Master misalkan datanya ada 1000 orang, apakah kodingnya masih bisa pakai itu atau ditambahi?

  6. Masdad

    Jan 9 Terverifikasi Demak + 2.162 Poin

    iya masih bisa, karena variabel untuk looping barisnya pakai tipe data Integer maka bisa di pakai sampai maksimal 32.767, jika lebih bisa ubah semua tipe datanya ke Long

    Dim x As Long: x = 3
    Dim i As Long, v As Long

    dan akan bisa di pakai sampai baris terakhirnya Excel, masih lebih dari cukup.

  7. Terima kasih banyak master atas perceraiannya.
    Sama mau tanya lagi, kalau misal mau saya kasih nomor bisa gak master?
    Jadi di kasih no. Urut berdasarkan nama

    1 harmanto
    2 harmanto
    1 rahmat h
    2 rahmat h
    1 sumanta
    2 sumanta

  8. Masdad

    Jan 9 Terverifikasi Demak + 2.162 Poin

    harusnya sih gak masalah, asal nama yang sama tetap beurutan.

  9. Kalau mau buat pake rumus, pake rumus excel apa master buatnya nomor urut itu?

  10. Masdad

    Jan 9 Terverifikasi Demak + 2.162 Poin

    oh, ya ini yang mau di kasih nomor urut, data sumbernya, apa data hasilnya?

    Untuk nomor urut dengan kriteria bisa memanfaatkan fungsi COUNTIF

  11. Data sumbernya master.. biar saat datanya ada ribuan tinggal sort descending terus dikasih no. Urut
    Lalu saya filter pilih no. 1 2 master kemudian lanjut pake kodingnya master

  12. Masdad

    Jan 9 Terverifikasi Demak + 2.162 Poin

    Oh begitu. Apa tidak bisa langsung sort by nama saja.

    Tapi kalau memang inginnya buat nomor berdasarkan nama, berarti eksekusinya juga di Power Query. Mungkin tutorial dari channel Youtube ExcellsFun ini bisa jadi referensi.

  13. Kalau sudah di olah pake power query, apakah bisa direcord macro kak? Cara merubah jadi coding vba nya bagaimana
    Mohon pencerahannya

  14. Masdad

    Jan 9 Terverifikasi Demak + 2.162 Poin
    Di sunting 2 minggu lalu oleh Masdad

    Bukannya memang pertanyaannya dari awal kan itu ya, data hasil olahan power Query, di olah lagi pakai VBA biar hasilnya sesuai yang diharapkan.

  15. Baik Master Masdad terima kasih banyak atas bantuannya

  16. minggu lalu

    Master masdad mohon pencerahannya lagi.. Misalkan ada 3 mutasi atau 1 mutasi data cara membuat coding vba nya bagaimana? Yang saya tanyakan ada dilampiran
    File terlampir

 

atau Mendaftar untuk ikut berdiskusi!