ExcelMacro - macro ubah jurnal umum ke buku besar model T

Tampilan macro adalah sbb :

Gb. Input Nomer Akun dan Tombol Run macro

Selain sheet untuk Run Macro, juga ada 2 sheet lain yang berisi transaksi jurnal umum dan sheet master
akun, berikut tampilannnya :

Gb. Sheet Jurnal Umum

Gb. Sheet Master Akun

Untuk mencoba macro ini, isikan nomer akun,kemudian klik tombol Run Macro. Berikut bentuk buku besar

setelah menjalankan macro.

Gb. Buku Besar

 

Silahkan donlot file macro disini >> mediafire

semoga bermanfaat !!

Read More..

MacroExcel - dashboard sederhana

Dengan sedikit code macro , tabel data sederhana dan grafik bisa menjadi informasi yang cukup menarik.

Gb. data dan grafik

Pada gambar di atas terdapat 1 tabel data dan 2 grafik, dengan posisi kursor ada di cell C26. Selanjutnya
coba letakan kursor pada cell M24, maka akan didapat tampilan sbb :

Gb. perubahan grafik dan warna tabel setelah posisi kursor berubah

Untuk code macronya diletakan di event prosedur Worksheet_selectionChange, sub prosedur bawaan
excel yang akan dijalankan ketika terjadi perubahan seleksi cell pada sheet.

Gb. code macro

untuk file contoh bisa didonlot di >> mediafire

Read More..

MacroExcel - auto filter untuk hapus baris data kriteria tertentu

Pengunaan auto filter dalm menghapus data sebenarnya sudah pernah dicontohkan di postingan berikut
split-data-all-cabang, kali ini dicontohkan hampir mirip tetapi lebih detail dan sedikit komplek.
Langsung saja berikut tampilan macronya :

Gb. Macro hapus data kriteria tertentu

Dari gambar di atas, dicontohkan bahwa data yang akan dihapus adalah data yang kolom Nama nya diawali dengan kata buku. Jika tombol Run Macro  diklik maka akan muncul pesan sbb :

Gb. pesan setelah klik Run Macro

Setelah hapus selesai, untuk mencoba kriteria lain bisa melakukan reset data terlebih dahulu, agar contoh 

lebih banyak dan variatif dengan klik tombol Reset data.

Gb. pesan setelah reset data

Jika kriteria tidak ada maka akan muncul pesan berikut :

Gb. pesan tidak data dengan kriteria yang dimaksud

File macro bisa didonlot di sini >> http://www.mediafire.com/?2iw15vkttk47zim

semoga bermanfaat :) 

Read More..

MacroExcel - Input, Edit, Hapus dan menampilkan laporan data dengan gambar/foto

Hampir sama seperti postingan macro excel sebelumnya macroexcel-insert-file-gambar, namun macro kali ini
lebih lengkap yaitu mldai dari input data, pencarian data, edit, hapus dan menampilkan data dalam bentuk
report. Macro ini adalah gabungan menu data anggota koperasi pada postingan
macroexcel-aplikasi-koperasi-part-1 dan macroexcel-insert-file-gambar.

*Klik gambar untuk memperbesar
Langsung saja berikut adalah tampilan menu macro ini :

Gb. Menu Macro database image

Ada 4 menu, yaitu Inpu Baru, Edit/Delete data, report one column(Laporan format 1 kolom) dan report

two column(Laporan format 2 kolom). Pertama mulai dengan Input Baru,

Gb. Form Input Baru

Cara pemakaiannya sama seperti postingan2 sebelumnya, isikan semua kelengkapan data, kemudian

tambahkan foto/gambar dengan mengklik tonbol Load Image. Setelah itu klik Save Data untuk melakukan

penyimpanan. Hasil bisa dilihat di menu report atau ke sheet tabel.

Menu kedua ada Edit/Delete Data, berikut tampilannya :

Gb. Menu Edit/Delete data

Cara penggunaanya adalah dengan menginputkan kata kunci penacrian, misal seperti ini :

