Rabu, 24 Oktober 2012

[belajar-excel] Digest Number 1865

15 New Messages

Digest #1865
1
mohon informasi by "Harry" hariansyahptk
2a
Re: Add data from xl to Access by "Heru Safrudin" superheruu
2b
Re: Add data from xl to Access by "Mr. Kid" nmkid.family@ymail.com
2c
Membagi Kalimat menjadi beberapa Cell by "kamirin_2@yahoo.co.id" kamirin_2
2d
Re: Membagi Kalimat menjadi beberapa Cell by "Mr. Kid" nmkid.family@ymail.com
2e
Re: Add data from xl to Access by "Heru Safrudin" superheruu
2f
Re: Add data from xl to Access by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Macro Mencari Cell Marge by "rodhy hakim" odhyz83_assasaky
4a
5a
5b
6a
Re: Belajar Loop by "Mr. Kid" nmkid.family@ymail.com
7a
Re: edit data..tidak mau berubah...? by "Mr. Kid" nmkid.family@ymail.com

Messages

Tue Oct 23, 2012 11:35 pm (PDT) . Posted by:

"Harry" hariansyahptk

Dear Beexceller,

Bersama ini saya mohon informasi dari reka-rekan Be exceller akan masalah error pada program saya. Adapun informasi yang muncul adalah :

Device I/O Error
Run Time Error
Auto Mation Error
The Object Inpoked has Disconnected
From its Klien

Mohon informasi akan hal tersebut di atas.

Terima kasih

Wassalam,

Harry

--- Mods ---
Andai aplikasi yang error tersebut boleh dibagi, mungkin akan lebih mudah, karena calon penanggap bisa mencoba sendiri. Tapi, biasanya tidak memungkinkan untuk dibagi. Maka, setidaknya bisa dengan :
- Penjelasan lebih detil secara kronologis sesaat sebelum muncul error tersebut akan memudahkan proses mengira-ira penyebab error.
- Hasil printscreen (yang sudah disesuaikan ukuran file gambarnya) juga bisa memudahkan proses mengira-ira penyebab error.
------------

Tue Oct 23, 2012 11:36 pm (PDT) . Posted by:

"Heru Safrudin" superheruu

Dear Mr. Kid

Query untuk ambil data mantab
Tapi untuk send ke access masih ada error :

Run-time error '-2147217900 (80040e14)' :
'Number of query values and destiantion fields are not the same'

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 24, 2012 4:25 AM
Subject: Re: [belajar-excel] Add data from xl to Access

Coba file pada link berikut :
http://www.4shared.com/zip/abX7TZKu/Excel_n_Access_Query.html
Dibuat dengan Excel 2007 pada mode compatibility ke Excel 2003.
Tingak kesesuaian script VBA belum diuji langsung pada Excel 2003.
MS Access database yang digunakan adalah dengan Acces 2000 file format.
Provider : Jet 4 OLEDB.

Pada i5 2.67GHz 8GB RAM :
>> Untuk ambil data dari Access
- sebanyak 13K records
- 22 kolom didominasi data bertipe text
- tabel belum dinormalisasi
- waktu proses sekitar 0.5 sec.
- menggunakan QueryTable
>> Untuk tulis data ke Access
- sebanyak 13K records
- 21 kolom didominasi data bertipe text
- tabel belum dinormalisasi
- waktu proses sekitar 11 sec.
- menggunakan ADO (library : Microsoft ActiveX Data Objects)

Wassalam,
Kid.

2012/10/23 Mr. Kid <mr.nmkid@gmail.com>

Kalau boleh tahu :
1. query untuk ambil ke mdb nya seperti apa ?
2. file output excel-nya seperti apa ?
3. file mdb-nya seperti apa ?

Coba kompres database. Fitur ini ada dalam MS Access namanya Compact atau apa ya. Kalau di Office 2007, sepertinya di office button -> manage.

Wassalam,
Kid.

Tue Oct 23, 2012 11:46 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Bisa dijelaskan kenapa kok bisa error ?
Disini semuaya baik-baik saja.

Wassalam,
Kid.

2012/10/24 Heru Safrudin <superheruu@gmail.com>

