Oh gitu...
kalau gitu baris :
RefreshTabels ComboBox.Text
tidak boleh dipakai. Hapus saja dan ganti dengan yang ini.
dim rng as range
if sheets("input").combobox.listindex=-1 then
exit sub
endif
set rng=sheets( sheets("input").combobox.text ) _
.range("b5").currentregion.resize(,1).find(
sheets("input").range("b16").value )
if rng is nothing then
exit sub
endif
sheets("input").range("b16:h16").copy
rng.pastespecial xlpastevalues
moga-moga gak error
Wassalam,
Kid.
2012/10/12 <[email protected]>
> **
>
>
> ** Iya mrkid..thanks...sekarang permasalahanya..kebalik...disheet tertuju
> mau berubah..tapi didatasiswa tidak Ada perubahan Setelah pengeditan..
>
> Yang saya maksud setelah Ada pengeditan
> Datasiswa berubah
> Di sheet kelas jg berubah
> Sesuai pengeditan
>
> Trimakasih
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Kid Mr." <[email protected]>
> *Sender: * [email protected]
> *Date: *Fri, 12 Oct 2012 15:51:46 +0700
> *To: *<[email protected]>
> *ReplyTo: * [email protected]
> *Subject: *Re: [belajar-excel] edit data..tidak mau berubah...?
>
>
>
> Bukankah sudah disarankan :
> 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
>
>
> Wassalam,
> Kid.
>
> 2012/10/12 <[email protected]>
>
>> **
>>
>>
>> ** Untuk tombol edit masih eror..
>> Subscript out of range
>>
>> Set IndTBL=sheets(sShtName).range("A4").currentregion
>> Powered by Telkomsel BlackBerry®
>> ------------------------------
>> *From: * "Kid Mr." <[email protected]>
>> *Sender: * [email protected]
>> *Date: *Fri, 12 Oct 2012 00:55:48 +0700
>> *To: *<[email protected]>
>> *ReplyTo: * [email protected]
>> *Subject: *Re: [belajar-excel] edit data..tidak mau berubah...?
>>
>>
>>
>> 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 <[email protected]>
>>
>>> **
>>>
>>>
>>> dear master,
>>>
>>> mohon bantuanya masalah yang saya hadapi,,,
>>> setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
>>> saya sertakan file lebih jelasnya,,,
>>> terimakasih....
>>>
>>>
>>>
>>
>
>
