menggabungkan sheet

  1. 5 minggu lalu

    Dear master,
    Mohon dapat dibantu script untuk menggabung 2 sheet menjadi sheet baru gabungan, dimana tidak boleh item yang sama tertulis double.

    terima kasih

  2. manweljs_

    Mei 21 Terverifikasi + 8.798 Poin

    @nafis2006 ...Mohon dapat dibantu script untuk menggabung 2 sheet menjadi sheet baru gabungan...

    contoh filenya ada 3 sheet + 1 hidden sheet. 2 sheet yang dimaksud itu yg mana?

    @nafis2006 ...dimana tidak boleh item yang sama tertulis double...

    dari gambar ini, yang dimaksud item yang sama itu yang mana?

    item sama.PNG

  3. mas @manweljs_ ....
    dapat saya jelaskan sbb;

    1. 2 sheet yang dimaksud "PK-Hotel" dan "PL-Hotel"
    2. Item yang tidak boleh double, yang ada dibaris colomn B:B atau colomn "toilet" baris kebawah....

    terima kasih sebelumnya mas

  4. manweljs_

    Mei 22 Terverifikasi + 8.798 Poin

    @nafis2006 ... Item yang tidak boleh double, yang ada dibaris colomn B:B atau colomn "toilet" baris kebawah....

    oh berarti dari gambar diatas yang tidak dobel itu hanya :

    • TOILET
    • Toilet Hotel No. 1
    • Toilet Hotel No. 2 & 3
    • Toilet Hotel No. 4 - 7

    yg lainnya dobel semua, betul kan ?

  5. mas @manweljs_ ...
    yang tidak boleh double item adalah contoh ;

    1. Pipa PPR - PN 10 Ø 25 mm
    2. Pipa PPR - PN 10 Ø 20 mm
    3. Pipa PPR - PN 10 Ø 15 mm
    4. Dll, semua yang berada di colomn tersebut mas

    sehingga hanya item perwakilannya saja.

    terima kasih banyak mas

  6. manweljs_

    Mei 22 Terverifikasi + 8.798 Poin
    Di sunting 5 minggu lalu oleh manweljs_

    @nafis2006

    berarti yg anda sebutkan itu dobel semua

    yg dimaksud item perwakilan itu apa? tolong dijelaskan sejelas2nya kalo perlu tandai item yang akan copy ke sheet baru biar bisa dipahami. teman2 disini kan tidak bisa membaca pikiran anda :)

    atau kalo ada teman2 lain yg paham, silahkan dibantu.

  7. mas @manweljs_ ...
    maaf merepotkan..... jadi memang kebanyakan item2 sama ada yang double bahkan sampai triple yang membedakan volumenya saja (di sini volumenya diabaikan saja gpp ). sehingga pada sheet gabungan hanya terdiri dari beberapa item saja, nantinya item tersebut akan saya buat linknya. mungkin di dalam contoh hanya 2 sheet yang digabungkan, nanti akan dicoba dikembangkan menjadi gabungan beberapa sheet.
    demikian mas.... terima kasih sebelumnya..

  8. Anda punya tabel dengan lay out yang kurang bagus, dan tidak diberikan hasil yang diinginkan dari data mas @nafis2006 , coba sederhanakan file anda, hanya fokus pada yg anda tanyakan, kemudian ketik manual pada file, hasil yang diharapkan.

  9. manweljs_

    Mei 22 Terverifikasi + 8.798 Poin

    @nafis2006 ...jadi memang kebanyakan item2 sama ada yang double bahkan sampai triple yang membedakan volumenya saja (di sini volumenya diabaikan saja gpp ). sehingga pada sheet gabungan hanya terdiri dari beberapa item saja, nantinya item tersebut akan saya buat linknya...

    sepertinya yg anda perlukan cuma RemoveDuplicate, coba skrip berikut :

    Sub test()
    Dim sh As Worksheet, Xsh As Worksheet
    Set Xsh = Sheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    Xsh.Name = "TES"
    For Each sh In ThisWorkbook.Worksheets
        If InStr(sh.Name, "Hotel") Then
            With sh
                .Range("B9:B" & r(sh)).Copy Xsh.Range("B" & r(Xsh))
            End With
        End If
    Next
    Xsh.Cells.UnMerge
    Xsh.Range("B1:B" & r(Xsh)).RemoveDuplicates Columns:=1
    
    End Sub
    Function r(sh As Worksheet)
        r = sh.Range("B" & Rows.Count).End(xlUp).Row
    End Function

    kalo belum sesuai, silahkan diskusikan lagi

  10. mas @manweljs_ ....
    terima kasih banyak script nya sudah berfungsi.....

  11. mas @manweljs_ ...
    mohon maaf ada tambahan lagi.... kalau mau difungsikan untuk Activeworkbook..
    kira2 merubahnnya dimana yah mas....
    maaf merepotkan.... terima kasih

  12. manweljs_

    Mei 23 Terverifikasi + 8.798 Poin

    @nafis2006 ...kalau mau difungsikan untuk Activeworkbook..kira2 merubahnnya dimana yah...

    tidak ada yg perlu dirubah, paste aja skrip diatas ke workbook yg aktif

  13. mas @manweljs_ ...
    sudah bisa mas....terima kasih banyak

 

atau Mendaftar untuk ikut berdiskusi!