> **
>
>
> **
> Dear Mr. Kid
>
> Query untuk ambil data mantab
> Tapi untuk send ke access masih ada error :
>
> *Run-time error '-2147217900 (80040e14)' :*
> *'Number of query values and destiantion fields are not the same'*
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, October 24, 2012 4:25 AM
> *Subject:* Re: [belajar-excel] Add data from xl to Access
>
>
>
> Coba file pada link berikut :
> http://www.4shared.com/zip/abX7TZKu/Excel_n_Access_Query.html
> Dibuat dengan Excel 2007 pada mode compatibility ke Excel 2003.
> Tingak kesesuaian script VBA belum diuji langsung pada Excel 2003.
> MS Access database yang digunakan adalah dengan Acces 2000 file format.
> Provider : Jet 4 OLEDB.
>
> Pada i5 2.67GHz 8GB RAM :
> >> Untuk ambil data dari Access
> - sebanyak 13K records
> - 22 kolom didominasi data bertipe text
> - tabel belum dinormalisasi
> - waktu proses sekitar 0.5 sec.
> - menggunakan QueryTable
> >> Untuk tulis data ke Access
> - sebanyak 13K records
> - 21 kolom didominasi data bertipe text
> - tabel belum dinormalisasi
> - waktu proses sekitar 11 sec.
> - menggunakan ADO (library : Microsoft ActiveX Data Objects)
>
> Wassalam,
> Kid.
>
> 2012/10/23 Mr. Kid <mr.nmkid@gmail.com>
>
>> Kalau boleh tahu :
>> 1. query untuk ambil ke mdb nya seperti apa ?
>> 2. file output excel-nya seperti apa ?
>> 3. file mdb-nya seperti apa ?
>>
>> Coba kompres database. Fitur ini ada dalam MS Access namanya Compact
>> atau apa ya. Kalau di Office 2007, sepertinya di office button -> manage.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>
>

Tue Oct 23, 2012 11:59 pm (PDT) . Posted by:

"kamirin_2@yahoo.co.id" kamirin_2

Dear Para Master,

Ada yg tau ga caranya, membagi kalimat sbb :
Misal di sy punya kalimat panjang di cell A1, trus sy mau split jd 5,
Dan pecahan kalimat tsb ada di cell
A1,A2,A3,A4,A5

Thanks
Jaka
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

Wed Oct 24, 2012 12:06 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Data di A1 sampai A17 (ada 17 record). Setiap record akan dipecah jadi 5
baris.
Sebaiknya hasil di letakkan dikolom lain di sheet lain, supaya ndak nabrak
data yang akan diproses lainnya.

Berikut langkah-langkahnya :
1. buat sebuah workbook
2. buat minimal 2 sheet
3. copy data yang akan diproses ke sheet pertama (sebaiknya ada header di
baris pertama), minimal 2 kolom x 5 baris data
4. copy header ke sheet sebelahnya yang akan menjadi sheet hasil
5. buat keterangan yang lebih detil tentang kolom data yang akan diproses.
6. di sheet sebelah, buat contoh hasil kerja ketik manual memproses datanya.

Semoga gak menemukan error.

Wassalam,
Kid.

2012/10/24 <kamirin_2@yahoo.co.id>

> **
>
>
> Dear Para Master,
>
> Ada yg tau ga caranya, membagi kalimat sbb :
> Misal di sy punya kalimat panjang di cell A1, trus sy mau split jd 5,
> Dan pecahan kalimat tsb ada di cell
> A1,A2,A3,A4,A5
>
> Thanks
> Jaka
> Sent from my BlackBerry�
> powered by Sinyal Kuat INDOSAT
>
>
>

Wed Oct 24, 2012 1:24 am (PDT) . Posted by:

"Heru Safrudin" superheruu

Errornya waktu klik Send to DB ( screen capture terlampir)
saya cek di DB memang data belum masuk
ini saya juga lagi cari, apa mungkin type datanya gak sesuai

----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 24, 2012 1:45 PM
Subject: Re: [belajar-excel] Add data from xl to Access

Bisa dijelaskan kenapa kok bisa error ?
Disini semuaya baik-baik saja.

Wassalam,
Kid.

2012/10/24 Heru Safrudin <superheruu@gmail.com>



Dear Mr. Kid

Query untuk ambil data mantab
Tapi untuk send ke access masih ada error :

Run-time error '-2147217900 (80040e14)' :
'Number of query values and destiantion fields are not the same'

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 24, 2012 4:25 AM
Subject: Re: [belajar-excel] Add data from xl to Access

