Jumat, 11 April 2014

[belajar-excel] Digest Number 2872

9 Messages

Digest #2872
1a
Re: membuat propertise VBA jadi unviewable by "Mr. Kid" nmkid.family@ymail.com
3a
Re: insert baris sesuai target. by "Ahmad Syaifullah Lubis" syaifullah
3b
Re: insert baris sesuai target. [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
3c
Re: insert baris sesuai target. [1 Attachment] by "hendrik karnadi" hendrikkarnadi
3d
Re: insert baris sesuai target. by "Ahmad Syaifullah Lubis" syaifullah
3e
Re: insert baris sesuai target. by "Ahmad Syaifullah Lubis" syaifullah
3f
Re: insert baris sesuai target. by "Mr. Kid" nmkid.family@ymail.com
3g
Re: insert baris sesuai target. by "hendrik karnadi" hendrikkarnadi

Messages

Thu Apr 10, 2014 8:36 pm (PDT) . Posted by:

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

Coba dipastikan workbooknya tidak dalam keadaan shared workbook (lihat di
ribbon review -> share workbook -> hilangkan centang dari allow blablabla
gitu -> ok
save, tutup workbook, lalu buka lagi. Sapa tau bisa sembuh.
Kalau gak sembuh, berarti waktu konversi dari versi excel pembuatnya ke
versi excel yang dipakai sekarang mengalami kegagalan (yang biasanya
terjadi). Jadi harus buka dari versi yang digunakan untuk membuatnya,
dihilangkan password dan status share workbooknya.

Wassalam,
Kid.

2014-04-09 2:03 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:

>
>
> Biasanya file yang di-password pada versi Excel sebelum Excel 2003. Link
> berikut ini<http://www.mrexcel.com/forum/excel-questions/161771-challenge-make-add-project-unviewable.html>contoh kalau diterapkan pada sebuah addin (bisa diterapkan pada selain
> addin selama vba di password dengan xl 2002 kebawah).
>
> ;) ini bug dari proses compatibility...
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-04-07 15:32 GMT+07:00 prazt <praztmath@gmail.com>:
>
>>
>>
>> Lagi ni master, bagaimana cara membuat agar propertise pada VBA menjadi
>> unviewable, seperti gambar terlampir
>>
>>
>> ------------------------------
>> <http://www.avast.com/>
>>
>> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>>
>>
>
>

Thu Apr 10, 2014 9:20 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84

pak joko
coba file terlmpir..
semoga sesuai.
(edit macro lampiran yang kemarin)hehe

salam
lb

 

Pada Kamis, 10 April 2014 18:07, Joko Suryaningrat <joko369@yahoo.com> menulis:

 
bukan insert baris seperti itu pak Agus, file yang dikasih om Lazuardi bener tuh, pengennya seperti itu, cara bikinnya gimana ya,? supaya baris yang gak ada datanya disembunyikan. tolong saya para master...hiks hiks

On Thursday, 10 April 2014, 8:37, Lazuardi Biru <lazuardi_biru84@yahoo.com> wrote:


pak joko

coba pelajari file terlampir..
saya peroleh dari internet..
jadi kalau suruh jelaskan saya sendiri tidak bisa hehehee.
sepertinya barisnya gak otomatis bertambah, hanya saya kalau tidak ada data barisnya di sembunyikan. hehehe.
tapi sepertinya harus ada patokan maksimal angsuran

file terlampir

salam
lb

Pada Kamis, 10 April 2014 7:15, nangAgus <nangagoez@yahoo.co.id> menulis:

 
Dear Joko

Apakah yang dimaksudkan adalah insert Row?
coba buka attachment

On 08/04/2014 9:19, Joko Suryaningrat wrote:

 
>Assalamualaikum, selamat pagi semua, mohon bantuannya mengenai cara agar jumlah baris dapat ditentukan dengan jumlah data yang diinginkan dengan batas maksimum data tertentu. Berapapun jumlah data, dibawah baris terakhir data tersebut terdapat signature.
>
>
>Sebenarnya masalah ini sudah pernah ditanyakan pada "Row bertambah otomatis sesuai jumlah data", namun belum tuntas dan saya belum mendapat jawaban yang sesuai, maka saya buat thread baru ini.
>
>
>Mohon bantuan teman-teman semua.
>

