Jumat, 26 Agustus 2011

]] XL-mania [[ Digest Number 2235

Messages In This Digest (25 Messages)

Messages

1a.

Bls: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Ma

Posted by: "Undang Satrianie" und4nk@rocketmail.com   und4nk@rocketmail.com

Thu Aug 25, 2011 8:51 am (PDT)



"Note : Format dan Penulisan Pada Header musti Konsisten ya"

Nah Karena Itu Lah Saya Kasih Note Format Dan Penulisan Harus Konsisten
Jadi Setiap Daerah Atau Negara Dipisah Per Kolom Berikut Nama Uangnya.. Jadi Kalaupun Bertambah Misal Surabaya Dengan Dolarnya Maka Untuk Total Formulanya

Total Dolar(Surabaya) =SUMPRODUCT(($D$2:$J$2="Surabaya")*$D$4:$J$19) 

Salam
D4nk

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Kamis, 25 Agustus 2011 13:54
Judul: Re: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

 
Memang tepat dan bener trick pak undang ini... 
(kalau data hanya mengenai Jkarta dan Manila saja)Tetapi kalau data berkembang ada SURABAYA tapi bayarnya US DOLLAR ,
gimana dong.. (mudah-mudahan tidak ada yg spt itu..)

2011/8/25 Undang Satrianie <und4nk@rocketmail.com>

>
>Mungkin Salah Satunya Dengan Formula Yang Sering Dipakai dan Enak dilihat... :)
>Total Rupiah    =SUMPRODUCT(($D$2:$H$2="Jakarta")*$D$4:$H$19) 
>Total Phil.Peso =SUMPRODUCT(($D$2:$H$2="Manila")*$D$4:$H$19)
>
>
>
>Note : Format dan Penulisan Pada Header musti Konsisten ya
>
>________________________________
>Dari: Dina Maulin <dinamaulin@yahoo.com>
>Kepada: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
>Dikirim: Senin, 22 Agustus 2011 14:56
>Judul: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2
>
> 
>Dear Pakar Excel,
>Saya sedang menghitung biaya perjalanan, dimana pengeluarannya ada yang menggunakan Rupiah dan Philipine Peso. Biasanya malah ada 3 mata uang, tambah USD. Pertanyaanya, bagaimana ya rumusnya, supaya tidak hitung satu2. 
>
>
>Terlampir ya filenya.Terima kasih sebelumnya.
>
>Salam,
>Dina
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
1b.

Re: Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

Posted by: "M.Taufiq" m.taufiq@pfceindo.com

Thu Aug 25, 2011 10:45 pm (PDT)



unreg

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Undang Satrianie
Sent: Thursday, August 25, 2011 2:08 PM
To: XL-mania@yahoogroups.com
Subject: Bls: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

"Note : Format dan Penulisan Pada Header musti Konsisten ya"

Nah Karena Itu Lah Saya Kasih Note Format Dan Penulisan Harus Konsisten

Jadi Setiap Daerah Atau Negara Dipisah Per Kolom Berikut Nama Uangnya.. Jadi Kalaupun Bertambah Misal Surabaya Dengan Dolarnya Maka Untuk Total Formulanya

Total Dolar(Surabaya) =SUMPRODUCT(($D$2:$J$2="Surabaya")*$D$4:$J$19)

Salam

D4nk

_____

Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Kamis, 25 Agustus 2011 13:54
Judul: Re: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

Memang tepat dan bener trick pak undang ini...

(kalau data hanya mengenai Jkarta dan Manila saja)

Tetapi kalau data berkembang ada SURABAYA tapi bayarnya US DOLLAR ,

gimana dong.. (mudah-mudahan tidak ada yg spt itu..)

2011/8/25 Undang Satrianie <und4nk@rocketmail.com>

Mungkin Salah Satunya Dengan Formula Yang Sering Dipakai dan Enak dilihat... :)

Total Rupiah =SUMPRODUCT(($D$2:$H$2="Jakarta")*$D$4:$H$19)

Total Phil.Peso =SUMPRODUCT(($D$2:$H$2="Manila")*$D$4:$H$19)

Note : Format dan Penulisan Pada Header musti Konsisten ya

_____

Dari: Dina Maulin <dinamaulin@yahoo.com>
Kepada: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Dikirim: Senin, 22 Agustus 2011 14:56
Judul: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

Dear Pakar Excel,

Saya sedang menghitung biaya perjalanan, dimana pengeluarannya ada yang menggunakan Rupiah dan Philipine Peso. Biasanya malah ada 3 mata uang, tambah USD. Pertanyaanya, bagaimana ya rumusnya, supaya tidak hitung satu2.

Terlampir ya filenya.Terima kasih sebelumnya.

Salam,

Dina

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
2a.

Re: Remove Duplikat

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 25, 2011 8:51 am (PDT)



kunjungi web milis XL-mania
klik *link FILES* (ada di sebelah kiri di bawah link "Message")
cari folder *Challenge*
cari file bernama *Challenge 0025 (closed)*
unduh lah
*
*
*
*

On Thu, Aug 25, 2011 at 11:58 AM, Datacenter SBE <datacenter.sbe@ustp.co.id>
wrote:
> Selamat siang para master XL
> Kami ingin bergabung dengan XL mania,,,,,,,,Saya ingin bertanya kepada
para master XL
> Di XL sudah disediakan program Remove Duplikat,yang kami tanyakan
bagaiman cara meremove duplikat dalam bentuk Rumus.
> Kami tunggu konfirmasinya
>
> trimakasih
> Regards
> Data Center
> UNION SAMPOERNA TRIPUTRA PERSADA
> PT.HHK-SUNGAI BILA EATATE
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2b.

