beberapa tabel menjadi 1 Tabel

  1. 3 minggu lalu

    selamat malam agan2 master excel yang baik hati dan selalu berbagi ilmu.
    semoga selalu diberi keberkahan dan kesehatan dalam setiap aktifitas nya.

    ijinkan saya menambah ilmu saya dengan bantuan para senior2 excel di forum ini,
    saya memiliki data yang terpecah2 menjadi beberapa tabel, yang mana saya ingin merapihkannya menjadi 1 tabel saja agar memudahkan pekerjaan data lainnya kedepan.

    file contoh terlampir, jikalau berkenan lebih jauh, saya ingin 2 contoh penyelesaian dengan formula dan dengan makro, dikarenakan saya saat ini sedang mempelajari makro dan masih membutuhkan banyak bimbingan para senior2 sekalian.

    terimakasih saya ucapkan sebelum dan sesudahnya
    best regards

    1tabel aja.xlsx

    @bLurz kuromaru

    terlampir contohnya

    Note :

    1. saya pribadi lebih baik menggunakan makro
    2. jangan minta penjelasan mengenai formulanya, soalnya bakalan panjang :D
  2. manweljs_

    Apr 4 Terverifikasi Jawaban Terpilih + 8.041 Poin
    Di sunting 3 minggu lalu oleh manweljs_

    @bLurz kuromaru

    terlampir contohnya

    Note :

    1. saya pribadi lebih baik menggunakan makro
    2. jangan minta penjelasan mengenai formulanya, soalnya bakalan panjang :D
  3. cantik sekali @manweljs_ , terimakasih banyak atas ilmunya yg bermanfaat.
    aman pak, saya gak akan tanya2 utk rumusnya, liatnya aja udh rumit, just in case aja, sekaligus menambah pengetahuan.
    saya pun prefer ke Makro, soalnya lebih simple rumusannya, lebih ringan di file nya dan lebih cepat proses nya dibanding memakai formula.

    sekali lagi saya ucapkan terimakasih banyak pak @manweljs_
    sukses selalu

  4. Maaf pak @manweljs_ , saya sepertinya perlu bantuan anda lagi
    saya kesulitan mencoba mengubah lokasi Data maupun tabelnya,
    saya sudah mencoba mengubah disekitaran rumus ini:

    For Each sel In rng
        If sel.Column Mod 2 = 1 And sel <> vbNullString Then
            x = Range("N" & Rows.Count).End(xlUp).Row + 1
            Cells(x, 14) = sel
            Cells(x, 15) = Cells(1, sel.Column)
            Cells(x, 16) = sel.Offset(0, 1)
        End If


    untuk mengubah lokasi tabel hasil & datanya, tapi urutannya selalu acak, bisa dibantu kembali pak?
    misalkan saya mau ambil data di T7-AU40, dan untuk tabel hasilnya diubah jadi kolom P38-R85, apa yg harus sy ubah?
    terimakasih sebelum dan sesudahnya

  5. manweljs_

    Apr 6 Terverifikasi + 8.041 Poin

    @bLurz kuromaru ...untuk mengubah lokasi tabel hasil & datanya, tapi urutannya selalu acak, bisa dibantu kembali pak?
    misalkan saya mau ambil data di T7-AU40, dan untuk tabel hasilnya diubah jadi kolom P38-R85, apa yg harus sy ubah?...

    coba :

    ...
    Set rng = Range("T7:AU40")
    Range("P38:R85").ClearContents
    For Each sel In rng
        If sel.Column Mod 2 = 0 And sel <> vbNullString Then
            x = Range("P86").End(xlUp).Row + 1
            Cells(x, 16) = sel
            Cells(x, 17) = Cells(1, sel.Column)
            Cells(x, 18) = sel.Offset(0, 1)
        End If
    Next
    ...

  6. terimakasih pak @manweljs_ atas ilmunya, untuk kasus ini solved.

    jika berkenan saya ingin bertanya lagi sedikit untuk pembelajaran kedepannya, misalkan :

    1. saya ingin memakai makro ini di beberapa sheet berbeda, apa yg harus sy tambahkan/bagaimana sy melakukannya
    2. misalkan tabel datanya terbagi 2, cth ("T7:AU40,T42:AU80") untuk kode

    Cells(x, 17) = Cells(1, sel.Column)
    apa yg hrs sy tambahkan untuk mengambil lokasi di data ke 2 ("T41-AU41")

    terimakasih banyak atas ilmunya pak @manweljs_ , GBU

  7. manweljs_

    Apr 6 Terverifikasi + 8.041 Poin
    Di sunting 3 minggu lalu oleh manweljs_

    @bLurz kuromaru ...apa yg hrs sy tambahkan untuk mengambil lokasi di data ke 2 ("T41-AU41")...

    cara paling mudah adalah membuat baris perintah makro baru untuk range ke-2 (T42:AU80). skripnya sama aja dengan sebelumnya, hanya untuk bagian perintah mengambil nilai lokasinya dirubah menjadi :

    ...
    Cells(x, 17) = Cells(41, sel.Column) 
    ...

    lengkapnya :

    ...
    Dim rng1 As Range, rng2 As Range, sel As Range
    Set rng1 = Range("T7:AU40")
    Set rng2 = Range("T42:AU80")
    Range("P38:R85").ClearContents
    For Each sel In rng1
        If sel.Column Mod 2 = 0 And sel <> vbNullString Then
            x = Range("P" & Rows.Count).End(xlUp).Row + 1
            Cells(x, 16) = sel
            Cells(x, 17) = Cells(6, sel.Column)
            Cells(x, 18) = sel.Offset(0, 1)
        End If
    Next
    For Each sel In rng2
        If sel.Column Mod 2 = 0 And sel <> vbNullString Then
            x = Range("P" & Rows.Count).End(xlUp).Row + 1
            Cells(x, 16) = sel
            Cells(x, 17) = Cells(41, sel.Column)
            Cells(x, 18) = sel.Offset(0, 1)
        End If
    Next
    ...

 

atau Mendaftar untuk ikut berdiskusi!