terima kasih pak hendrik saya sudah mencobanya... tapi masih ada yang ingin
tanyakan lagi. 1. Bagaimana caranya agar bordernya tidak hilang jika saya filter,karena saya hanya menggunakan conditional formating. 2. bisa tidak jika kolom tanda tangannya dibuat di sheet lain dan nantinya dikopy dibawah data,karena saya ingin membuat validasi untuk masing-masing penanda tangan,jadi tidak perlu ketik ulang jika ganti orang.... untuk lebih jelasnya,monggo panjenengan lihat file terlampirnya Pada 1 Februari 2017 21.07, hendrik karnadi [email protected] [belajar-excel] <[email protected]> menulis: > > > Hai Rubi, > Terima kasih kembali. > Sebagai variasi, coba buat macro agar no urut hasil filternya mulai dari > no 1. > > Salam, > HK > > > Sent from Yahoo Mail on Android > <https://overview.mail.yahoo.com/mobile/?.src=Android> > > > > Terima kasih pak hendrik.... sudah berhasil pak..... > > > Pada 1 Februari 2017 14.28, hendrik karnadi [email protected] > [belajar-excel] <[email protected]> menulis: > >> >> >> Hai Rubi, >> Coba ubah codenya menjadi seperti ini : >> >> *ThisWorkbook.Sheets("Laporan") .Range("B7:F1000").Clear* >> >> ThisWorkbook.Sheets("Data"). Range("A1").CurrentRegion. _ >> AdvancedFilter Action:=xlFilterCopy, _ >> CriteriaRange:=ThisWorkbook. Sheets("Laporan").Range("C3: D4"), _ >> CopyToRange:=ThisWorkbook. Sheets("Laporan").Range("B6: F6"), _ >> Unique:=False >> >> *ThisWorkbook.Sheets("Laporan") .Range("B6").End(xlDown). Select* >> *With Selection* >> * .Offset(5, 0).Value = "Yang Membuat"* >> * .Offset(5, 2).Value = "Mengetahui"* >> * .Offset(5, 4).Value = "Menyetujui"* >> * .Offset(9, 0).Value = "TTD1"* >> * .Offset(9, 2).Value = "TTD2"* >> * .Offset(9, 4).Value = "TTD3"* >> *End With* >> >> *catatan : Huruf yang dicetak tebal adalah tambahan codenya* >> >> *Salam,* >> *HK* >> >> >> ------------------------------ >> *From:* "rubi anto [email protected] [belajar-excel]" < >> [email protected] > >> *To:* [email protected] >> *Sent:* Wednesday, 1 February 2017, 12:58 >> *Subject:* Re: [belajar-excel] Tabel tanda tangan dalam Advanced Filter >> [1 Attachment] >> >> >> Apakah seperti data berikut Mr Kid.... >> >> Tapi jika ada data bertambah malah tertindis... >> Maaf saya masih belum Faham Mr. Kid..... >> >> Pada 31 Januari 2017 20.42, 'Mr. Kid' [email protected] [belajar-excel] >> <[email protected] > menulis: >> >> >> Wa'alaikumussalam wr wb >> >> Hai Rubi, >> >> Bisa membuat template tanda tangan di tempat lain (misal di kolom ZZ >> dst). Kemudian copy range area template tanda tangan tersebut ke bawah >> tabel hasil advanced filter. >> >> Kalau proses copy template tanda tangan akan diotomasi, bisa dilakukan >> dengan record macro. >> Cara meletakkan posisi cells aktif ke baris kosong kedua di bawah tabel >> pada kolom terkiri tabel adalah sebagai berikut : (asumsi : kolom pertama >> tabel selalu terisi penuh) >> 1. klik cells baris 1 pada sebuah kolom kosong >> 2. tekan CTRL panah ke bawah -> tekan CTRL panah ke kiri ::: sampai >> di kolom A baris terakhir Excel >> 3. [jika kolom pertama tabel bukan di kolom A] tekan panah ke kanan >> sampai ke kolom pertama tabel atau sampai kolom tabel yang selalu terisi >> penuh >> 4. tekan CTRL panah ke atas ::: sampai di baris terakhir tabel >> 5. tekan panah ke bawah 2 kali ::: sampai baris kosong kedua di kolom >> tabel yang selalu terisi penuh >> 6. [jika kolom pertama tabel bukan kolom yang selalu terisi penuh] tekan >> CTRL panah kiri atau kanan sampai ke kolom pertama tabel >> >> >> Jadi urutan copy paste template tanda tangan menjadi : >> >> blok area template tanda tangan -> tekan CTRL C -> ikuti langkah 1 >> sampai 6 di atas -> tekan CTRL V >> >> >> Wassalamu'alaikum wr wb >> Kid >> >> >> >> 2017-01-31 18:37 GMT+07:00 rubi anto [email protected] >> [belajar-excel] <[email protected] >: >> >> >> Assalamu'alaikum..... >> >> Para master excel..... >> >> Saya sedang belajar membuat data laporan pembayaran dengan advanced >> filter macro,tetapi ada kendala.... >> kolom untuk tanda tangannya selalu saja hilang jika saya klik button >> filter.... >> >> Bagaimanakah caranya agar kolom tanda tangan itu tidak hilang dan selalu >> berada di bawah tabel data jika data bertambah atau berkurang.... >> >> Terimakasih sebelumnya atas bantuan para guru..... >> (File terlampir) >> >> salam >> Rubi >> >> >> >> >> >> > >
filter - Copy.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