Gb. Penginputan kata kunci

Kemudian klik tombol Search, maka data akan muncul (jika pencarian berhasil).

Gb. Form Edit/Delete data setelah pencarian

Setelah data tampil, bisa dilakukan perubahan data maupun foto/gambar, dan klik tombol Save Data jika

perubahan sudah selesai (untuk menghapus data bisa klik tombol Delete). Cek perubahan dengan 

mengulangi pencarian data yang sama atau dengan melihat report maupun tabel database.

Selanjutnya ke menu yang ketiga dan keempat, tujuan pembuatan kedua menu ini adalah sama, yaitu

menampilkan data yang ada di sheet tabel ke dalam format laporan. Perbedaannya untuk report yang 

tampilannya berberntuk satu kolom sedangkan yang kedua dalam format dua kolom, untuk lebih jelasnya 

bisa dilihat pada gambar di bawah ini :

Gb. Report one column (laporan satu kolom)

Gb. Report two column (laporan dua kolom)

Demikian contoh macro olah database dengan file gambar/foto.

Untuk file contoh bisa didonlot disini :

http://www.mediafire.com/?g1a18s4a3v2j769

Info Tambahan :

File lampiran
Pada file lampiran di atas, terdapat 2 folder, yaitu VbaImageDatabase dan photos, folder inti dari macro
excel ini adalah folder VbaImageDatabase, yang mana di dalamnya sudah terdapat file excel
VbaImageDatabase.xls dan folder images(tempat menyimpan file gambar yang ada di database).
Sedangkan folder photos adalah folder tambahan yang berisi file gambar, yang sengaja dilampirkan agar
agan tidak perlu repot2 lagi kalo mau coba menjalankan macro excel ini.

Gambar di file Excel melar atau membesar dan geser dengan sendirinya saat file dibuka
Bila agan memakai ms excel 2007 up, biasanya saat buka file terdapat perubahan ukuran shape atau gambar
dan letaknya juga bergeser. Sehingga tampilannya menjadi buruk, untuk mengatasi permasalahan ini agan
lakukan zoom out dan kemudian zoom in kembali  sheet yang bermasalah tadi (dilakukan per sheet).

Gb. Contoh sheet yang tampilan shape/gambarnya melar

Gb. Contoh tampilan sheet yang sudah benar (setelah zoom out dan zoom in)

note : untuk contoh silahkan cek posisi tombol Search pada tampilan yang masih kacau dan sudah benar.

Read More..

MacroExcel - insert file gambar dan simpan ke tabel

Macro excel kali ini adalah contoh cara menambahkan gambar ke file excel dan merubah background shape
dengan file gambar, serta menambahkannya kedalam sebuah tabel database. Berikut tampilan akhir dari
macro excel ini :

Gb. Tabel gambar emo

Cara menjalankan macro input gambar emo ini adalah sbb :
Pertama buka file MacroPicture.xls, dan pilih sheet formInput, akan muncul tampilan seperti di bawah :

Gb. Tampilan sheet formInput

Kemudian isikan Nama Emo, Jenkel dan Keterangan, untuk contoh bisa melihat gambar dibawah :

Gb. Pengisian data kelengkapan data emo

Untuk pengisian File Pic (file gambar emotion) caranya dengan mengklik tombol LoadPic, yang nantinya 

akan muncul jendela open file gambar seperti berikut :

Gb. Jendela open file gambar

Setelah ketemu file gambar yang sesuai , klik gambar dan klik Open, maka tampilan shape yang sebelumnya kosong dan berwarna hijau sekarang berubah menjadi gambar emo yang kita pilih, bisa dilihat pada gambar 

di bawah : (contoh file emo sudah ada di file lampiran folder picture)

Gb. Tampilan shape setelah klik tombol LoadPic

