Ganti event click tombol edit dengan yang ini :
Private Sub Cmd_EditInput_Click()
Dim rng As Range
If Sheets("input").ComboBox.ListIndex = -1 Then
Exit Sub
End If
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
End If
Sheets("input").Range("b16:h16").Copy
rng.PasteSpecial xlPasteValues
RefreshTabels
' sebelum records dlm tabel induk diubah,
' diselamatkan dulu (=dicopy) ke IndTBL histori
' sesuai saran jitu dari mas Kid
IndTBL(Me.ScrollBar1 + 1, 1).Resize(1, IndTBL.Columns.Count).Copy
HisTBL(hRow, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
HisTBL(hRow, 2).Offset(0, tCol) = Now
' Form Kanan (FORM2) yg mungkin telah diedit,
' data disave ke Tabel induk
' pelaksanaan entrying nya dgn dibantu prosedur "EntryData"
Call EntryData2(Me.ScrollBar1 + 2, Form2)
End Sub
Wassalam,
Kid.
2012/11/29 achmad adi <dido...@ymail.com>
> **
>
>
> masih belum mengerti MrKid>>> bingung
> bisa sertakanlampiran file nya?
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nm...@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 24 Oktober 2012 16:39
>
> *Judul:* Re: [belajar-excel] edit data..tidak mau berubah...?
>
>
> 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....
>
>
>
>
>
>
>
>
>
>
>
>
