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 <mr.nm...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
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 <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 mengertikenapa 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....
>>>>>>
>>>>>
>>>>
>>>
>>>
>>>
>>
>
>
>