Re: Remove Duplikat

Posted by: "Ahmad Adriansyah" ahmad.adriansyah@trac.astra.co.id

Thu Aug 25, 2011 8:52 am (PDT)





Selamat Siang Datacenter SBE,

Jika diperkenankan menggunakan Dummy, mungkin data terlampir bisa
dipergunakan. Terima kasih.

Kindly Regards,

Ahmad Adriansyah | Founder

Loket Shafira | Loket Pembayaran Online & STNK

Perum. Bukit Hijau II Blok K No. 11 Kec. Rambutan Banyuasin (Plaju)

T. (0711) 540 916 | H. 0813 7372 9772

E. ahmad.adriansyah@loketshafira.c
<mailto:ahmad.adriansyah@trac.astra.co.id> om | W. www.loketshafira.com
<http://www.loketshafira.co.cc/>

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On
Behalf Of Datacenter SBE
Sent: 25 Agustus 2011 11:59
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Remove Duplikat

Selamat siang para master XL

Kami ingin bergabung dengan XL mania,,,,,,,,Saya ingin bertanya kepada
para master XL

Di XL sudah disediakan program Remove Duplikat,yang kami tanyakan
bagaiman cara meremove duplikat dalam bentuk Rumus.

Kami tunggu konfirmasinya

trimakasih

Regards

Data Center

UNION SAMPOERNA TRIPUTRA PERSADA

PT.HHK-SUNGAI BILA EATATE

________________________________

Unless specifically stated, any views or opinions expressed in this
e-mail are those of the author only and does not constitute a formal
view and/or opinion of PT. UNION SAMPOERNA TRIPUTRA PERSADA.
All information and attachment in this e-mail is or may be confidential,
legally privileged, and proprietary in nature or otherwise protected by
law from disclosure and is intended solely for the use of the
addressee(s). If you are not the intended recipient, you are hereby
notified that any disclosure, dissemination, distribution, copying or
use of any part of this e-mail is strictly prohibited and unlawful, and
you shall therefore notify the sender immediately and delete the e-mail
from your computer.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2c.

Re: Remove Duplikat

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Thu Aug 25, 2011 8:52 am (PDT)



Terlampir adalah jawaban dengan Excel 2007 (lebih singkat).
 
Salam,
Hendrik Karnadi
 
From: Datacenter SBE <datacenter.sbe@ustp.co.id>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Thursday, August 25, 2011 11:58 AM
Subject: ]] XL-mania [[ Remove Duplikat

Selamat siang para master XL
Kami ingin bergabung dengan XL mania,,,,,,,,Saya ingin bertanya kepada para master XL
 
Di XL sudah disediakan  program Remove Duplikat,yang kami tanyakan bagaiman cara meremove duplikat dalam bentuk Rumus.
Kami tunggu konfirmasinya
trimakasih
 
 
 
 
 
 
 
 
Regards
Data Center
UNION SAMPOERNA TRIPUTRA PERSADA
PT.HHK-SUNGAI BILA EATATE
 
 
 
Unless specifically stated, any views or opinions expressed in this e-mail are those of the author only and does not constitute a formal view and/or opinion of PT. UNION SAMPOERNA TRIPUTRA PERSADA.
All information and attachment in this e-mail is or may be confidential, legally privileged, and proprietary in nature or otherwise protected by law from disclosure and is intended solely for the use of the addressee(s). If you are not the intended recipient, you are hereby notified that any disclosure, dissemination, distribution, copying or use of any part of this e-mail is strictly prohibited and unlawful, and you shall therefore notify the sender immediately and delete the e-mail from your computer.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2d.

Re: Remove Duplikat

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Aug 25, 2011 8:52 am (PDT)



Coba array formula unique list berikut dipasang pada cell a24. Kemudian copy
kebawah.
=INDEX($B$2:$B$13,MATCH(0,COUNTIF(A$23:A23,$B$2:$B$13),0))

Regards.
Kid.

On Thu, Aug 25, 2011 at 11:58, Datacenter SBE <datacenter.sbe@ustp.co.id>wrote:

> ****
>
> Selamat siang para master XL****
>
> Kami ingin bergabung dengan XL mania,,,,,,,,Saya ingin bertanya kepada para
> master XL ****
>
> ** **
>
> Di XL sudah disediakan program Remove Duplikat,yang kami tanyakan bagaiman
> cara meremove duplikat dalam bentuk Rumus.****
>
> Kami tunggu konfirmasinya****
>
> trimakasih****
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> * *
>
> * *
>
> * *
>
> *Regards***
>
> *Data Center*
>
> *UNION SAMPOERNA TRIPUTRA PERSADA*
>
> *PT.HHK-SUNGAI BILA EATATE*****
>
> * *
>
> * *
>
> ** **
>
> ------------------------------
> Unless specifically stated, any views or opinions expressed in this e-mail
> are those of the author only and does not constitute a formal view and/or
> opinion of PT. UNION SAMPOERNA TRIPUTRA PERSADA.
> All information and attachment in this e-mail is or may be confidential,
> legally privileged, and proprietary in nature or otherwise protected by law
> from disclosure and is intended solely for the use of the addressee(s). If
> you are not the intended recipient, you are hereby notified that any
> disclosure, dissemination, distribution, copying or use of any part of this
> e-mail is strictly prohibited and unlawful, and you shall therefore notify
> the sender immediately and delete the e-mail from your computer.
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
2e.

Re: Remove Duplikat

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 25, 2011 10:44 pm (PDT)



dear pak Datacenter SBE

kalau mau rumus yg pendek pakailah :

=LOUV(B2:B13)

di enter dengan 3 tombol Ctrl + Shift, Enter
(array formula)

On Thu, Aug 25, 2011 at 11:58 AM, Datacenter SBE <datacenter.sbe@ustp.co.id>
wrote:
> Selamat siang para master XL
> Kami ingin bergabung dengan XL mania,,,,,,,,Saya ingin bertanya kepada
para master XL
> Di XL sudah disediakan program Remove Duplikat,yang kami tanyakan* *
*> bagaiman cara meremove duplikat dalam bentuk Rumus.
> Kami tunggu konfirmasinya*
> trimakasih
> Regards
> Data Center
> UNION SAMPOERNA TRIPUTRA PERSADA
> PT.HHK-SUNGAI BILA EATATE
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
3a.

Loop yg berulang

Posted by: "Novan Dwiascahyo" novan.dwiascahyo@leighton.co.id   novand17

Thu Aug 25, 2011 8:52 am (PDT)



Dear XL-mania,

Mohon bantuannya memperbaiki formula macro yg menggunakan Do.. Loop, sehingga proses penghitungan data dapat berlangsung kontinyu hanya dengan sekali running macro dan baru akan berhenti setelah menghitung data yg paling bawah.

Perintah yg saya gunakan adalah sbb:

Sub sum()
' sum
' penjumlahan biasa
Do
If IsEmpty(ActiveCell) Then
If IsEmpty(ActiveCell.Offset(0, -1)) And IsEmpty(ActiveCell.Offset(0, -2)) Then
ActiveCell.Value = ""
Else
ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])"
End If
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(-1, -1))
End Sub