Jika langkah di atas sudah dilakukan, terakhir klik tombol SaveEmo, lihat hasilnya pada sheet tabelEmo.
Sementara ini dulu artikel contoh macro yang berhubungan dengan file gambar, selanjutnya akan diposting
contoh macro database file gambar yang lebih komplex (bisa pencarian, edit dan hapus database).

File contoh macro ini bisa didonlot di >>
MacroPicture (mediafire) 
atau
MacroPicture (ziddu)

Read More..

MacroExcel - rekonsiliasi 2 data

Biasanya dalam pekerjaan, kita sering membandingkan 2 data untuk mencari perbedaan / kesamaan diantara
2 data tsb.Aktifitas ini biasa disebut rekonsiliasi. Macro kali ini berfungsi untuk mengotomatisasi proses
rekonsiliasi tsb, tentu saja dalam contoh data yang sederhana. Detailnya sbb :

Kita memiliki 2 data yang formatnya sama, yang ada di sheet data1 dan di sheet data2, berikut screennya :

Gb. Data di sheet data1

Gb. Data di sheet data2

Pada 2 data di atas jika kita perhatikan maka ada beberapa perbedaan sbb :
- pada sheet data1 terdapat item 04 - Pensil sedangkan di sheet data2 tidak ada
- untuk item 07 -Penggaris, di kedua sheet ada, namun jumlahnya berbeda, di sheet data1 berjumlah 6 se-
  dangkan di sheet data2 hanya berjumlah 4 (ada selisih 2)
- di sheet data2 ada item 19 - Kayu dan 20 - Besi, namun di sheet data1 tidak ada

Nah, fungsi macro ini adalah untuk mengetahui perbedaan tsb di atas secara otomatis, perbedaan ini akan
akan ditampilan dalam berntuk keterangan di sheet data1 pada kolom D, berikut hasil proses macro :

Gb. Hasil proses macro rekonsiliasi

Sekian macro rekonsiliasi, untuk filenya bisa didonlot di >>> Macrorekonsiliasi2data.xls

semoga bermanfaat

Read More..

MacroExcel - aplikasi koperasi (part 2) penarikan simpanan, peminjam baru dan angsuran

Melanjutkan postingan sebelumnya macroexcel-aplikasi-koperasi-part-1, berikut menu penarikan simpanan, peminjam baru dan angsuran pinjaman :

Gb. Form penarikan simpanan

Gb. Form eminjaman baru

Gb. Form angsuran pinjaman

Selain tambahan menu di atas, ada perubahan tampilan menu utama :), sbb :

Gb. Menu utama

Sedangkan petunjuk singkat tambahan menu bisa dilihat gambar berikut :

Gb. Petunjuk pemakaian 

 

File attachment bisa didonlot di >>> Koperasi2.zip 

Meskipun belum semua menu selesai (bersfungsi), untuk contoh macro koperasi ini tidak akan dilanjutkan

lagi, secara menu inti simpan pinjamnya sudah bisa :D

Sekian, tunggu postingan berikutnya, ..

Read More..

MacroExcel - aplikasi koperasi (part 1) input, edit & delete data anggota

Sesuai dengan posting terakhir, kali ini akan ane berikan contoh penerapan macro excel dalam bentuk lain.
Kalo postingan sebelum-sebelumnya untuk mengolah data, sekarang utuh mulai dari input sampai dengan
pelaporan, tentu saja dalam contoh yang sederhana. Berikut tampilan menu koperasi :
(klik gambar untuk memperbesar)

Tampilan menu memang terlihat banyak, namun saat ini yang berfungsi masih menu Input anggota dan
Edit/delete anggota. Beberapa tampilan interfacenya bisa dilihat pada gambar-gambar di bawah :

Gb. Form input anggota baru

Gb. Tampilan kwitansi saat simpan anggota baru

Gb. Form edit/delete data anggota

Gb. Petunjuk cara pemakaian

Gb. Code macro dengan sedikit penjelasan

File contoh bisa langsung didonlot di >> Koperasi_1.zip

Sementara sekian dulu, akan dilanjut part 2 pada postingan selanjutnya :)

