Wa'alaikumussalam Wr. Wb.
Hal-hal berikut ini baru sekedar imajinasi, jadi sesuaikan dengan keadaan
nyatanya.
>> sel IDPengirim diubah
Pada event change milik worksheet diberi proses cek (bisa dengan IF THEN
atau SELECT CASE), jika yang berubah adalah cell milik IDPengirim, maka
lakukan pengubahan item terfilter dalam pivot table.
Contoh :
cell *IDPengirim *ada dalam *worksheet bernama myInput *pada yang persisnya
ada di sebuah cell dengan* alamat B7*
cell *U1* pasti ada pivot tablenya, dan proses filter di *U1* tersebut
dilakukan pada object* Page* milik Pivot Table.
anggap saja nama field dalam pivot table yang difilter adalah *myPengirim*.
Pada event change milik worksheet diisi : (misal pakai IF)
IF target.address="*$B$7*" then
with sheets("*myInput*").range("*U1*").pivottable.pivotfields("*
myPengirim*")
.clearallfilters
.currentpage=sheets("*myInput*").range("*B7*").value
end with
endif
**** Kira-kira, untuk IDPenerima juga sudah bisa ya ***
*
>> Copy W4 ke IDPayment dan W5 ke IDNamaBarang
Paling aman adalah satu persatu. Jika data yang akan dicopy berurutan
(vertikal atau horisontal), bisa sekaligus meski butuh di transpose saat
paste.
Misal IDPayment ada di cell B8 dan IDNamaBarang ada di cell B9
-> pakai satu per satu saja ya
range("b8").value=range("w4").value
range("b9").value=range("w5").value
-> kalau data yang di salin berurutan (w4:w5) akan disalin ke lokasi
berurutan (b8:b9)
range("b8:b9").value=range("w4:w5").value
bisa juga dengan copas values (supaya cell berformula tidak buat
masalah)
range("w4:w5").copy
range("b8:b9").pastespecial xlpastevalues
**** Pelajari juga parameter lain dalam pastespecial ****
Wassalamu'alaikum Wr. Wb.
Kid.
2013/3/3 Kanzu Giusto <[email protected]>
> **
>
>
> Assalamu 'alaikum,
> Perkenalkan, sudah lama saya mengakses milis ini untuk menyelesaikan
> berbagai persoalan excel. (Sebelumnya saya ucapkan banyak terima kasih,
> terutama untuk para moderator).
>
> Saya baru mulai belajar macro dan visual Basic, dan aplikasinya di Excel. Kini
> ada masalah yang ingin dikemukakan, semoga para 'warga' bersedia membantu.
>
> Pada data yang dilampirkan, ada beberapa pivottable pada sheet 'Input'.
> Yang dikehendaki adalah:
> > Ketika sel IDPengirim diubah, maka pivot Table U1 berubah menjadi value
> IDPengirim.
> > Ketika sel IDPenerima diubah maka pivottable di w1 berubah menjadi
> value IDPenerima, w4 dicopy ke IDPayment, dan W5 dicopy ke IDNamaBarang.
>
> Mohon pencerahannya untuk pembuatan code dengan private sub (Saya kira
> mungkin dengan pivottableupdate)
>
>
>
>
>
>
