Masih belum jalan mr Kid.
________________________________
Dari: Kid Mr. <mr.nm...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 12 Oktober 2012 16:39
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
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 <dido...@ymail.com>
>
> 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." <mr.nm...@gmail.com>
>Sender: belajar-excel@yahoogroups.com
>Date: Fri, 12 Oct 2012 15:51:46 +0700
>To: <belajar-excel@yahoogroups.com>
>ReplyTo: belajar-excel@yahoogroups.com
>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 <dido...@ymail.com>
>
>
>>
>> Untuk tombol edit masih eror..
>>Subscript out of range
>>
>>Set IndTBL=sheets(sShtName).range("A4").currentregion
>>Powered by Telkomsel BlackBerry®
>>
>>________________________________
>>
>>From: "Kid Mr." <mr.nm...@gmail.com>
>>Sender: belajar-excel@yahoogroups.com
>>Date: Fri, 12 Oct 2012 00:55:48 +0700
>>To: <belajar-excel@yahoogroups.com>
>>ReplyTo: belajar-excel@yahoogroups.com
>>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 <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....
>>>
>>
>