Semoga bermanfaat!!

Read More..

MacroExcel - Split file data all cabang

Macro kali ini hampir sama dengan macro sebelumnya (macroexcel-split-data-all-cabang), bedanya hasil /
bentukan dari proses split. Untuk yang sebelumnya menghasilkan sheet baru, untuk macro ini menghasilkan
file baru. Berikut tampilannya :

Penjelasan macronya sbb :

Contoh file bisa didonlot di >>> MacroExcel-SplitFileAllCabang.zip
Tunggu postingan selanjutnya tetang contoh sederhana aplikasi koperasi :)

Read More..

MacroExcel - Split Data All Cabang

Dikarenakan macro gabung data, baik dari sheet maupun dari file sudah ada. Berikut macro proses
sebaliknya, yaitu split data dari satu sheet ke beberapa sheet, tampilannya sbb :

Pada file macro terdapat sheet AllCabang, di sheet ini terdapat sejumlah data dengan kode cabang yang
berbeda-beda. Dan proses macro split ini, memisahkan data yang ada di sheet AllCabang ke masing sheet
cabang.Untuk mencobanya tinggal klik tombol RunMacro dan perhatikan perubahannya.
Untuk penjelasan macro bisa dilihat pada tampilan berikut :

File contoh macro dan penjelasan bisa didonlot di sini >> ExcelMacro-SplitDataAllCabang.zip

Read More..

ExcelMacro - gabung file sales cabang

Jika pada postingan sebelumnya gabung data sheet cabang, maka untuk posting kali ini adalah contoh
gabung file (sales) cabang. Berbeda dengan gabung sheet, untuk gabung file ini diperlukan penentuan
direktori letak file cabang yang akan digabung. Jadi langkah macro adalah menentukan direktori file cabang
dengan mengklik tombol Folder file sales cabang, kemudian tekan tombol RunMacro - gabung file untuk
proses gabung file.Berikut tampilannya :

Berikut contoh file macro gabung file sales GabungFileCabang.zip. .
Untuk macro gabung file ini penjelasan singkat macro sudah ada di komen macro (yang warna ijo gan :) ).

Read More..

ExcelMacro - cetak kwitansi untuk banyak transaksi (2) penjelasan macro

Langsung saja berikut penjelasan dari postingan selumnya macro-cetak-kwitansi-untuk-banyak-transaksi.

1) Menamai prosedur cetak kwitansi dengan nama CetakKwt
    
    Sub CetakKwt()
    ...
    End Sub


2) Buat variabel dengan nama lBrsAkh dan JamAwl
   
    Dim lBrsAkh As Long
    Dim JamAwl

3) Variabel JamAwl diisi dengan waktu saat mulai macro dijalankan dan variabel lBrsAkh diisi dengan baris
    data pada sheet transaksi.
   
    JamAwl = Time()
    lBrsAkh = Range("A" & Rows.Count).End(xlUp).Row


4) Jika variabel lBrsAkh (baris terakhir data di sheet Transaksi) isinya kurang dari 7 (header data ada di -
    ris ke 6, artinya jika baris terakhir kurang dari 7 berati data kosong/tidak ada data sama sekali untuk di -
    cetak), maka dimunculkan kota pesan peringatan bahwa tidak ada data transaksi yang ada di cetak.

    If lBrsAkh < 7 Then
    MsgBox "Tidak ada transaksi yang akan dicetak", vbInformation, "Info"
    Exit Sub
    End If


5) Sheet Kwitansi diaktifkan atau dipilih.

       
    Sheets("Kwitansi").Select


6) Ingat penjelasan nomer 4, yaitu header data transaksi pada sheet Transaksi ada di baris ke 6, jadi data
    pertama transaksi ada di baris 7, sedangkan baris terakhirnya adalah nilai yang ada di variabel lBrsAkh.
    Fungsi perulangan For ... To ... Next lebih detailnya bisa lihat artikel bentuk-pengulangan-for-next.

    For i = 7 To lBrsAkh
    ...
    Next i


