Cara Menyebar Data Ke banyak Sheet

Ms. Excel adalah suatu aplikasi yang paling populer di dunia perkantoran. Dalam dunia perkantoran aplikasi ini biasa digunakan untuk penyajian data laporan.

Dalam penyajian laporan tentunya pasti banyak format atau bentuk laporan yang dibuat tergantung pada kebutuhan atau request dari pelanggan. Salah satu yang sering digunakan adalah format laporan dengan data menyebar pada suatu sheet dengan kriteria tertentu. Misalnya data laporan dengan kriteria nama-nama divisi dipisah menjadi satu sheet satu divisi.

Merujuk pada hal di atas maka web Matematika Akuntansi ingin berbagi ilmu tentang Cara menyebarkan data ke banyak sheet.

Untuk caranya kita langsung saja praktikan pada contoh berikut ini :

Misalkan kita punya data seperti tabel di bawah ini :

Tgl. Pick-Up	No. Conos	Nama Kota	Layanan
16-01-20	2105438	KOTA SAMARINDA	NORMAL
22-01-20	2122913	MURUNG PUDAK	NORMAL
28-01-20	2137673	KOTA JAMBI	NORMAL
29-01-20	2140762	KOTA PONTIANAK	NORMAL
29-01-20	2140772	KOTA PALEMBANG	NORMAL
29-01-20	2140774	KOTA BANJARMASIN	NORMAL
29-01-20	2140776	KOTA SAMARINDA	NORMAL
16-01-20	2105429	KOTA PADANG	URGENT
22-01-20	2122893	KOTA PEKANBARU	TOP URGENT
22-01-20	2122897	KOTA PADANG	TOP URGENT
22-01-20	2122901	KOTA JAMBI	TOP URGENT
13-01-20	2093730	KOTA PADANG	NORMAL
15-01-20	2100911	KOTA BATAM	TOP URGENT
16-01-20	2105357	KOTA SAMARINDA	URGENT
16-01-20	2105367	KOTA PEKANBARU	TOP URGENT
22-01-20	2122003	KOTA PARIAMAN	URGENT
22-01-20	2122005	KOTA PADANG	URGENT

Dari tabel di atas kita ditugaskan untuk menyediakan laporan dengan format tabel sesuai dengan tabel asli akan tetapi data disebar persheet berdasarkan Nama Kota.

Permasalahan di atas bisa kita pecahkan dengan bantuan coding VBA berikut ini :

Sub SplitandFilterSheet()

Dim Splitcode As Range
Sheets("Master").Select
Set Splitcode = Range("Splitcode")

For Each cell In Splitcode
Sheets("Master").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = cell.Value

With ActiveWorkbook.Sheets(cell.Value).Range("MasterData")
.AutoFilter Field:=3, Criteria1:="<>" & cell.Value, Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

ActiveSheet.AutoFilter.ShowAllData
Next cell
End Sub

Catatan :
.AutoFilter Filed:= Kolom yang akan dijadikan acuan penyebaran data. Pada contoh kali ini kolom acuannya adalah kolom Nama Kota yaitu kolom ke 3.

Caranya penggunaanya :

1. Buka aplikasi Ms. Excel;
2. Buka data file yang telah kalian isi tabel di atas;
3. Berinama Sheet yang berisi tabel dengan nama sheet Master;
4. Copy kolom Nama Kota ke sheet kosong;
5. Block kolom bulan yang telah dicopy ke sheet kosong → pilih menu Data → Remove Duplicates;
6. Klick OK pada jendela Remove Duplicates;
7. Berinama range tabel dengan nama MasterData di kotak Name Box;
8. Berinama range data Nama Kota yang telah dihapus data duplicatnya dengan nama Splitcode di kotak Name Box (judul tidak kolom tidak usah diikut sertakan);
9. Pilih menu Developer  →View Code;
10. Pilih menu Insert → Module di jendela VBA;
11. Masukan coding di atas ke Modul di jendela VBA;
12. Pilih menu Run → Run Sub/User Form di jendela VBA;

Untuk lebih jelasnya perhatikan gambar di bawah ini ;

 

Maka hasilnya akan menjadi :

Demikian artikel kali ini.

Mohon maaf apabila ada salah-salah kata.
Apabila ada yang ingin ditanyakan atau disampaikan, silahkan untuk menulis pada kolom komentar di bawah.

Salam,
Muhamad Pajar Sidik
President Director of (matematikaakuntansi.blogspot.com)
Email : fajarmoehamad@gmail.com

BEANBAG TRIANGLE SIZE LARGE TERMASUK ISI , SIAP PAKAI😊

Jika ingin bertanya secara privat, Silahkan hubungi no 085709994443 dan untuk berkomentar silahkan klick link di bawah ini 👇