Script ini bisa jalankan.
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
Yang hijau adalah tahap menulis ke sheet masing-masing.
Untuk membuat tidak menulis jadi 2, maka perlu diubah seperti yang
disarankan kemarin, yaitu bagian yang berbunyi : (*merah*)
Call EntryData2(Me.ScrollBar1 + 2, Form2)
Yang biru dicoba penambah lainnya. Anda coba saja mulai dari +0 sampai +99,
mana yang cocok hasilnya. Bawaan dari mbak Siti kan + 2
Semuanya tergantung susunan tabel yang dituju. Kalau hal di atas tidak
dimengerti kenapa kok angka tertentu bisa cocok dan angka lain gak cocok
sesuai keinginan, begitu Anda ubah tabelnya sedikit saja, bisa-bisa Anda
minta copas script sebuah prosedur seperti di atas lagi.
Malah lama kan, pakai nunggu calon penanggap harus bisa memahami si script
dulu.
Wassalam,
Kid.
2012/11/30 achmad adi <[email protected]>
> **
>
>
> mau berubah mr kid dimasing masing SHEET tertuju,,,mantap
> tapi di Sheet Data siswa kok malah nambah data bukan merubah data?
>
>
> mantap>>>mr kid.....trimakasih bantuanya...
>
>
>
> ------------------------------
> *Dari:* Mr. Kid <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Jumat, 30 November 2012 11:42
>
> *Judul:* Re: [belajar-excel] edit data..tidak mau berubah...?
>
>
> 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 <[email protected]>
>
> **
>
> masih belum mengerti MrKid>>> bingung
> bisa sertakanlampiran file nya?
>
>
> ------------------------------
> *Dari:* Mr. Kid <[email protected]>
> *Kepada:* [email protected]
> *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 <[email protected]>
>
> 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 <[email protected]>
>
> **
>
> Masih belum jalan mr Kid.
>
>
>
> ------------------------------
> *Dari:* Kid Mr. <[email protected]>
> *Kepada:* [email protected]
> *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 <[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....
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