Thu Apr 10, 2014 11:12 pm (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah



Dear Mr Kid,
Proses manual dari macro insert baris sesuai target adalah macro berjalan mulai dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan diinsert baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert row lagi, bila tidak ada tanda "x" maka turun 1 baris saja, terus berulang sampai selesai.
dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb kalau sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet tombol pause/break.
terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang diinginkan.
terimakasih.

ASL

To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Fri, 11 Apr 2014 08:50:47 +0700
Subject: Re: [belajar-excel] insert baris sesuai target.

Bisa dijabarkan proses manual insertnya bagaimana ?

Wassalam,
Kid.

2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:

Dear BeExceller,

Saya ada macro untuk insert baris dari target yang telah diberikan tanda "x", namun macronya gak jalan.
mohon diberikan solusinya.
terima kasih.

ASL



Thu Apr 10, 2014 11:37 pm (PDT) . Posted by:

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

Prinsip prosesnya :
1. pada kolom C, mulai record pertama (setelah header) sampai baris
terakhir data di kolom C dipilih cell yang berisi konstanta bertipe text
2. lakukan insert entire row

Langkah-langkah pengerjaan manualnya sebagai berikut : (langkah-langkah
bisa di-record macro)
1.blok seluruh kolom C
2. tekan CTRL G -> klik Special -> pilih Constant -> hilangkan semua
centang kecuali pada opsi TEXT -> tekan OK
3. klik kanan sebuah cell yang terblok -> pilih Insert -> pilih Entire Row
-> tekan OK
4. [optional] jika ngotot baris header gak boleh ikut ter-insert, blok
baris 3 Excel -> klik kanan yang terblok -> pilih Delete

Jika langkah tersebut diikuti dengan seksama sembari mengaktifkan Record
Macro, maka akan terbentuk prosedur sub hasil record macro dalam VBProject
di sebuah general module.

Wassalam,
Kid.

2014-04-11 13:12 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:

>
>
> Dear Mr Kid,
> Proses manual dari macro insert baris sesuai target adalah macro berjalan
> mulai dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan
> diinsert baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert
> row lagi, bila tidak ada tanda "x" maka turun 1 baris saja, terus berulang
> sampai selesai.
> dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu
> seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb
> kalau sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet
> tombol pause/break.
> terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang
> diinginkan.
> terimakasih.
>
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Fri, 11 Apr 2014 08:50:47 +0700
> Subject: Re: [belajar-excel] insert baris sesuai target.
>
>
>
>
> Bisa dijabarkan proses manual insertnya bagaimana ?
>
> Wassalam,
> Kid.
>
>
>
> 2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
> Dear BeExceller,
>
> Saya ada macro untuk insert baris dari target yang telah diberikan tanda
> "x", namun macronya gak jalan.
> mohon diberikan solusinya.
> terima kasih.
>
> ASL
>
>
>
>
>
>
>
>

Fri Apr 11, 2014 12:20 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba pake macro ini:

'warisan ctv (modified by HK)
Sub InsertRow()
   Dim Rng As Range, i As Long
   Set Rng = Range("A1:A100000")
   For i = Rng.Rows.Count To 1 Step -1
      If Range("A" & i).Value = "x" Then
         Range("A" & i).EntireRow.Insert
       End If
   Next i
End Sub

Salam,
HK

On Friday, 11 April 2014, 13:12, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:

 
Dear Mr Kid,
Proses manual dari macro insert baris sesuai target adalah macro berjalan mulai dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan diinsert baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert row lagi, bila tidak ada tanda "x" maka turun 1 baris saja, terus berulang sampai selesai.
dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb kalau sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet tombol pause/break.
terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang diinginkan.
terimakasih.

ASL

________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Fri, 11 Apr 2014 08:50:47 +0700
Subject: Re: [belajar-excel] insert baris sesuai target.

 

Bisa dijabarkan proses manual insertnya bagaimana ?

Wassalam,
Kid.

2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:


>
>
>Dear BeExceller,
>
>Saya ada macro untuk insert baris dari target yang telah diberikan tanda "x", namun macronya gak jalan.
>mohon diberikan solusinya.
>terima kasih.
>
>ASL
>
>
>
>
>
>

Fri Apr 11, 2014 2:11 am (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear Mr Kid,
Alhamdulillah , dengan cara CTRL G-spesial-constant-hanya ambil opsi text dan dilanjutkan dengan insert row data saya yang 13000 baris tertata sesuai dengan keinginan saya. terima kasih mr Kid. Tanpa macro ternyata berhasil.
sangat membantu.
Terima kasih,
ASL.

To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Fri, 11 Apr 2014 13:37:21 +0700
Subject: Re: [belajar-excel] insert baris sesuai target.

Prinsip prosesnya :
1. pada kolom C, mulai record pertama (setelah header) sampai baris terakhir data di kolom C dipilih cell yang berisi konstanta bertipe text

2. lakukan insert entire row

Langkah-langkah pengerjaan manualnya sebagai berikut : (langkah-langkah bisa di-record macro)
1.blok seluruh kolom C
2. tekan CTRL G -> klik Special -> pilih Constant -> hilangkan semua centang kecuali pada opsi TEXT -> tekan OK

3. klik kanan sebuah cell yang terblok -> pilih Insert -> pilih Entire Row -> tekan OK
4. [optional] jika ngotot baris header gak boleh ikut ter-insert, blok baris 3 Excel -> klik kanan yang terblok -> pilih Delete

Jika langkah tersebut diikuti dengan seksama sembari mengaktifkan Record Macro, maka akan terbentuk prosedur sub hasil record macro dalam VBProject di sebuah general module.

Wassalam,
Kid.

2014-04-11 13:12 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:

Dear Mr Kid,
Proses manual dari macro insert baris sesuai target adalah macro berjalan mulai dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan diinsert baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert row lagi, bila tidak ada tanda "x" maka turun 1 baris saja, terus berulang sampai selesai.

dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb kalau sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet tombol pause/break.

terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang diinginkan.
terimakasih.

ASL

To: belajar-excel@yahoogroups.com

From: mr.nmkid@gmail.com
Date: Fri, 11 Apr 2014 08:50:47 +0700
Subject: Re: [belajar-excel] insert baris sesuai target.

Bisa dijabarkan proses manual insertnya bagaimana ?

Wassalam,
Kid.

2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:

Dear BeExceller,

Saya ada macro untuk insert baris dari target yang telah diberikan tanda "x", namun macronya gak jalan.
mohon diberikan solusinya.
terima kasih.

ASL





Fri Apr 11, 2014 2:17 am (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear Mr HK,
terima kasih, macro ini juga berjalan sesuai dengan keinginan saya.
cuman mau nanya gimana ya agar baris yg diinsert itu bukan 1 baris, tetapi menjadi 2 baris gitu.
terima kasih,

ASL.

To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Fri, 11 Apr 2014 00:20:55 -0700
Subject: Re: [belajar-excel] insert baris sesuai target.

Coba pake macro ini:
'warisan ctv (modified by HK)Sub InsertRow() Dim Rng As Range, i As Long Set Rng = Range("A1:A100000") For i = Rng.Rows.Count To 1 Step -1 If Range("A" & i).Value = "x" Then Range("A" & i).EntireRow.Insert End If Next iEnd Sub
Salam,HK

On Friday, 11 April 2014, 13:12, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:



Dear Mr Kid,Proses manual dari macro insert baris sesuai target adalah macro berjalan mulai dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan diinsert baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert row lagi, bila tidak ada tanda "x" maka turun 1 baris saja, terus berulang sampai selesai.dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb kalau sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet tombol pause/break.terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang diinginkan. terimakasih.ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.comDate: Fri, 11 Apr 2014 08:50:47 +0700Subject: Re: [belajar-excel] insert baris sesuai target.

Bisa dijabarkan proses manual insertnya bagaimana ?Wassalam,Kid.2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:

Dear BeExceller,Saya ada macro untuk insert baris dari target yang telah diberikan tanda "x", namun macronya gak jalan.mohon diberikan solusinya.terima kasih.ASL





Fri Apr 11, 2014 2:25 am (PDT) . Posted by:

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

hehehe...
gak sekalian dibuat record macronya ?

2014-04-11 16:11 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:

>
>
> Dear Mr Kid,
> Alhamdulillah , dengan cara CTRL G-spesial-constant-hanya ambil opsi text
> dan dilanjutkan dengan insert row data saya yang 13000 baris tertata sesuai
> dengan keinginan saya. terima kasih mr Kid. Tanpa macro ternyata berhasil.
> sangat membantu.
> Terima kasih,
> ASL.
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Fri, 11 Apr 2014 13:37:21 +0700
>
> Subject: Re: [belajar-excel] insert baris sesuai target.
>
>
>
> Prinsip prosesnya :
> 1. pada kolom C, mulai record pertama (setelah header) sampai baris
> terakhir data di kolom C dipilih cell yang berisi konstanta bertipe text
> 2. lakukan insert entire row
>
> Langkah-langkah pengerjaan manualnya sebagai berikut : (langkah-langkah
> bisa di-record macro)
> 1.blok seluruh kolom C
> 2. tekan CTRL G -> klik Special -> pilih Constant -> hilangkan semua
> centang kecuali pada opsi TEXT -> tekan OK
> 3. klik kanan sebuah cell yang terblok -> pilih Insert -> pilih Entire Row
> -> tekan OK
> 4. [optional] jika ngotot baris header gak boleh ikut ter-insert, blok
> baris 3 Excel -> klik kanan yang terblok -> pilih Delete
>
> Jika langkah tersebut diikuti dengan seksama sembari mengaktifkan Record
> Macro, maka akan terbentuk prosedur sub hasil record macro dalam VBProject
> di sebuah general module.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-04-11 13:12 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
> :
>
>
>
> Dear Mr Kid,
> Proses manual dari macro insert baris sesuai target adalah macro berjalan
> mulai dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan
> diinsert baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert
> row lagi, bila tidak ada tanda "x" maka turun 1 baris saja, terus berulang
> sampai selesai.
> dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu
> seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb
> kalau sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet
> tombol pause/break.
> terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang
> diinginkan.
> terimakasih.
>
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Fri, 11 Apr 2014 08:50:47 +0700
> Subject: Re: [belajar-excel] insert baris sesuai target.
>
>
>
>
> Bisa dijabarkan proses manual insertnya bagaimana ?
>
> Wassalam,
> Kid.
>
>
>
> 2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
> Dear BeExceller,
>
> Saya ada macro untuk insert baris dari target yang telah diberikan tanda
> "x", namun macronya gak jalan.
> mohon diberikan solusinya.
> terima kasih.
>
> ASL
>
>
>
>
>
>
>
>
>
>
>

Fri Apr 11, 2014 2:34 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak ASL,
Coba ganti ...

Perintah:
Range("A" & i).EntireRow.Insert

dengan
Range("A" & i).Resize(2).EntireRow.Insert

Salam,
HK

On Friday, 11 April 2014, 16:17, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:

 
Dear Mr HK,
terima kasih, macro ini juga berjalan sesuai dengan keinginan saya.
cuman mau nanya gimana ya agar baris yg diinsert itu bukan 1 baris, tetapi menjadi 2 baris gitu.
terima kasih,

ASL.

________________________________
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Fri, 11 Apr 2014 00:20:55 -0700
Subject: Re: [belajar-excel] insert baris sesuai target.

 

Coba pake macro ini:

'warisan ctv (modified by HK)
Sub InsertRow()
   Dim Rng As Range, i As Long
   Set Rng = Range("A1:A100000")
   For i = Rng.Rows.Count To 1 Step -1
      If Range("A" & i).Value = "x" Then
         Range("A" & i).EntireRow.Insert
       End If
   Next i
End Sub

Salam,
HK

On Friday, 11 April 2014, 13:12, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:

 
Dear Mr Kid,
Proses manual dari macro insert baris sesuai target adalah macro berjalan mulai dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan diinsert baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert row lagi, bila tidak ada tanda "x" maka turun 1 baris saja, terus berulang sampai selesai.
dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb kalau sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet tombol pause/break.
terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang diinginkan.
terimakasih.

ASL

________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Fri, 11 Apr 2014 08:50:47 +0700
Subject: Re: [belajar-excel] insert baris sesuai target.

 

Bisa dijabarkan proses manual insertnya bagaimana ?

Wassalam,
Kid.

2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:


>
>
>Dear BeExceller,
>
>Saya ada macro untuk insert baris dari target yang telah diberikan tanda "x", namun macronya gak jalan.
>mohon diberikan solusinya.
>terima kasih.
>
>ASL
>
>
>
>
>
>

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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