Wa'alaikumussalam Wr. Wb.
Sepertinya harus dibuat daftar nama chart berurutan yang akan ditampilkan.
Atau dibuatkan daftar alamat cell lokasi si chart yang akan ditampilkan
berurutan. Setelah itu, ubah bagian loop terhadap pivot dengan script untuk
menuju ke alamat cell ke-sekian yang ada dalam daftar tesebut.
Misal alamat cell lokasi chart berurutan ada di range a1 berisi alamat cell
z123, a2 berisi alamat cell ag21, a3 berisi d978, a4 berisi m5
dan variabel nomor cell tujuan yang akan di-loop bernama lPage yang akan
berubah dari 1,2,3,4 lalu kembali ke 1 lagi dst
maka bagian yang meloop diisi :
application.goto range(range("a1:a4").cells(lpage).value),true
Wassalamu'alaikum Wr. Wb.
Kid.
2014-04-30 8:36 GMT+07:00 Mulki <mu...@aop.component.astra.co.id>:
>
>
> Assalamu'alaikum Wr. Wb.
> Semangat Pagi ...
>
> Mohon maaf jika resend, kiranya guru, master dan rekan2 B-XLer berkenan
> membantu permasalahan saya.
>
> Saya punya 2 DATA SUMBER di 2 sheet berbeda, sheet (DATA_SS_2014) dan
> sheet (Data_Sales_2014).
> Kemudian ada 3 Sheet utk menampilkan data dan graphic dg nama sheet sbb :
> 1. (JDWL_SS_ EXPORT14) utk menampilkan data shipment yg datanya diambil
> dari sheet (DATA_SS_2014) dg proses looping saat klik tombol *LOOPING
> DATA* yg menampilkan data tiap 10 row.
>
> 2. (GRAPHIC_SALES_BY_BRAND14) yg memunculkan graphic dg datanya diambil
> dari Sheet Data_Sales_2014.
> 3. (GRAPHIC_SALES_BY_CUST14) yg memunculkan graphic dg datanya diambil
> dari Sheet Data_Sales_2014.
>
> Pertanyaannya :
>
> 1. Bagaimana caranya agar saat saya klik tombol *Looping Data* di sheet
> JDWL_SS_EXPORT14,
> setelah proses Looping data pd tabel di sheet tersbt selesai maka Looping
> akan dilanjutkan ke sheet GRAPHIC_SALES_BY_BRAND14 dg menampilkan semua
> Grafic yg ada disheet tersbt (dlm contoh hanya 1 graphic dan sangat
> dimungkinkan akan lebih 1 graphic dlm sheet tersbt.
>
> 2. Setelah proses looping pada sheet GRAPHIC_SALES_BY_BRAND14 selesai
> maka Looping akan berlanjut ke sheet GRAPHIC_SALES_BY_CUST14.
>
> 3. Setelah proses Looping di sheet GRAPHIC_SALES_BY_CUST14 selesai maka
> proses Looping akan kembali ke sheet JDWL_SS_EXPORT14 dan melakukan
> Looping data yg ada disheet tersbt sampai selesai kemudian berlanjut ke
> Sheet Graphic dst akan terus begitu sampai saya klik Tombol *Stop
> Looping*maka proses looping akan berhenti.
>
> Kiranya guru, master dan rekan2 B-XLer berkenan memberikan pencerahan
> kepada saya yg masih fakir ilmu ini.
>
> Sekali lagi terimakasih banyak atas pencerahan dan pertolongan yg
> diberikan.
>
>
> Wassalam,
> Mulki
>
>
>
