Loh... Yang akan diberi baris total itu di sheet penyimpan datanya?
Sebaiknya jangan.
Sebaiknya, buat sheet baru untuk menampilkan data yg pernah di input. Sheet
ini yg diberi baris total. Data yg ditampilkan bisa berupa data terfilter
alias user bisa memilih data dgn kriteria tertentu saja.
On Dec 10, 2014 1:56 PM, "Ahmad Syaifullah Lubis syaiful...@hotmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
> Mr Kid,
> Rupanya sudah ada discript macronya.
> BarisTerakhir = Worksheets("Database").Cells(.Rows.Count, 1).End(xlUp).Row
> bukankah ini script yang menginstruksikan untuk mencari baris terakhir
> dari worksheet yang bernama "Database".
>
> Cells(BarisTerakhir + 2, 3).Value = "Total Transaksi"
> ini script yang menginstruksikan agar menginput kata "Total
> Transaksi" di 2 baris setelah baris terakhir dikolom ketiga.
>
> terima kasih Mr Kid udah memberikan semangat untuk membaca dengan teliti
> script yang ada (padahal nulis script aja saya gak tahu, membaca aja perlu
> maksimal trial and errornya). :)
> semangat!
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Tue, 9 Dec 2014 21:43:12 +1100
> Subject: Re: [belajar-excel] Menambahkan Total dibaris akhir data
>
>
>
> Hai Achmad,
>
> Coba begini (moga-moga mau mencoba) :
> 1. buat sebuah sheet kosong dan beri nama SETTING
> 2. di sheet SETTING cell D2 buat formula berbunyi
> =Sum( d$1:d1 )
> 3. ke sheet kerja yang akan dipasangi baris total
>
> 4. buat sebuah prosedur di sebuah general module bernama PasangTotal
> dengan scope public
> 5. isi prosedur bernama PasangTotal tersebut dengan baris-baris script
> yang urutan prosesnya secara berurutan sebagai berikut :
> (TIDAK BOLEH ADA PERINTAH SELECT ATAU ACTIVATE)
> a. script untuk meng-copy cell D2 pada sheet bernama SETTING <1
> baris script>
> b. script untuk paste dibaris kosong pertama pada sheet yang akan
> dipasangi total pada kolom D nya sebanyak 1 baris x 2 kolom
> <1 baris (bisa jadi maksimal 3 baris) script>
> c. script untuk copy paste values nilai hasil formula lokasi paste
> proses b <1 baris (bisa jadi maksimal 2 baris) script>
>
> 6. pada prosedur event click tombol yang sudah Anda buat sebelumnya,
> tambahkan baris script untuk memanggil prosedur bernama PasangTotal
>
> 7. save workbook
>
> Selamat mencoba.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
>
>
> 2014-12-09 12:17 GMT+11:00 Ahmad Syaifullah Lubis syaiful...@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
> Minta tolong ditambahin macro ini supaya hasil data input saya ada
> totalnya di akhir baris data. kalau bisa di dalam scriptnya ada uraiannya
> ya.... biar saya paham alur / jalan macronya. Ada script tapi saya gak
> ngerti arahnya, makanya saya minta langsung di worksheet saya ini aja.
> Mudah2an ada yang berbaik hati dan berbagi macronya.
>
> terima kasih,
> ASL
>
>
>
>
>
>
>
