Hai Ratri,
1. bagaimana membuat textbox no (textbox1) bisa memunculkan nomor urut
otomatis saat penginputan
>> pindahkan baris pengesetan textbox1 yang melalui event activate milik
userform ke event initialize milik userform
>> tambahkan pada event click tombol penyimpan ke listview dengan :
textbox1.text=nama_listviewnya.listitems.count+1
2. bagaimana caranya data di listview tersimpan di range ini, dengan
menggunakan tombol "simpan ke excel"?
>> pada event click si tombol penyimpan beri baris kode :
dim rng as range, lIdx as long, lCol as long
set rng = sheets("nama sheetnya").range("alamat cell pertama penulisan")
for lidx=1 to nama_listviewnya.listitems.count
rng.cells(lidx,1).value=nama_listviewnya.listitems(lidx).text
for lcol=1 to nama_listviewnya.listitems(lidx).listsubitems.count
rng.cells(lidx,lcol+1).value=nama_listviewnya.listitems(lidx).listsubitems(lcol)
next lcol
next lidx
3. bagaimana bisa menghapus data (clear contents) di range biru otomatis
tanpa menghapus range ungu
>> letakkan baris kode berikut dalam prosedur yang membutuhkan
dim lRec as long, rng as range, lCol as long
set rng=sheets("nama sheetnya").range("alamat cell penulisan nomor pertama")
lcol= 27 'ganti 27 dengan jumlah kolom dari area range yang akan dibersihkan
lrec=application.worksheetfunction.count( rng.entirecolumn )
if lrec>0 then
rng.resize( lrec , lcol ).clearcontents
endif
Wassalam,
Kid.
On Sat, Mar 1, 2014 at 1:29 AM, Ratri Risyanto <[email protected]> wrote:
>
>
>
>
> *From:* Ratri Risyanto <[email protected]>
> *Sent:* Friday, February 28, 2014 1:31 PM
> *To:* EXCEL GROUP <[email protected]>
> *Subject:* SIMPAN DATA LISTVIEW KE EXCEL?
>
> Yth: All Masters Excel
>
> Bagaimana caranya menyimpan data listview ke excel? file terlampir...
> Mohon bantuannya...
> Terima kasih.
>
> Hk,
>
> Ratri Risyanto
>
>
>
