trimakasih sebelumnya Mr. Kid...
saya oprek2 ampe pusing masih aja belum mau berubah juga,,,
coding dan prosedure mana yang harus diganti,dirubah to dihapus,,,
suapaya pada waktu EDIT...datasiswa berubah,,,dan data dimasing2 Sheet tertuju
juga berubah,,,
to punya solusi yang lebih sederhana yang cara dan maksdnya sama?
________________________________
Dari: Mr. Kid <mr.nm...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 13 Oktober 2012 9:45
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
Untuk penulisan ke sheet masing-masing kelas mestinya sudah jalan.
Mungkin Anda belum menghapus baris
RefreshTabels ComboBox.Text
Kalau yang dimaksud belum jalan adalah tentang penulisan ke sheet datasiswa,
itu karena kesalahan dalam menentukan nomor baris dalam tabel disheet
datasiswa. Bagian ini memang ndak diubah-ubah. Semuanya adalah asli ujicoba
Anda.
Cukup memperbaiki baris pemanggilan prosedur penulis ke sheet datasiswa. Kalau
ndak salah ingat, Anda ingin membuatnya dengan memanggil prosedur baru yang
namanya entry2 atau apalah itu.
Penentuan nilai parameter pada sisi barislah yang harus diperbaiki. Kalau ndak
salah inget lagi, sepertinya waktu itu Anda menggunakan nilai dari scroll bar
atau spin yang ada di sheet Input. Nah bagian ini yang harus disesuaikan.
Mungkin proses penambahan atau pengurangan terhadap nilai ini (nilai scrollbar
atau spin ini) yang harus diubah supaya baris penulisannya ke sheet datasiswa
nantinya menjadi tepat sasaran.
Wassalam,
Kid.
2012/10/13 achmad adi <dido...@ymail.com>
>
>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....
>>>>
>>>
>>
>
>
>
