Terima kasih mas Its works.., saya pakai cara kedua denan rekam macro
--- In [email protected], aji mumpung <pupung1986@...> wrote:
>
> 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 <jodyslexia@...>
>
> > **
> >
> >
> > 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
> >
> >
> >
>