Kasus lengkapnya mohon disimak file terlampir. Thanks berat.

Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan yg pertama sepertinya tidak sampai dengan slamet.

Salam,
ND

__________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
__________________________________________________________
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3b.

Re: Loop yg berulang

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Aug 25, 2011 9:46 am (PDT)



mohon dicoba usul saya, begini :

Sub sum()
' sum / penjumlahan biasa
Do
With Activecell
If IsEmpty(.Value) Then
If IsEmpty(.Offset(0, -1)) And IsEmpty(.Offset(0, -2)) Then
.Value = ""
Else
.FormulaR1C1 = "=sum(RC[-1],RC[-2])"
End If
End If
.Offset(1, 0).Select
End With
Loop Until *WorksheetFunction.CountA(ActiveCell(-1, 1).Resize(2, 3)) = 0
*
End Sub

intinya: Loop baru akan dihentikan *jika bertemu 2 baris contigous berisi 3
kolom*
*yg isinya konyong*... ( eh kosong dinq... )
Kalau hanya ketemu SATU baris (berisi 3 cell sebaris) kosong... cuek saja
!..

Sebetulnya *Menselect cell *itu, kata mbak siti, memperlama proses;
terutama jika di setiap Step dalam loop terjadi range / cell selection. dan
jumlah
baris yg akan "diurusin" sudah dlm ordo ribuan.

Makro ini masih bisa dipercepat dengan menghilangkan *Method Select* dan
mengganti proses test tiap cell* bukan dengan cara menSELECT* dulu setiap
cell
(agar menjadi activecell)* tetapi* *merujuk alamatnya* dimana indexRow-nya
setiap step dinaikkan; dengan misalnya
r = r + 1
If Len(*xCell(r,1)*) = 0 Then

Itu hanya saran, tidak harus anda ikuti, karena tiap "pemrogram" punya
stylenya masing2

wassalamualaikum wr wb,
hapsari

2011/8/25 Novan Dwiascahyo <novan.dwiascahyo@leighton.co.id>

> Dear XL-mania,****
>
> Mohon bantuannya memperbaiki formula macro yg menggunakan Do.. Loop,
> sehingga proses penghitungan data dapat berlangsung kontinyu hanya dengan
> sekali running macro dan baru akan berhenti setelah menghitung data yg
> paling bawah.**
>
> **
>
> Perintah yg saya gunakan adalah sbb:
>
> **
>
> ** **
>
> Sub sum()****
>
> ' sum****
>
> ' penjumlahan biasa****
>
> Do****
>
> If IsEmpty(ActiveCell) Then****
>
> If IsEmpty(ActiveCell.Offset(0, -1)) And
> IsEmpty(ActiveCell.Offset(0, -2)) Then****
>
> ActiveCell.Value = ""****
>
> Else****
>
> ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])"****
>
> End If****
>
> End If****
>
> ActiveCell.Offset(1, 0).Select****
>
> Loop Until *IsEmpty(ActiveCell.Offset(-1, -1))*****
>
> End Sub****
>
> ** **
>
> Kasus lengkapnya mohon disimak file terlampir. Thanks berat.****
>
> Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan yg pertama
> sepertinya tidak sampai dengan slamet.
>
> **
>
> Salam,
>
> **
>
> ND****
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3c.

