Coba lihat pada event click milik tombol edit.
Disana ada baris berbunyi :
Call EntryData2(Me.ScrollBar1 + 2, Form2)
Biru : indeks baris penulisan
Merah : range yang dikenai si indeks baris penulisan
Coba ganti dengan :
Call EntryData2(7, Form2)
Kalau masih gak cocok, coba ganti dengan :
Call EntryData2(Me.ScrollBar1, Form2)
Masih gak cocok juga, coba ganti dengan :
Call EntryData2(Me.ScrollBar1 + 7, Form2)
Masih gak cocok juga ?
Pantesnya berapa ya ?
baris inilah yang harus Anda mengerti kenapa dan mengapa mbake Siti memaksa
adanya nilai yang dibiru itu.
Dengan begitu, pemakainya yang suka copas tinggal ubah-ubah sampai sesuai
selera mereka.
Wassalam,
Kid.
2012/10/13 Mr. Kid <mr.nm...@gmail.com>
> 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....
>>
>>
>>
>>
>>
>>
>>
>>
>
>
