[belajar-excel] Tanda Tangan otomatis oada hasil pivot table

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Tanda Tangan otomatis oada hasil pivot table

Eira_ariE
Yth. Be-Exceler
Mohon pencerahannya ..Saya ada satu file excel dengan 2 sheet (data dan hasil pivot).Saya ingin menambahkan baris tanda tangan di setiap akhir record hasil pivot ..
Terlampir ada code macro :
Public Sub tandatangan()         Sheet4.Range("_ttd_").Copy        With Sheet7        With ...Cells(.Rows.Count, "j").End(xlUp).Offset(2)            .PasteSpecial xlPasteValues            End With    End With    
    With Application        .CutCopyMode = False        .Calculation = xlCalculationAutomatic        .EnableEvents = True        .ScreenUpdating = True        .DisplayAlerts = True    End With    MsgBox "Done.", vbInformation, "Sukses"End Sub

Pertanyaannya :
Bagaimana tambahan code macronya, biar kalau ada perubahan filter pivot maka, tanda tangan yang sebelumnya sudah terhapus (mau diganti tanda tangan baru) ?Permasalahannya : ada tanda tangan baru di baweah tanda tangan lama
Terima kasih
Ari
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Tanda Tangan otomatis oada hasil pivot table

Kid
Administrator
Gini...

Cari cara supaya tanda tangan lama terhapus dulu.
Setelah itu baru pasang yang baru.
Acuan pasangnya, dari cells terakhir di area range value nya pivot table
turun beberapa baris dan geser beberapa kolom sesuatu kebutuhan agar sampai
di lokasi yang pantes untuk dipasangi tanda tangan

xixixi...




On Tue, Aug 20, 2019 at 12:39 PM Eira I Arie [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
>
> Yth. Be-Exceler
>
> Mohon pencerahannya ..
> Saya ada satu file excel dengan 2 sheet (data dan hasil pivot).
> Saya ingin menambahkan baris tanda tangan di setiap akhir record hasil
> pivot ..
>
> Terlampir ada code macro :
>
> Public Sub tandatangan()
>         Sheet4.Range("_ttd_").Copy
>         With Sheet7
>         With .Cells(.Rows.Count, "j").End(xlUp).Offset(2)
>             .PasteSpecial xlPasteValues
>             End With
>     End With
>
>
>     With Application
>         .CutCopyMode = False
>         .Calculation = xlCalculationAutomatic
>         .EnableEvents = True
>         .ScreenUpdating = True
>         .DisplayAlerts = True
>     End With
>     MsgBox "Done.", vbInformation, "Sukses"
> End Sub
>
>
> Pertanyaannya :
> Bagaimana tambahan code macronya, biar kalau ada perubahan filter pivot
> maka, tanda tangan yang sebelumnya sudah terhapus (mau diganti tanda tangan
> baru) ?
> Permasalahannya : ada tanda tangan baru di baweah tanda tangan lama
>
> Terima kasih
>
> Ari
>
>
>