7) Code macro dibawah adalah untuk mengisikan data transaksi pada sheet Transaksi, mulai baris ke 7 -
    sampai dengan baris terakhir (nilai pada variabel lBrsAkh). Penjelasan detail kegunaan statement With ...
    End With adalah untuk menyingkat penulisan object agar tidak diketik berulang-ulang.  
    Misal code macro .Cells(i, 3).Value (di depan ada tanda titik), sebenarnya jika ditulis lengkap menjadi -
    Sheets("Transaksi").Cells(i, 3).Value , namun code Sheets("Transaksi") tidak lagi ditulis berulang karena
    sudah terwakili oleh statement With Sheets("Transaksi"). Statement With ini berlaku untuk semua penulis-
    as code (object) yang diawali dengan titik.

    With Sheets("Transaksi")
        Range("D3").Value = "'" & .Cells(i, 1).Value
        Range("E5").Value = .Cells(i, 3).Value
        Range("E7").Value = WorksheetFunction.Proper(Terbilang(.Cells(i, 5).Value))
        Range("E9").Value = .Cells(i, 2).Value
        Range("D16").Value = .Cells(i, 5).Value
        Range("H12").Value = "Jakarta, " & Format(Date, "DD MMMM YYYY")
        Range("H18").Value = "( " & .Cells(i, 4).Value & " )"
 

9) Fungsi IF ini adalah untuk mengecek opsi yang dipilih oleh user macro, apakah kwitansi akan dicetak ke -
    kertas atau hanya di preview dilayar. Ingat code .Range("C3") sebenarnya merujuk pada isi range C3 di
    sheet Transaksi karena penulisan dimulai dengan tanda titik, penulisan lengkapnya sebagai berikut
    Sheets("Transaksi").Range("C3") yang artinya isinya range C3 pada sheet Transaksi.
    (Note : penulisan .Range("C3") sama artinya dengan .Range("C3").value )

            If .Range("C3") = "Print" Then
            ActiveSheet.PrintOut
            Else
            ActiveSheet.PrintPreview
            End If
        End With
 
9) Setelah melakukan proses cetak/preview, maka sheet Transaksi diaktifkan atau dipilih kembali, selanjut
    nya memunculkan pesan selesai dan lama waktu proses.

    Sheets("Transaksi").Select
    MsgBox "Proses cetak kwitansi selesai" & Chr(13) & "Waktu : " & Format(Time() - JamAwl, _   
    "hh:mm:ss"), vbInformation, "info"
 
Sekian penjelasan singkatnya, maaf kalo agak kurang jelas, hehe

Read More..

ExcelMacro - cetak kwitansi untuk banyak transaksi

Langsung saja, berikut ane kasih contoh cetak kwitansi untuk banyak transaksi. Nilai pembayaran di kwitansi pada umumnya selain berupa angka juga ada yang berbentuk ejaan, atau biasa disebut terbilang. Nah karena fungsi terbilang ini di blog-blog lain sudah cukup banyak. Maka ane langsung copas dari blog lain (sudah ijin), berikut sumber fungsi terbilang yang dimaksud macro-excel-terbilang.
Langsung saja, berikut tampilan awal macro berisi list transaksi yang akan dicetak dilengkapi dengan opsi cetak (print / preview) dan tombol run macro cetak kwitansi, cekidot :

Tampilan Kwitansi saat macro cetak dijalankan bisa dilihat gambar berikut :

Contoh macro cetak kwitansi ini silahkan diambil di sini MacroCetakKwitansi.zip
Untuk penjelasan macronya tunggu postingan selanjutnya.

Read More..

ExcelMacro - gabung data sheet cabang (2) contoh file dan penjelasan singkat code macro

melanjutkan postingan sebelumnya excelmacro-gabung-data-sheet-cabang, kali ini ane akan menjelaskan
singkat alur proses code macro, berikut :


1) memberikan nama modul macro dengan sebutan gabung()

      Sub gabung()

      ...

      End Sub

2) mendeklarasikan variabel type long, yang nantinya digunakan untuk menampung baris akhir data di sheet 
    Gabung dan Cabang (penjelasan type data lihat dimari gan >> vb-visual-basic-tipe-data-variabel)

    Dim brsAkh, akhBrs As Long


3) mengisikan jam mulai proses macro pada range J4

    Range("J4").Value = Format(Now, "hh:mm:ss")

  
4) mengisikan baris terakhir (baris paling bawah yang terisi) sheet Gabung ke variabel brsAkh

    brsAkh = Range("B" & Rows.Count).End(xlUp).Row + 1


5) jika variabel brsAkh nilainya lebih besar dari 4, maka range A5 s/d E baris ke brsAkh (baris terakhir
    sheet Gabung) dikosongkan isinya. Ingat pada artikel sebelumnya gabung-data-sheet-cabang bahwa 
    tampilan pada sheet Gabung, header data terletak pada baris 4, artinya jika baris terakhir yang telah
    dimasukan ke variabel brsAkh nilainya lebih dari 4, berarti ada data bekas proses macro sebelumnya,
    sehingga data ini harus dihapus agar tidak terjadi dobel data jika macro diproses berulang-ulang.
    Detail penjelasan fungsi IF / perumpamaan / percabangan ada di mari >> if-macro.
     
      If brsAkh > 4 Then
      Range("A5:E" & brsAkh).Value = Empty
      End If

6) Jika sebelumnya menjelaskan fungsi IF, dalam langkah selanjutnya akan dipraktekan fungsi perulangan
    untuk penjelasan dasarnya bisa dicek >> perulangan FOR. Setelah paham dasar-dasar fungsi perulangan
    FOR, kode macro selanjutnya akan saya terjemahkan dalam bahasa Indonesia, mungkin kalimatnya agak
    aneh, tapi jika agan paham dasar-dasar fungsi perulangan pasti agan akan paham penjelasan dibawah,
    (tulisan warna abu2)
     
      'Untuk variabel i yang berisi nilai mulai dari 1 s/d jumlah sheet, nomer sheet dimulai dari kiri kanan, 
      For i = 1 To Sheets.Count
          'Jika 6 dari kiri nama sheet ke i huruf kecilnya adalah "cabang" (tanpa petik) maka
          '** LCase berfungsi merubah data type string/teks menjadi  huruf kecil semua, pada macro ini fungsi
                untuk memastikan bahwa apapun format kapital huruf nama sheet ke i, selama kata pertamanya 
                adalah "cabang" maka dianggap memenuhi kondisi IF
          If Left(LCase(Sheets(i).Name), 6) = "cabang" Then          'fungsi IF ke 1 

          'Mengisikan variabel akhBrs dengan nilai baris terakhir yang ada isinya pada kolom B di sheet ke i
          akhBrs = Sheets(i).Range("B" & Rows.Count).End(xlUp).Row

              'Jika variabel akhBrs nilai lebih dari 1 maka

              '** akhBrs bernilai 1 artinya tidak ada data pada sheet ke i (sheet yang namanya berawalan 

                    dengan kata "cabang" (header ada dibaris 1)
              If akhBrs > 1 Then            'fungsi IF ke 2 

              'Lakukan copy sheet ke i kolom B baris ke 2 s/d kolom D baris ke brsAkh (isinya variabel 

              BrsAkh)

              Sheets(i).Range("B2:D" & akhBrs).Copy _
 
              'Pastekan copy data ke sheet Gabung kolom B baris setelah baris terakhir yang ada isinya
              Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1)

              'Mengisikan nama sheet Cabang ke kolom E baris data yang baru ditambahkan
              Range("E" & Range("E" & Rows.Count).End(xlUp).Row + 1 & ":E" & _

              Range("B" &  Rows.Count).End(xlUp).Row).Value = Sheets(i).Name

              End If                               'penutup fungsi IF ke 2
          End If                                   'penutup fungsi IF ke 1
      Next i                                      

