if listbox.listindex<>-1 then
range("a2:c2").offset(listbox.listindex).delete xlshiftup
endif
Wassalam,
Kid.
2013/4/17 lapendosol opik <lapendo...@yahoo.com>
> **
>
>
> Dear master excel,
> Saya membuat file excel yang berisi form, form berisi listbox.RowSource
> Saya ingin menghapus Range berdasarkan ListBox.ListIndex nya
> Sudah dicoba-coba tapi gagal terus, kode yang pengen saya masukkan:
> Range("A21:C21").Delete Shift:=xlUp
> Angka 21 dalam Range("A21:C21") dibuat dinamis sesuai listindex yang di
> klik pada listbox
>
> Lebih jelasnya lihat file contoh yang saya lampirkan
> Atas perhatian dan bantuannya, saya ucapkan banyak terimakasih
> Wassalam,
>
>
>