Coba file pada link berikut :
http://www.4shared.com/zip/abX7TZKu/Excel_n_Access_Query.html
Dibuat dengan Excel 2007 pada mode compatibility ke Excel 2003.
Tingak kesesuaian script VBA belum diuji langsung pada Excel 2003.
MS Access database yang digunakan adalah dengan Acces 2000 file format.
Provider : Jet 4 OLEDB.

Pada i5 2.67GHz 8GB RAM :
>> Untuk ambil data dari Access
- sebanyak 13K records
- 22 kolom didominasi data bertipe text
- tabel belum dinormalisasi
- waktu proses sekitar 0.5 sec.
- menggunakan QueryTable
>> Untuk tulis data ke Access
- sebanyak 13K records
- 21 kolom didominasi data bertipe text
- tabel belum dinormalisasi
- waktu proses sekitar 11 sec.
- menggunakan ADO (library : Microsoft ActiveX Data Objects)

Wassalam,
Kid.

2012/10/23 Mr. Kid <mr.nmkid@gmail.com>

Kalau boleh tahu :
1. query untuk ambil ke mdb nya seperti apa ?
2. file output excel-nya seperti apa ?
3. file mdb-nya seperti apa ?

Coba kompres database. Fitur ini ada dalam MS Access namanya Compact atau apa ya. Kalau di Office 2007, sepertinya di office button -> manage.

Wassalam,
Kid.

Wed Oct 24, 2012 1:29 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

1. Apakah sudah ada pengeditan query atau pengubahan letak kolom ?
2. Jika sudah ada, bisa jadi karena berbedanya letak kolom
menyebabkanketidaksesuaian
antara order dari field tujuan dengan order dari nilai yang akan dimasukkan.
3. Jika belum ada pengubahan query atau letak kolom, apakah ada pengubahan
nilai data ?
4. Jika ada pengubahan nilai data, maka bisa jadi karena beda
tipedataantara yang di-input
dengan yang ada di database.

Wassalam,
Kid.

2012/10/24 Heru Safrudin <superheruu@gmail.com>

> **
>
>
> **
> Errornya waktu klik Send to DB ( screen capture terlampir)
> saya cek di DB memang data belum masuk
> ini saya juga lagi cari, apa mungkin type datanya gak sesuai
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, October 24, 2012 1:45 PM
> *Subject:* Re: [belajar-excel] Add data from xl to Access
>
>
>
> Bisa dijelaskan kenapa kok bisa error ?
> Disini semuaya baik-baik saja.
>
> Wassalam,
> Kid.
>
> 2012/10/24 Heru Safrudin <superheruu@gmail.com>
>
>> **
>>
>>
>> **
>> Dear Mr. Kid
>>
>> Query untuk ambil data mantab
>> Tapi untuk send ke access masih ada error :
>>
>> *Run-time error '-2147217900 (80040e14)' :*
>> *'Number of query values and destiantion fields are not the same'*
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>> ----- Original Message -----
>> *From:* Mr. Kid <mr.nmkid@gmail.com>
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Wednesday, October 24, 2012 4:25 AM
>> *Subject:* Re: [belajar-excel] Add data from xl to Access
>>
>>
>>
>> Coba file pada link berikut :
>> http://www.4shared.com/zip/abX7TZKu/Excel_n_Access_Query.html
>> Dibuat dengan Excel 2007 pada mode compatibility ke Excel 2003.
>> Tingak kesesuaian script VBA belum diuji langsung pada Excel 2003.
>> MS Access database yang digunakan adalah dengan Acces 2000 file format.
>> Provider : Jet 4 OLEDB.
>>
>> Pada i5 2.67GHz 8GB RAM :
>> >> Untuk ambil data dari Access
>> - sebanyak 13K records
>> - 22 kolom didominasi data bertipe text
>> - tabel belum dinormalisasi
>> - waktu proses sekitar 0.5 sec.
>> - menggunakan QueryTable
>> >> Untuk tulis data ke Access
>> - sebanyak 13K records
>> - 21 kolom didominasi data bertipe text
>> - tabel belum dinormalisasi
>> - waktu proses sekitar 11 sec.
>> - menggunakan ADO (library : Microsoft ActiveX Data Objects)
>>
>> Wassalam,
>> Kid.
>>
>> 2012/10/23 Mr. Kid <mr.nmkid@gmail.com>
>>
>>> Kalau boleh tahu :
>>> 1. query untuk ambil ke mdb nya seperti apa ?
>>> 2. file output excel-nya seperti apa ?
>>> 3. file mdb-nya seperti apa ?
>>>
>>> Coba kompres database. Fitur ini ada dalam MS Access namanya Compact
>>> atau apa ya. Kalau di Office 2007, sepertinya di office button -> manage
>>> .
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>
>
>