Re: Loop yg berulang

Posted by: "aurino djamaris" aurinoradjamaris@yahoo.com   aurinoradjamaris

Thu Aug 25, 2011 10:08 am (PDT)



Coba pakai ini

Sub Jum()
' Jum
' penjumlahan biasa
NumberRow = Range("a1").SpecialCells(xlLastCell).Row
nrc = 0
    Do
    If IsEmpty(ActiveCell) Then
   
      ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])"
      If ActiveCell.Value = 0 Then
        ActiveCell.Value = ""
      End If
           
    End If
    ActiveCell.Offset(1, 0).Select
    nrc = nrc + 1
    Loop Until nr = nrc
End Sub

________________________________
From: Novan Dwiascahyo <novan.dwiascahyo@leighton.co.id>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Thursday, August 25, 2011 2:47 PM
Subject: ]] XL-mania [[ Loop yg berulang

 
Dear XL-mania,
 
Mohon bantuannya memperbaiki formula macro yg menggunakan
Do.. Loop, sehingga proses penghitungan data dapat berlangsung kontinyu hanya
dengan sekali running macro dan baru akan berhenti setelah menghitung data yg
paling bawah.
 
Perintah yg saya gunakan adalah sbb:
 
Sub sum()
' sum
' penjumlahan biasa
    Do
    If
IsEmpty(ActiveCell) Then
       
If IsEmpty(ActiveCell.Offset(0, -1)) And IsEmpty(ActiveCell.Offset(0, -2)) Then
           
ActiveCell.Value = ""
       
Else
           
ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])"
       
End If
    End If
   
ActiveCell.Offset(1, 0).Select
    Loop Until
IsEmpty(ActiveCell.Offset(-1, -1))
End Sub
 
Kasus lengkapnya mohon disimak file terlampir. Thanks berat.
 
Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan
yg pertama sepertinya tidak sampai dengan slamet.
 
Salam,
ND
 
__________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
__________________________________________________________

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3d.

Re: Loop yg berulang

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Aug 25, 2011 10:44 pm (PDT)



Makro *tanpa ada aksi menSelect cells*
Mohon di test apakah terasa lebih CEPAT

Sub Sum2()
' Hapsari / Penjumlahan beruntun, lewati baris kosong
Dim zR As Long, r As Long
Application.Calculation = xlCalculationManual
With ActiveCell
zR = Cells.Find(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
For r = 1 To zR
If Len(.Cells(r, 0)) > 0 Then
If Len(.Cells(r, -1)) > 0 Then
.Cells(r, 1).FormulaR1C1 = "=SUM(RC[-1],RC[-2])"
End If
End If
Next r
End With
Application.Calculation = xlCalculationAutomatic
End Sub
'--------------------

2011/8/25 Haps <hapsari.stlizbeth@gmail.com>

> '----
> Sebetulnya *Menselect cell *itu, kata mbak siti, memperlama proses;
> terutama jika di setiap Step dalam loop terjadi range / cell selection.
> dan jumlah
> baris yg akan "diurusin" sudah dlm ordo ribuan.
> Makro ini masih bisa dipercepat dengan menghilangkan *Method Select* dan
> mengganti proses test tiap cell* bukan dengan cara menSELECT* dulu setiap
> cell
> (agar menjadi activecell)* tetapi* *merujuk alamatnya* dimana indexRow-nya
> setiap step dinaikkan; dengan misalnya
> hapsari
>
>
> 2011/8/25 Novan Dwiascahyo <novan.dwiascahyo@leighton.co.id>
>
>> Dear XL-mania,****
>>
>> Mohon bantuannya memperbaiki formula macro yg menggunakan Do.. Loop,
>> sehingga proses penghitungan data dapat berlangsung kontinyu hanya dengan
>> sekali running macro dan baru akan berhenti setelah menghitung data yg
>> paling bawah.**
>>
>> **
>>
>> Perintah yg saya gunakan adalah sbb:
>>
>> **
>>
>> ** **
>>
>> Sub sum()****
>>
>> ' sum****
>>
>> ' penjumlahan biasa****
>>
>> Do****
>>
>> If IsEmpty(ActiveCell) Then****
>>
>> If IsEmpty(ActiveCell.Offset(0, -1)) And
>> IsEmpty(ActiveCell.Offset(0, -2)) Then****
>>
>> ActiveCell.Value = ""****
>>
>> Else****
>>
>> ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])"****
>>
>> End If****
>>
>> End If****
>>
>> ActiveCell.Offset(1, 0).Select****
>>
>> Loop Until *IsEmpty(ActiveCell.Offset(-1, -1))*****
>>
>> End Sub****
>>
>> ** **
>>
>> Kasus lengkapnya mohon disimak file terlampir. Thanks berat.****
>>
>> Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan yg pertama
>> sepertinya tidak sampai dengan slamet.
>>
>> **
>>
>> Salam,
>>
>> **
>>
>> ND****
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3e.

Re: Loop yg berulang

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Aug 25, 2011 10:45 pm (PDT)



Dear ND,

Prosedur berikut tanpa proses loop.
Public Sub PasangSum()
Dim lRow As Long
Dim rngData As Range

'tentukan jumlah baris data dan set area kerja
lRow = Evaluate("=max(a:a)") * 1.2 + 1
Set rngData = Range("a1").Offset(1, 2).Resize(lRow, 1)

With rngData
'pasang formula
.Formula = "=Sum(a2:b2)"

'bersihkan baris kosong (dibantu autofilter)
ActiveSheet.AutoFilterMode = False
.CurrentRegion.AutoFilter 1, "="
.SpecialCells(xlCellTypeVisible).ClearContents
ActiveSheet.AutoFilterMode = False
End With
End Sub

Regards.
Kid.

2011/8/25 Novan Dwiascahyo <novan.dwiascahyo@leighton.co.id>

> **
>
>
> Dear XL-mania,****
>
> ** **
>
> Mohon bantuannya memperbaiki formula macro yg menggunakan Do.. Loop,
> sehingga proses penghitungan data dapat berlangsung kontinyu hanya dengan
> sekali running macro dan baru akan berhenti setelah menghitung data yg
> paling bawah. ****
>
> ** **
>
> Perintah yg saya gunakan adalah sbb:****
>
> ** **
>
> Sub sum()****
>
> ' sum****
>
> ' penjumlahan biasa****
>
> Do****
>
> If IsEmpty(ActiveCell) Then****
>
> If IsEmpty(ActiveCell.Offset(0, -1)) And
> IsEmpty(ActiveCell.Offset(0, -2)) Then****
>
> ActiveCell.Value = ""****
>
> Else****
>
> ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])"****
>
> End If****
>
> End If****
>
> ActiveCell.Offset(1, 0).Select****
>
> Loop Until IsEmpty(ActiveCell.Offset(-1, -1))****
>
> End Sub****
>
> ** **
>
> Kasus lengkapnya mohon disimak file terlampir. Thanks berat.****
>
> ** **
>
> Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan yg pertama
> sepertinya tidak sampai dengan slamet.****
>
> ** **
>
> Salam,****
>
> ND****
>
> ** **
>
> __________________________________________________________
> This email has been scanned by the MessageLabs Email Security System.
> For more information please visit http://www.messagelabs.com/email
> __________________________________________________________
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
4a.

Re: masalah dengan array formula

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Aug 25, 2011 8:52 am (PDT)



Hai Andre.

Jika array formula ditulis pada sekelompok cell yang diblok lebih dulu, maka
akan menjadi array blok. Pada kasus yang membutuhkan input selalu berganti
per barisnya atau membutuhkan hasil kalkulasi cell sebelumnya, maka tidak
dimungkinkan penggunaan array blok. Pada penggunaan fungsi-fungsi agregate
juga tidak dimungkinkan menggunakan array blok, kecuali memang inign
mendapatkan nilai yang sama setiap baris recordnya.
Semoga file terlampir lebih bisa menjelaskannya.

Regards.
Kid.

2011/8/25 Andre Prisuasetio <andrepri.monte@gmail.com>

> **
>
>
> Rekan XL-Mania
>
> Saya ada masalah dengan array formula.
> Setelah saya me-range area yang akan menjadi area array di lanjutkan
> dengan CSE hasilnya hanya ada 1 nilai di semua area range (contoh
> terlampir).
> Demikin pula jika saya membuka file2 dari forum XL-Mania yang ada
> array formulanya saya select range area-nya saya tekan F2 (edit)
> kemudian CSE hasilnya berubah (dari yang benar sebelumnya) menjadi
> hanya 1 nilai di range tsb.
> Apakah kesalahan ini terletak pada seting excel saya?, atau ada
> shortcut yang menggunakan CSE juga dr program lain?
> Mohon solusinya.
>
> salam
> andre
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
4b.

Re: masalah dengan array formula

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 25, 2011 8:52 am (PDT)



kesalahannya sepertinya anda belum memperhatikan bahwa
Array formula dilihat tujuan dan cara menuliskannya, ada *2 type*
*
*
1.
type menghasilkan* MULTI HASIL* (ditulis dalam BANYAK CELL (sebaris / atau
Sekolom)
secara SE-KA-LI-GUS

2.type menghasilkan *HASIL TUNGGAL* (ditulis dalam SATU CELL, bisanya
formula ini
juga multi hasil tetapi sudah DIRANGKUM dm fungsi SUM, MAX, MIN, COUNT,
AVERAGE,
dsb yg bersifat merangkum banyak hasil menjadi 1 hasil)

Lihat penjelasan bagus ada di sini (kalau berkenan..)
http://www.box.net/shared/m4d7k8gixi2lmp25631r
http://www.box.net/shared/cimq7tvispi3g53hyyvn
http://www.cpearson.com/excel/ArrayFormulas.aspx

2011/8/25 Andre Prisuasetio <andrepri.monte@gmail.com>

> Rekan XL-Mania
>
> Saya ada masalah dengan array formula.
> Setelah saya me-range area yang akan menjadi area array di lanjutkan
> dengan CSE hasilnya hanya ada 1 nilai di semua area range (contoh
> terlampir).
> Demikin pula jika saya membuka file2 dari forum XL-Mania yang ada
> array formulanya saya select range area-nya saya tekan F2 (edit)
> kemudian CSE hasilnya berubah (dari yang benar sebelumnya) menjadi
> hanya 1 nilai di range tsb.
> Apakah kesalahan ini terletak pada seting excel saya?, atau ada
> shortcut yang menggunakan CSE juga dr program lain?
> Mohon solusinya.
>
> salam
> andre
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
5a.

Bls: ]] XL-mania [[ masalah dengan array formula

Posted by: "Undang Satrianie" und4nk@rocketmail.com   und4nk@rocketmail.com

Thu Aug 25, 2011 8:53 am (PDT)



Hanya Satu Kesalahan, Bapak membuat Formula itu Secara Sekaligus Untuk 10 Baris yang Mengakibatkan Range Pada Fungsi Countif Itu-itu Saja

________________________________
Dari: Andre Prisuasetio <andrepri.monte@gmail.com>
Kepada: xl-mania@yahoogroups.com
Dikirim: Kamis, 25 Agustus 2011 11:38
Judul: ]] XL-mania [[ masalah dengan array formula

 
Rekan XL-Mania

Saya ada masalah dengan array formula.
Setelah saya me-range area yang akan menjadi area array di lanjutkan
dengan CSE hasilnya hanya ada 1 nilai di semua area range (contoh
terlampir).
Demikin pula jika saya membuka file2 dari forum XL-Mania yang ada
array formulanya saya select range area-nya saya tekan F2 (edit)
kemudian CSE hasilnya berubah (dari yang benar sebelumnya) menjadi
hanya 1 nilai di range tsb.
Apakah kesalahan ini terletak pada seting excel saya?, atau ada
shortcut yang menggunakan CSE juga dr program lain?
Mohon solusinya.

salam
andre

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6.

Bls: ]] XL-mania [[ Remove Duplikat

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Thu Aug 25, 2011 8:53 am (PDT)



untuk excel 2003
formula di formula di G2 formula array
{=IF(ISNA(INDEX($B$2:$B$13;MATCH(0;COUNTIF(G$1:G1;$B$2:$B$13);0)));"";INDEX($B$2:$B$13;MATCH(0;COUNTIF(G$1:G1;$B$2:$B$13);0)))}

untuk excel 2007

formula di formula di L2 formula array
{=IFERROR(INDEX($B$2:$B$13;MATCH(0;COUNTIF(L$1:L1;$B$2:$B$13);0));"")}

semua formula di copy ke bawah sampai data habis

wassalam

Ghozi Alkatiri

--- Pada Kam, 25/8/11, Datacenter SBE <datacenter.sbe@ustp.co.id> menulis:

Dari: Datacenter SBE <datacenter.sbe@ustp.co.id>
Judul: ]] XL-mania [[ Remove Duplikat
Kepada: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Tanggal: Kamis, 25 Agustus, 2011, 11:58 AM

#yiv1650707443 p.yiv1650707443MsoNormal
{margin-left:37.5pt;}

Selamat siang para master XL
Kami ingin bergabung dengan XL mania,,,,,,,,Saya ingin bertanya kepada para master XL

 
Di XL sudah disediakan  program Remove Duplikat,yang kami tanyakan bagaiman cara meremove duplikat dalam bentuk Rumus.
Kami tunggu konfirmasinya
trimakasih
 
 
 
 
 

 
 
 
Regards
Data Center
UNION SAMPOERNA TRIPUTRA PERSADA
PT.HHK-SUNGAI BILA EATATE
 
 

 

Unless specifically stated, any views or opinions expressed in this e-mail are those of the author only and does not constitute a formal view and/or opinion of PT. UNION SAMPOERNA TRIPUTRA PERSADA.

All information and attachment in this e-mail is or may be confidential, legally privileged, and proprietary in nature or otherwise protected by law from disclosure and is intended solely for the use of the addressee(s). If you are not the intended recipient,
you are hereby notified that any disclosure, dissemination, distribution, copying or use of any part of this e-mail is strictly prohibited and unlawful, and you shall therefore notify the sender immediately and delete the e-mail from your computer.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
7a.

Re: Menggabungkan sheet

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 25, 2011 8:54 am (PDT)



Dear A*Z* *V*ega
(e ^ E ..kebolak ya..?)

Berhubung topik ini sudah muncul berkali kali, maka tinggal menunjuk
link simpanan file lama saja:
http://www.box.net/shared/1d0x70itlt

*salah satu* posting mengenai kasus sejenis ada di msg no: 9333 tahun 2007

http://tech.groups.yahoo.com/group/XL-mania/message/9333

mudah mudahan masih ada *manfaat*nya dan tidak terlalu banyak *mudharat*
nya...

2011/8/25 AV zega <avzega@yahoo.co.id>

>
> Dear rekan-rekan Excel,
> Mohon petunjuk untuk case berikut,
> saya memeliki 1 file xls dengan terdiri dari beberapa sheet (A,B,C,
> terlampir),
> yang mana sheet-sheet tersebut ingin saya gabungkan menjadi satu sheet
> (sheet gabungan). adapun isi masing-masing sheet tersebut terus bertambah
> setiap hari.
> yang menjadi pertanyaan, bagaimana cara cepat menggabungkannya dalam 1
> sheet Gabungan.
> terima kasih.
> Salam/Av.Zega
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
8.

Memindahkan dan penjumlahan karakter tertentu pada txt file ke excel

Posted by: "Natalia Irma" inong2108@yahoo.com   inong2108

Thu Aug 25, 2011 8:54 am (PDT)



Salam kenal,

Mohon bantuan para suhu untuk case di bawah ini:

Saya punya 3 file txt (data terlampir). Mohon pencerahan bagaimana agar data di txt file bisa diconvert menjadi data yang terdapat pada file excel.

terima kasih atas bantuannya

regards
irma

----------


Data pembayaran Juni 2010


1 Ref 123 Ita Mustafa 30,0000
2 Ref 236 Handina 2,345,000
3 Ref 456 Mariah 125,000
4 Ref 789 Kiki 1,567,000

----------


Data pembayaran July 2010


1 Ref 777 Mila 30,0000
2 Ref 238 Sita 7,333,560

----------


Data pembayaran Aug 2010


1 Ref 877 Mila 50,0000
2 Ref 338 Sita 7,333,500
3 Ref 777 Tina 5,666,000
4 Ref 999 Mimi 3,000,000
5 Ref 777 Munah 2,555,800
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
9a.

Re: Bagaimana cara membuat penjumlahan untuk masing-masing nilai ter

Posted by: "aurino djamaris" aurinoradjamaris@yahoo.com   aurinoradjamaris

Thu Aug 25, 2011 10:44 pm (PDT)



Coba ditambah dengan kolom bantu

dengan rumus
=IF(AND(ISBLANK(C6),ISBLANK(I6)),IF(NOT(ISBLANK(C5)),I5,""),IF(NOT(ISBLANK(C5)),MAX(I5,I6),""))
lihat

lampiran

________________________________
From: Charles Rusli <charlesrusli@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Monday, August 22, 2011 11:38 AM
Subject: ]] XL-mania [[ Bagaimana cara membuat penjumlahan untuk masing-masing nilai tertinggi.

 
Dear Rekan-Rekan XL-Mania,
 
Saya memiliki form rincian pengiriman yang akan menjadi lampiran tagihan (invoice) (Form Contoh terlampir dibagian bawah dan attachment).
 
Selama ini kolom harga (total tagihan) diketik di Ms.Excel dan diinput manual, dan sekarang ingin dibuat otomatis pilih dari daftar harga dan bisa menjumlah sendiri.
 
Namun ada ketentuan dimana untuk setiap pengiriman (per 1 nomor truk dan 1 tanggal pengiriman) dengan 2 kota tujuan, maka pilih harga yang tertinggi.
 
Sebagai contoh:
 
Truk dengan no B2222XX pada tanggal 29 Jan 2011 melakukan pengiriman dari kota Cikarang ke kota Temanggung (dengan tarif Rp 3.600.000) dan ke kota Yogyakarta (dengan tarif Rp 3.918.900) ==> tarif yang digunakan adalah yang tertinggi, yakni Rp 3.918.900,-
 
Truk dengan no B3333XX pada tanggal 30 Jan 2011 melakukan pengiriman dari kota Cikarang ke kota Sragen (dengan tarif Rp 3.100.000) dan ke kota Karanganyar (dengan tarif Rp 3.475.700) ==> tarif yang digunakan adalah yang tertinggi, yakni Rp 3.475.700,-
 
Untuk pengiriman yang hanya 1 kota tujuan tidak perlu dipilih, karena hanya 1 tarif, jadi seperti:
Truk dengan no B1111XX pada tangal 29 Jan 2011 melakukan pengiriman dari kota Cikarang ke kota Solo (dengan tarif Rp 3.685.700) ==> tarif yang digunakan tetap Rp 3.685.700
 
Maka pada tabel, harga yang tidak dipilih (pada salah satu kota tujuan) diberi highlight kuning ==> tidak ikut dijumlah pada grand total.
 
Mohon bantuan Rekan-Rekan ya, bagaimana agar proses memilih harga tertinggi pada setiap pengiriman tsb bisa tampil (dan yang tidak dipilih tidak tampil) dan dapat dijumlah pada grand total.
 
Terimakasih sebelumnya.
 
Salam,
 
Charles Rusli
 
================================================================================================================================================================
 
REKAPITULASI TAGIHAN ATAS PENGIRIMAN BARANG
Nama Transporter :     
No. Invoice                  :       
No. Tanggal Pengiriman No. Truk Type Truk No. Shipment Kota Asal Kota Tujuan Distr/Depo  Total Tagihan  Keterangan
1 29-Jan-11 B1111XX JUMBO 4000550852 CIKARANG SOLO 15062811            3.685.700  
                   
2 29-Jan-11 B2222XX JUMBO 4000552671 CIKARANG TEMANGGUNG 94032001            3.600.000  
            YOGYA 94282001            3.918.900  
                   
3 30-Jan-11 B3333XX TRONTON 4000552667 CIKARANG SRAGEN 98063001            3.100.000  
            KARANGANYAR 94223001            3.475.700  
                   
4 30-Jan-11 B4444XX JUMBO 4000550853 CIKARANG UNGARAN 94207001            3.685.700  
                   
 
Grand Total Tagihan        14.766.000
 
 
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
10a.

Re: Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

Posted by: "aurino djamaris" aurinoradjamaris@yahoo.com   aurinoradjamaris

Thu Aug 25, 2011 10:44 pm (PDT)



Kalau mau tambahkan fungsi sumcurrency sbb

Function sumCurrency(sign As String, rng As Range)
Dim cl As Range
For Each cl In rng
If Mid(cl.NumberFormat, 3, 2) = sign Then sumCurrency = sumCurrency + cl.Value
Next cl
End Function

cara pakai
lihat file terlampir

________________________________
From: Dina Maulin <dinamaulin@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-maniayahoogroups.com>
Sent: Monday, August 22, 2011 2:56 PM
Subject: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

 
Dear Pakar Excel,

Saya sedang menghitung biaya perjalanan, dimana pengeluarannya ada yang menggunakan Rupiah dan Philipine Peso. Biasanya malah ada 3 mata uang, tambah USD. Pertanyaanya, bagaimana ya rumusnya, supaya tidak hitung satu2.

Terlampir ya filenya.Terima kasih sebelumnya.

Salam,
Dina

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
11.

Bagaimana Menghilangkan Pesan error di excel 'Microsoft excel has en

Posted by: "ratu elissa" masihgadisnih@gmail.com

Thu Aug 25, 2011 10:45 pm (PDT)



Mohon bantuannya:

Saya menggunakan Ms. Excel 2003 dan tiap kali mau menutup aplikasi atau buka
file baru selalu muncul:

*Microsoft Office Excel has encountered a problem and needs to close*
*
*
Bagaimana mengatasi masalah error tersebut dan tidak muncul tulisan begituan
lagi?

Terima kasih banyak atas bantuannya

Salam,

RE
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
12a.

hasil dan validasi

Posted by: "Subkhan Zaeni" subkhan.zaeni@id.panasonic.com

Fri Aug 26, 2011 1:49 am (PDT)



Dear Pakar Excel dan Excel mania

Mohon bantuannya untuk pemecahan hasil dari validasi...
Apabila saya memilih berdasarkan Bulan dan Kelas maka type dan hasilnya mengikuti sesuai bulan dan kelasnya

Saya sudah mencoba dengan rumus logika namun formulanya terlalu panjang

Terima kasih

Best regards,

Subkhan Zaeni

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
12b.

Re: hasil dan validasi

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Aug 26, 2011 2:30 am (PDT)



Mohon Maaf Lahir Batin. Selamat Hari Raya Idul Fitri bagi seluruh rekan yang
merayakannya.

Dear Zaeni,

Coba dengan fungsi Index Match untuk menyusun list hasil pilihan user.
Kemudian nilai dikalkulasi menggunakan SumProduct atau array Sum. Untuk
error handler, fungsi CountIF bisa digunakan.

Regards.
Kid.

2011/8/26 Subkhan Zaeni <subkhan.zaeni@id.panasonic.com>

> **
>
>
> Dear Pakar Excel dan Excel mania****
>
> ** **
>
> Mohon bantuannya untuk pemecahan hasil dari validasi�****
>
> Apabila saya memilih berdasarkan Bulan dan Kelas maka type dan hasilnya
> mengikuti sesuai bulan dan kelasnya****
>
> ** **
>
> Saya sudah mencoba dengan rumus logika namun formulanya terlalu panjang***
> *
>
> ** **
>
> Terima kasih****
>
> ** **
>
> ** **
>
> Best regards,
>
> ***Subkhan Zaeni***
>
> ****
>
> ** **
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
13a.

Remove Duplikat isi cell

Posted by: "M. Hadi Maksun" hadi@domusindo.com   hade2x

Fri Aug 26, 2011 1:49 am (PDT)



Selamat sore para master XL

Saya, ingin bertanya kepada para master XL

bagaimana me-Remove Duplikat isi cell dg sparator "," semisal isi cel
semula
MF1110019, MF1110016, MF1110017, MF1110018, MF1110020, MF1110019,
MF1110016, MF1110017, MF1110018, MF1110020, MF1110019, MF1110016,
MF1110020, MF1110017, MF1110018, MF1110016, MF1110019, MF1110017,
MF1110018, MF1110020

sekaligus tersortir menjadi.
MF1110016, MF1110017, MF1110018, MF1110019, MF1110020

Terimakasih, atas penjelasannya.

trimakasih

--
Rgds,

M. Hadi Maksun

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
13b.

Re: Remove Duplikat isi cell

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Fri Aug 26, 2011 5:07 am (PDT)



Bolehkan pakai fungsi* RemDupText* saja pak
Misal data di B3

*=RemDupText(B3)*
[image: Contoh Hasil RemDupText.GIF]

2011/8/26 M. Hadi Maksun <hadi@domusindo.com>

> Selamat sore para master XL
>
> Saya, ingin bertanya kepada para master XL
> bagaimana me-Remove Duplikat isi cell dg sparator "," semisal isi cel
> semula
> * MF1110019, MF1110016, MF1110017, MF1110018, MF1110020, MF1110019,
> MF1110016, MF1110017, MF1110018, MF1110020, MF1110019, MF1110016,
> MF1110020, MF1110017, MF1110018, MF1110016, MF1110019, MF1110017,
> MF1110018, MF1110020*
>
> sekaligus tersortir menjadi.
> * MF1110016, MF1110017, MF1110018, MF1110019, MF1110020*
>
> Terimakasih, atas penjelasannya.
> trimakasih
> --
> Rgds,
>
> M. Hadi Maksun
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Find helpful tips

for Moderators

on the Yahoo!

Groups team blog.

Yahoo! Groups

Do More For Cats Group

Connect and share with

cat owners like you

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| jangan lupa sebelum libur:                                        |
| - add XL-mania di linkedin www.linkedin.com/company/xl-mania      |
| - pesan buku "mengapa boss benci chart anda"  :D :D :D            |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
MARKETPLACE
There's one number you should know, your Credit Score. freecreditscore.com.
Diposting oleh EXCEL FEED LEARNING di 05.08

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)