Copy Sell di Sheet

  1. 9 tahun lalu
    Di sunting 9 tahun lalu oleh Daengta

    selamat siang, mohon bantuan para master Excel....... saya punya file database1.exls yg merupakan tabel data yg terdiri dari 209 Sheet format tabel yg sama, masalahnya adalah bagaimana cara menyatukan tabel tersebut dalam 1 sheet saja ( Copy row 13 - 55 dan kolom A - M ). mohon pencerahan All.....

  2. Masdad

    16 Jun 2015 Terverifikasi Demak + 2.198 Poin

    Untuk masalah ini sepertinya harus pake Macro, karena gak ada filenya saya coba buat contoh sederhananya saja, dengan menggunakan script macro/vba sebagai berikut:

    Sub GabungSheet()
    Dim BE As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Semua Data"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For BE = 2 To Sheets.Count
    Sheets(BE).Activate
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
    Selection.Copy Destination:=Sheets(1).Range("A1000").End(xlUp)(2)
    Next
    With Sheets("Semua Data")
        .Columns("A").ColumnWidth = 24.43
        .Columns("B").ColumnWidth = 16.57
        .Columns("C").ColumnWidth = 8.43
        .Columns("D").ColumnWidth = 8.43
        .Select
    End With
    End Sub

    Silahkan di kembangkan dan disesuaikan dengan data sheet yg ingin digabungkan.

  3. Afe

    17 Jun 2015 Terverifikasi Semarang + 210 Poin

    Super Sekali. . .
    Simple n Josss....

  4. maaf gan baru kirim filenya

  5. Masdad

    17 Jun 2015 Terverifikasi Demak + 2.198 Poin

    Seperti inikah hasil yang diinginkan???
    maaf gak sempet ngecek satu-satu sheetnya...

  6. brofo master Masdad, trims bantuannya, pekerjaan saya jadi ringan..... prosesnya / kodingnya gimanan gan & . kalo bisa sheet 2, dst.... judulnya ga usah di copy gan.... juga jgn ada row yg kosong n 1 lagi gan row yg ada tulisan jumlah (motor, cermin, lemari ) juga ga perlu di copy gan...

    brafo.... master Masdad

  7. Masdad

    17 Jun 2015 Terverifikasi Demak + 2.198 Poin

    ini codingnya untuk judul hanya Tabel1 saja yang di copy, Tabel lainnya sudah tidak ikut tercopy, untuk kolom jumlah masih ikut tercopy (belum nemu scriptnya) maklum sambil kerja :)

    Sub GabungSheet()
    Dim BE As Integer
    On Error Resume Next
        Sheets(1).Select
        Worksheets.Add
        Sheets(1).Name = "All Sheets"
        Sheets(2).Activate
        Range("A10:A12").EntireRow.Select
        Selection.Copy Destination:=Sheets(1).Range("A4")
    For BE = 2 To Sheets.Count
        Sheets(BE).Activate
        Range("A13").Select
        Selection.CurrentRegion.Select
        Selection.Offset(3, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).Range("A1048576").End(xlUp)(2)
    Next
    With Sheets("All Sheets")
        .Select
        .Columns.AutoFit
    End With
    End Sub
    

  8. Masdad

    17 Jun 2015 Terverifikasi Demak + 2.198 Poin

    Dan ternyata hasilnya ada yang bergeser, setelah diperhatikan ternyata table ke 100-208 kolomnya sampai Q sedang Table 1 - 99 kolomnya sampai P. jadi bukan codingnya yang salah tapi tabelnya yang beda...

 

atau Mendaftar untuk ikut berdiskusi!