Wed Oct 24, 2012 2:04 am (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

karena tidak ada contoh manual yang dilampirkan maka saya mencoba menafsirkan sendiri maksud dari yang ditanyakan.

dalam lampiran yang saya buat , pada cell A1 ada kalimat panjang yang saya ambil dari kutipan penuh dari pertanyaan yang diajukan dalam kasus ini dengan mengubah beberapa karakter yang diperlukan.

kalimat di cell A1 sbb:

Ada yg tau ga ? caranya, membagi kalimat sbb :
Misal di sy punya kalimat panjang di cell A1, trus sy mau split jd 5,
Dan pecahan kalimat tsb ada di cell A2,A3,A4,A5 dan A6.

formula pertama di A2 sbb:
=MID(A$1;((ROW(1:1)-1)*CEILING(LEN(A$1)/5;1))+1;CEILING(LEN(A$1)/5;1))
copy ke bawah sampai A6

wassalam

Ghozi Alkatiri

________________________________
Dari: "kamirin_2@yahoo.co.id" <kamirin_2@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 24 Oktober 2012 13:57
Judul: [belajar-excel] Membagi Kalimat menjadi beberapa Cell


 
Dear Para Master,

Ada yg tau ga caranya, membagi kalimat sbb :
Misal di sy punya kalimat panjang di cell A1, trus sy mau split jd 5,
Dan pecahan kalimat tsb ada di cell
A1,A2,A3,A4,A5

Thanks
Jaka
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

Wed Oct 24, 2012 2:16 am (PDT) . Posted by:

"kamirin_2@yahoo.co.id" kamirin_2

Makasih Pa Ghozi, penjelasannya sangat membantu sekali.


Thanks,
Jaka
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Wed, 24 Oct 2012 17:03:50
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Membagi Kalimat menjadi beberapa Cell

karena tidak ada contoh manual yang dilampirkan maka saya mencoba menafsirkan sendiri maksud dari yang ditanyakan.

dalam lampiran yang saya buat , pada cell A1 ada kalimat panjang yang saya ambil dari kutipan penuh dari pertanyaan yang diajukan dalam kasus ini dengan mengubah beberapa karakter yang diperlukan.

kalimat di cell A1 sbb:

Ada yg tau ga ? caranya, membagi kalimat sbb :
Misal di sy punya kalimat panjang di cell A1, trus sy mau split jd 5,
Dan pecahan kalimat tsb ada di cell A2,A3,A4,A5 dan A6.

formula pertama di A2 sbb:
=MID(A$1;((ROW(1:1)-1)*CEILING(LEN(A$1)/5;1))+1;CEILING(LEN(A$1)/5;1))
copy ke bawah sampai A6

wassalam

Ghozi Alkatiri







________________________________
Dari: "kamirin_2@yahoo.co.id" <kamirin_2@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 24 Oktober 2012 13:57
Judul: [belajar-excel] Membagi Kalimat menjadi beberapa Cell


 
Dear Para Master,

Ada yg tau ga caranya, membagi kalimat sbb :
Misal di sy punya kalimat panjang di cell A1, trus sy mau split jd 5,
Dan pecahan kalimat tsb ada di cell
A1,A2,A3,A4,A5

Thanks
Jaka
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT



Wed Oct 24, 2012 12:51 am (PDT) . Posted by:

"rodhy hakim" odhyz83_assasaky

Dear Mr.Kid,
berhasil, saya ucapkan terima kasih.
 
salam,
odhy

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 23, 2012 4:44 PM
Subject: Re: [belajar-excel] Macro Mencari Cell Marge

 
Untuk meng-unmerge semua merged cells, bisa langsung (tanpa perlu cari) dengan :
sheets("nama worksheetnya").cells.unmerge

Jika ingin cari mana yang di-merge
Public Sub MergedCellsInfo()
    Dim rng As Range, rngRes As Range
    Dim lCount As Long
   
    For Each rng In ActiveSheet.UsedRange
        If rng.MergeCells Then                                  'kalau ketemu merge cells
            'mau diapain ?
           
            'contoh : mau buat daftar range yang di-merge
            If rngRes Is Nothing Then
                lCount = 1
                Set rngRes = rng.MergeArea
            End If
           
            If Intersect(rng, rngRes) Is Nothing Then
                lCount = lCount + 1
                Set rngRes = Union(rngRes, rng.MergeArea)
            End If
        End If
    Next rng
    MsgBox "Jumlah area merge cells : " & lCount & vbCrLf & _
            "Jumlah cell yang termerge : " & rngRes.Count & vbCrLf & _
            "Range yang di-merge : " & rngRes.Address
End Sub

Wassalam,
Kid.

2012/10/23 rodhy hakim <odhyz83_assasaky@yahoo.com>
 
>Dear Master,
>Bagaimana Macro untuk Mencari Cell yang di Marge Kemudian di UnMarge di Excel.
>Sebelumnya saya ucapkan terima kasih,



>Salam,
>Odhy
>_
>

Wed Oct 24, 2012 12:51 am (PDT) . Posted by:

"achmad adi" didon13@ymail.com



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.nmkid@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 <didon13@ymail.com>


>Masih belum jalan mr Kid.
>
>
>
>
>
>
>
>________________________________
> Dari: Kid Mr. <mr.nmkid@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 <didon13@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.nmkid@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 <didon13@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.nmkid@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 <didon13@ymail.com>
>>>
>>>
>>>> 
>>>>dear master,
>>>>
>>>>mohon bantuanya masalah yang saya hadapi,,,
>>>>setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
>>>>saya sertakan file lebih jelasnya,,,
>>>>terimakasih....
>>>>
>>>
>>
>
>
>

Wed Oct 24, 2012 1:27 am (PDT) . Posted by:

"Tony Bexcel"

Dear Pakar yang Budiman,
 
Mohon bantuan nya untuk mengklasifikasi untuk kolom komen berdasarkan percentage seperti contoh terlampir.
 
Terimakasih atas segal bantuan nya ya temans..
 
Salam,
Tony

Wed Oct 24, 2012 1:48 am (PDT) . Posted by:

"Bagus" bagus4bls

Dear Tony

File terlampir semiga sesuai harapan

Bagus

----- Original Message -----
From: Tony Bexcel
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 24, 2012 3:27 PM
Subject: [belajar-excel] Pembagian kata untuk komen

Dear Pakar yang Budiman,

Mohon bantuan nya untuk mengklasifikasi untuk kolom komen berdasarkan percentage seperti contoh terlampir.

Terimakasih atas segal bantuan nya ya temans..

Salam,
Tony

Wed Oct 24, 2012 1:35 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pak Lukman,

Bolehkah meminta penjelasan yang lebih detil. Jika merujuk sebuah cell,
cantumkan indeks kolom dan barisnya beserta di sheet apa.
Sertakan juga hasil kerja manualnya. Maksud dari loop pada kasus ini adalah
proses yang bagaimana.

Maaf kalau malah merepotkan. Kuatirnya, dengan penjelasan yang ada sekarang
ini, akan ada BeExceller lain yang 5 minggu mencoba membantu tapi belum
ketemu idenya.

Wassalam,
Kid.

2012/10/24 lkm jktind <lkmjktind@gmail.com>

> **
>
>
> mau belajar looping .
> cara mengambil data dari sheet data bese.
> untuk di pakai di sheet input_data.
> untuk cells 13 . itu perhitungannya . = cell 4 + cell 16 --- kalau di
> formula excel : workday.
> cell 14 : % fee .
> cell 15 : % tax
> cell 16 : T + berapa hari .
>
> (nantinya cell 14, 15 dan 16 ) akan saya kosongkan .
>
> diambil dari sheet database.
>
> sudah 5 minggu .lamanya hanya sampai di sini hasil yg dapat ke kerjakan .
>
> sebelum nya saya ucapkan terima kasih .
>
> Salam
>
> Lukman
>
>
>
>

Wed Oct 24, 2012 2:40 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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.nmkid@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 <didon13@ymail.com>
>
>> **
>>
>>
>> Masih belum jalan mr Kid.
>>
>>
>>
>> ------------------------------
>> *Dari:* Kid Mr. <mr.nmkid@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 <didon13@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.nmkid@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 <didon13@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.nmkid@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 <didon13@ymail.com>
>>
>> **
>>
>> dear master,
>>
>> mohon bantuanya masalah yang saya hadapi,,,
>> setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
>> saya sertakan file lebih jelasnya,,,
>> terimakasih....
>>
>>
>>
>>
>>
>>
>>
>>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar