Deklarasi prosedur refreshtable diubah menjadi :
Private Sub RefreshTabels(Optional sShtName As String = "datasiswa")
Baris dalam prosedur refreshtable yang berbunyi :
Set IndTBL = Sheets("datasiswa").Range("A4").CurrentRegion
diubah menjadi :
Set IndTBL = Sheets(sShtName).Range("A4").CurrentRegion
Tambahkan pada event click tombol Edit :
1. persis setelah deklarasi prosedur (alias baris pertama dalam prosedur)
diberi perintah untuk refreshtable berdasar isi combobox
RefreshTabels ComboBox.Text 'pastikan combobox sudah ada
itemnya, bila perlu lakukan cek lebih dulu
2. persis sebelum end sub diberi perintah untuk refresh table ke sheet
datasiswa lagi
RefreshTabels
Wassalam,
Kid.
2012/10/11 achmad adi <dido...@ymail.com>
> **
>
>
> dear master,
>
> mohon bantuanya masalah yang saya hadapi,,,
> setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
> saya sertakan file lebih jelasnya,,,
> terimakasih....
>
>
>
>