Sementara ini dulu penjelasannya,
Contoh file macro Gabung data cabang bisa didonlot >> GabungDataCabang.zip

Read More..

ExcelMacro - gabung data sheet cabang

Berikut adalah contoh macro menggabungkan data pada sheet Cabang ?? ke sheet Gabung. Misal
kita buat file excel dengan nama GabungDataCabang.xls, di dalamnya terdapat 4 sheet yaitu : 

-  Gabung berfungsi sebagai tempat tampungan semua data yang ada di semua sheet Cabang ?? 
-  Cabang berisi data transaksi penjualan, format namanya Cabang<spasi>angka misal : Cabang 1,
   Cabang 2, Cabang 3 dst. Untuk contoh ada 3 sheet Cabang.

Jadi total sheet ada 4, yaitu Gabung, Cabang 1, Cabang 2 dan Cabang 3. Untuk sheet Gabung, atur
tampilannya menjadi sperti berikut :

Kotak dengan tulisan "Gabung Report" adalah shape yang saya modif, yang berfungsi sebagai tombol
untuk menjalankan macro. Sedangkan untuk sheet Cabang atur format tampilan menjadi seperti berikut :

Yang perlu diperhatikan adalah posisi header tabel, dimana pada sheet Cabang ini, header tabel data

berada di baris 1 dan diskripsi header mulai dari kolom A s/d D adalah No, Diskripsi, Jumlah dan tanggal.
Jumlah baris dan isi data di setiap sheet Cabang bisa berbeda-beda, diumpakan sebagai transaksi sales
masing-masing Cabang (jumlah sheet Cabang bisa ditambah / dikurangi dengan format penamaan seperti
di atas). 
Kemudian buka jendela Visual Basic Editor (jika belum tahu silahkan dimari >> memulai-makro-excel ).

Setelah jendela Visual Basic Editor terbuka ketikan code berikut :

  Sub gabung()
  Dim brsAkh, akhBrs As Long
  Range("J4").Value = Format(Now, "hh:mm:ss")
  brsAkh = Range("B" & Rows.Count).End(xlUp).Row + 1
      If brsAkh > 4 Then
      Range("A5:E" & brsAkh).Value = Empty
      End If
      For i = 1 To Sheets.Count
          If Left(LCase(Sheets(i).Name), 6) = "cabang" Then
          akhBrs = Sheets(i).Range("B" & Rows.Count).End(xlUp).Row
              If akhBrs > 1 Then
              Sheets(i).Range("B2:D" & akhBrs).Copy _
              Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1)
              Range("E" & Range("E" & Rows.Count).End(xlUp).Row + 1 & ":E" & _

              Range("B" &  Rows.Count).End(xlUp).Row).Value = Sheets(i).Name
              End If
          End If
      Next i
  Range("A5:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = "=Row()-4"
  Range("J7").Formula = "=SUM(C5:C" & Range("B" & Rows.Count).End(xlUp).Row & ")"
  Range("J5").Value = Format(Now, "hh:mm:ss")
  Range("J6").Value = Format(Range("J5") - Range("J4"), "hh:mm:ss")
  MsgBox "Proses selesai !" & Chr(13) & "Lama " & Format(Range("J6"), "hh:mm:ss"), _

      vbInformation, "Info"
  End Sub

Setelah code macro di atas dicopykan/diketik, pilih sheet Gabung kemudian klik kanan gambar "Gabung
Report" pilih Assign Macro . . .  , maka akan muncul jendela Assign Macro, kemudian klik gabung dan tekan OK.

Selanjutnya macro gabung data cabang sudah bisa di jalankan dengan cara klik gambar "Gabung Report"
(tombol proses macro). Silahkan cek perubahan yang terjadi. :)

Selesai!! sementara ini dulu, untuk penjelasan macro dan contoh file menyusul  ;P

Semoga bermanfaat

Read More..