hai Jodi,
berhubung gak ngasih sample workbook, jadi jawabnya gini aja ya..
buka sebuah module dalam VBA
Pada module tersebut:
1. dekalarasikan beberapa variabel bertipe RANGE untuk menyimpan Header dan
seluruh data NIK karyawan
jadai dalam hal ini ada 2 buah variabel
2. tentukan posisi di mana header tersebut berada, hal ini bisa menggunakan
fungsi Find yang akan mencari isi dari header
kira-kira syntaxnya seperti ini:
Set hdInk = Cells.Find("isi_header_yang_dicari")
dengan menggunakan syntax ini maka posisi header akan dicari di mana saja
(dinamis) selama masih dalam sheet yang sebelumnya sudah ditunjuk, karena
saya juga tidak tau anda menempatkan header di mana
setelah itu boleh ditambahkan kondisi yang digunakan apakah header tersebut
ditemukan atau tidak [ini bersifat optional]
3. setelah tentukan letak data yang pertama, tentunya adalah 1 baris di
bawah header, untuk ini gunakan fungsi OffSet
4. tentukan juga letak data yang paling akhir, gunakan End(xlDown)
5. Gabung point 3 dan 4 di atas dalam 1 line code
kira-kira seperti ini
set rgInk = range(hdInk.OffSet(1,0),hdInk.end(xlDown)
6. kan pada point 5 udah ketemu tuh range data yang mau dihapus, jadi
harusnya dibelakang kode diatas ditambahkan kode seperti ini
.EntireRow Delete
selesai deh bikin listing programnya
7. Sekarang kita bikin tombolnya
kembali ke lembar kerja, masukkan shape, atau kalo mau narsis sedikit
bolehlah masukkan foto ke dalam worksheet tersebut yang jika kita menekan
foto tersebut maka program akan berjalan
caranya sbb: klik kanan tombol mouse pada shape atau foto yang tadi sudah
kita masukkan
pilih Assign Macro
pilih This WorkBook
pilih nama prosedur macro yang sudah kita tentukan di awal sebelum point 1
klik OK
jadilah sebuah program yang anda inginkan
:: Cara lain::
gunakan rekam macro
1. Pergi ke header data >> macro akan merekam posisi header
2. Aktifkan tombol Relative Refference
3. panah bawah 1 kali >> macro akan merekam lokasi data pertama
4. tekan CTRL + Shift + panah bawah >> macro akan merekam lokasi data
terakhir dalam mode dinamis
5. Delete seluruh baris yang sudah terblok pada point 4
6. Matikan proses recording macro
7. lihat ke VBE.. anda akan meneumukan listing program yang dibutuhkan
8. Assign macro tersebut ke sebuah shape
semoga bermanfaat
wassalam,
-aji mumpung-
2012/10/19 Jodi Y <[email protected]>
> **
>
>
> Dear,
> master excel macro vba
>
> bagaimana syntax untuk menghapus data di sheet, sehingga saya bisa
> menginsert data terbaru di sheet tsbt. contoh:
>
> TABEL KARYAWAN
> nik nm_krywn jabatan absensi --> 'ini adalah header
> 1202 paul staff hadir --> 'ini adalah isi row1
> 1203 malih staff hadir --> 'ini adalah isi row2
>
> yg ingin saya tanyakan, bagaimana syntax untuk menghapus semua 'isi'
> dengan menggunakan commandbutton di form. tetapi untuk 'header' tdk
> terhapus
>
> Regards,
> Jodi
>
>
>
