Rabu, 08 Februari 2012

]] XL-mania [[ Digest Number 2333

Messages In This Digest (9 Messages)

Messages

1a.

Re: Tanya tentang database Jama'ah Haji

Posted by: "o' Seno" ontoseno84@gmail.com   o_s_e_n_o

Tue Feb 7, 2012 7:57 am (PST)



cara gampang : data di kolom PORSI dijadikan 2 kolom saja
berdasarkan data kolom-kolom sementarta itu anda mencari nilai tahun
(sayang tidak anda beritahukan syarat/kondisi/logikanya)

formula akan gampang bila ditulis secara step-by-step
jika akhirnya step akhir berhasil, baru-lah formula di tiap step digabung
manjadi formula mandiri

[image: truss bgmana kelanjutannya.PNG]

*o'Seno*

note anda bilang nubie tapi sudah bisa menilai bahwa "HAMPIR SEMUA buku
panduan excel jarang ada yg
membahas seperti pembahasan di milis XL-mania" (kata "HAMPIR SEMUA" itu
dari saya, kesimpulan
dari kalimat anda)
jika sudah baca BANYAK buku Excel sebaiknya jangan "menipu" bahwa anda
nubie, ha ha ha..

*2012/2/6 Isyfa <isyfa_faul@yahoo.co.id>
*
>
> * *
> * *
>
> *Salam kenal untuk XL-mania, ane baru gabung, cz kelihatannya sangat
> menarik dan jarang ada pembahasan seperti ini yang tertulis di buku-buku
> panduan Excel, sorry master ane mau tanya ni... maklum new bie. kebetulan
> saat ini ada tugas dari guru saya untuk membuat simulasi Database Jama'ah
> Haji dgn rumus Excel, dan beberapa waktu yg lalu saya sudah mencoba dengan
> menggunakan rumus IF, dan berhasil. masalahnya kuota jama'ah haji ini tiap
> bulan terus meningkat hingga saat saya bergabung di forum ini sudah
> menyentuh Tahun 2022 jika daftar sekarang.
> gambarannya spt ini :
>
> PORSI TAHUN BERANGKAT
> 1300245937-1300279737 2012
> 1300279738-1300313538 2013
> 1300313539-1300347339 2014
> 1300347340-1300381140 2015
> 1300381141-1300414941 2016
> 1300414942-1300414941 2017
>
> maunya dikolom tahun berangkat itu bisa terisi secara otomatis dengan
> mengacu pada no porsi (kuota) logikanya spt ini "Jika no porsinya 1300xxxxx
> s.d 1300xxxxx maka berangkatnya tahun 20xx" dan katanya sih bisa
> menggunakan VLOOKUP, tapi gara-gara ada "sampai dengan" itu yg saya g bisa
> membentuknya melalui VLOOKUP. terima kasih atas jawabannya semoga
> bermanfaat. Sukses selalu untuk XL-mania*
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
1b.

Re: Tanya tentang database Jama'ah Haji

Posted by: "Daryl" daryl3006@gmail.com   kirgis2002

Tue Feb 7, 2012 8:31 pm (PST)



kalau aku coba tadi pagi dgn spt ini betul gak sih ini yang dimaksud :

={SUM(IF( ((H7>=D2:D7)*(H7<=E2:E7)),B2:B7,0))}

coba masukan angka di cell h7 sesuai dengan porsi tp 6 angka nya saja
dan akan keluar tahun keberangkatan..

apa betul spt ini yg dimaksud ?

mohon maaf kalau salah ya ..

salam,
daryl

--- In XL-mania@yahoogroups.com, "o' Seno" <ontoseno84@...> wrote:
>
> cara gampang : data di kolom PORSI dijadikan 2 kolom saja
> berdasarkan data kolom-kolom sementarta itu anda mencari nilai tahun
> (sayang tidak anda beritahukan syarat/kondisi/logikanya)
>
> formula akan gampang bila ditulis secara step-by-step
> jika akhirnya step akhir berhasil, baru-lah formula di tiap step digabung
> manjadi formula mandiri
>
> [image: truss bgmana kelanjutannya.PNG]
>
> *o'Seno*
>
> note anda bilang nubie tapi sudah bisa menilai bahwa "HAMPIR SEMUA buku
> panduan excel jarang ada yg
> membahas seperti pembahasan di milis XL-mania" (kata "HAMPIR SEMUA" itu
> dari saya, kesimpulan
> dari kalimat anda)
> jika sudah baca BANYAK buku Excel sebaiknya jangan "menipu" bahwa anda
> nubie, ha ha ha..
>
>
>
>
> *2012/2/6 Isyfa <isyfa_faul@...>
> *
> >
> > * *
> > * *
> >
> > *Salam kenal untuk XL-mania, ane baru gabung, cz kelihatannya sangat
> > menarik dan jarang ada pembahasan seperti ini yang tertulis di buku-buku
> > panduan Excel, sorry master ane mau tanya ni... maklum new bie. kebetulan
> > saat ini ada tugas dari guru saya untuk membuat simulasi Database Jama'ah
> > Haji dgn rumus Excel, dan beberapa waktu yg lalu saya sudah mencoba dengan
> > menggunakan rumus IF, dan berhasil. masalahnya kuota jama'ah haji ini tiap
> > bulan terus meningkat hingga saat saya bergabung di forum ini sudah
> > menyentuh Tahun 2022 jika daftar sekarang.
> > gambarannya spt ini :
> >
> > PORSI TAHUN BERANGKAT
> > 1300245937-1300279737 2012
> > 1300279738-1300313538 2013
> > 1300313539-1300347339 2014
> > 1300347340-1300381140 2015
> > 1300381141-1300414941 2016
> > 1300414942-1300414941 2017
> >
> > maunya dikolom tahun berangkat itu bisa terisi secara otomatis dengan
> > mengacu pada no porsi (kuota) logikanya spt ini "Jika no porsinya 1300xxxxx
> > s.d 1300xxxxx maka berangkatnya tahun 20xx" dan katanya sih bisa
> > menggunakan VLOOKUP, tapi gara-gara ada "sampai dengan" itu yg saya g bisa
> > membentuknya melalui VLOOKUP. terima kasih atas jawabannya semoga
> > bermanfaat. Sukses selalu untuk XL-mania*
> >
>

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

Re: run time error 16 expression too complex in excel 2007

Posted by: "Tommy" tomz.zlow@gmail.com   tomz_aja

Tue Feb 7, 2012 7:57 am (PST)



Saya jarang menggunakan makro (hanya sebatas record), tapi sepertinya kalau kita lihat hasil dari macro record, di 2007 harus sebutkan nama sheet untuk defined name. Mungkin karena di 2007, nama bisa cuma berlaku di salah satu sheet saja.

Jadi coba: ganti Range("akhir").Value menjadi misalnya:

sheets("nama_sheet").range("akhir").value
atau
sheets(index_sheet).range("akhir").value
atau
activesheet.range("akhir").value '----(dengan sebelumnya memilih sheet tempat range "akhir" berada)

blessings,
tomz

----- Original Message -----
From: bagus nuradita
To: XL-mania@yahoogroups.com
Sent: Saturday, February 04, 2012 3:59 PM
Subject: ]] XL-mania [[ run time error 16 expression too complex in excel 2007

Dear all.

saya punya file excel dng macro vbnya tiba2 muncul error "run time error 16 expression too complex " begitu di upgrade ke exel 2007.
file ini berjalan dgn normal di excel 2003

Sub isiupah()
Dim i As Double
Dim j As Double
Dim nom As Double
Dim BAR As Double
Dim NOPEK, NOURUT, NIK1, SEKS As String
Dim NAMA As String
Dim LAHIR As String
Dim UPAH As Double
Dim bln As String
Dim kol As Double
Sheets("upah").Activate
If Range("JUM1cku").Value > 2 Then
Do While Range("JUM1cku").Value > 2
Range("PER1c").Select
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.EntireRow.Delete
Loop
End If
NOURUT = 0
For i = 1 To Range("akhir").Value => run time error 16 expression too complex
For j = 1 To 23
bln = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), 7 + j, False)
If j = 1 Then
If Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value <> Sheets("dumtk").Range("a5").Offset(i, 31).Range("a1").Value Then

If Val(Sheets("dumtk").Range("a5").Offset(i, 31).Range("a1").Value) <> 0 Then
If Val(Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value) <> 0 Then
nom = ((j - 1) / 2) + 1
If nom = Val(Range("kuupah").Value) Then
NOURUT = NOURUT + 1
NIK1 = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 3, False)
SEKS = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 6, False)
NOPEK = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 2, False)
NAMA = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 4, False)
kol = 7 + j
LAHIR = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 5, False)
If WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False) <> "K" Then
UPAH = Val(WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False))

Range("NOMORUPAH").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = NOURUT
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = NIK1
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = NOPEK
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = NAMA
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = LAHIR
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = SEKS
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = UPAH
End If
End If
End If
End If
End If
Else
If Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value <> Sheets("dumtk").Range("a5").Offset(i, j + 4).Range("a1").Value Then

If Val(Sheets("dumtk").Range("a5").Offset(i, j + 4).Range("a1").Value) <> 0 Then
If Val(Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value) <> 0 Then
nom = ((j - 1) / 2) + 1
If nom = Val(Range("kuupah").Value) Then
NOURUT = NOURUT + 1
NIK1 = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 3, False)
SEKS = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 6, False)
NOPEK = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 2, False)
NAMA = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 4, False)
kol = 7 + j
LAHIR = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 5, False)
If WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False) <> "K" Then
UPAH = Val(WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False))

Range("NOMORUPAH").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = NOURUT
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = NIK1
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = NOPEK
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = NAMA
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = LAHIR
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = SEKS
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = UPAH
End If
End If
End If
End If
End If
End If
Next j
Next i
End Sub
Mohon sarannya

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

Re: run time error 16 expression too complex in excel 2007

Posted by: "o' Seno" ontoseno84@gmail.com   o_s_e_n_o

Tue Feb 7, 2012 7:58 am (PST)



Terhadap pertanyaan mengenai Data dan Range yg tidak diperlihatkan *BENDA*
nya
para calon penaggap MASIH bisa : (titik dua)
1.
UNTUNG-UNTUNGAN MENEBAK penyebabnya, atau

2.
Kalau serius, bisa menirukan dulu membuat range tiruan (berdasarkan
pembayangan)
ingat di situ ada range yg diberi nama
(Paling sulit mungkin menebak range yg diberi nama itu
* Kira-kira Range yang mana ya Coy..?? MENEKEHEK !! )*
Berdasarkan Data rekayasa & untung-untungan itu baru kemudian si penanggap
mencoba coba
makro dan mencari kesalahannya; atau

3.
Males & hilang "napsu penanggapan"nya berhubung cara bertanyanya tidak
"setandar".
Mengapa pulak rela menderita disiksa oleh pertanyaan yg tidak memikirkan
calon penanggapnya ?

"Saya punya kucing suka meong-meong, sakit apa ya Dok "? ( kucingnya gak
dibawa )

*o'Seno*

> On Sat, Feb 4, 2012 at 1:59 PM, bagus nuradita <bagus_nuradita@yahoo.com>
> wrote:
> > Dear all.
> > saya punya file excel dng macro vbnya tiba2 muncul error "run time
> error 16 expression too complex " begitu di upgrade ke exel 2007.
> > file ini berjalan dgn normal di excel 2003
> >
> > Sub isiupah()
> > Sheets("upah").Activate
> > If *Range("JUM1cku")*.Value > 2 Then
> > Do While Range("JUM1cku").Value > 2
> > Loop
> > End If
> > NOURUT = 0
> > For i = 1 To *Range("akhir")*.Value => run time error 16
> expression too complex
> > For j = 1 To 23
> > bln = WorksheetFunction.VLookup(i, Sheets("dumtk")*
> .Range("DATAku")*, 7 + j, False)
> > If j = 1 Then
> > If Sheets("dumtk").Range("a5").Offset(i, j +
> 6).Range("a1").Value <> _
>
> Sheets("dumtk").Range("a5").Offset(i, 31).Range("a1").Value
> Then
> > End Sub> Mohon sarannya
> >
>

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

apa yang salah dengan macro saya

Posted by: "Seedeeq P" astray.hyperknight@gmail.com   astray_hyperknight

Tue Feb 7, 2012 7:58 am (PST)



Dear all dewa2 excel

mau tanya dong macro yang saya buat sekarang2 ini malah jadi aneh, padahal
dulu nggak, saya bikin 3 tau yang lalu dan ga pernah error, baru tadi pagi
kelakuannya aneh

sekeripnya sebagai berikut

* Sub Macro1()*
> *Dim baris, Baris1, BarisAkhir, BarisAkhir1, BSC, BscSource, BSCFile As
> String*
> *Dim jadi, sumber, sumber1, sumber2, kolom, barisan, sourcer As String*
> * *
> *Sheets("sheet1").Select*
> *Rows("1:1").Select*
> * Selection.Delete Shift:=xlUp*
> *Cells.Select*
> *Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Key2:=Range("A1")
> _*
> * , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _*
> * False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
> DataOption2 _*
> * :=xlSortNormal*
> * A = 2*
> * Do Until A = 62*
> * Sheets("sheet2").Select*
> * BSC = Cells(A, 1).Text*
> * BscSource = "G:\KPITINEM3\KPITINEM3_BSC_"*
> * baris = Cells(A, 2).Text*
> * Tipe2 = ".xlsx"*
> * BSCFile = BscSource + BSC + Tipe2*
> * Baris1 = Cells(A, 3).Text*
> * Sheets("sheet1").Select*
> * Rows("1:" + (CStr(baris))).Select*
> * Selection.Cut*
> * ChDir "G:\KPITINEM3\"*
> * Workbooks.Open Filename:=BSCFile _*
> * , Origin:=xlWindows*
> * Sheets("sheet1").Select*
> * Rows(CStr(Baris1 + 1) + ":" + CStr(Baris1 + 1)).Select*
> * ActiveSheet.Paste*
> * Cells.Select*
> * 'Selection.Sort Key1:=Range("C2"), Order1:=xlAscending,
> Header:=xlGuess,*
> * 'OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _*
> * 'DataOption1:=xlSortNormal*
> *Sheets("sheet2").Select*
> *barisan = Cells(1, 1).Text*
> *kolom = Cells(2, 1).Text*
> *sumber = "Sheet1!R1C1:"*
> *sumber1 = "R" + CStr(barisan)*
> *sumber2 = "C" + CStr(kolom)*
> * jadi = sumber + sumber1 + sumber2*
> * Sheets("Sheet4").Select*
> * Range("A6").Select*
> * ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _*
> * jadi*
> * **Sheets("Chart2").Select*
> * ActiveChart.PivotLayout.**PivotTable.RefreshTable*
> * ActiveWorkbook.Save*
> * ActiveWindow.Close*
> * Windows("KPITINEM3.xlsm").**Activate*
> * Selection.Delete Shift:=xlUp*
> * *
> *A = A + 1*
> * Loop*
> *End Sub*

setiap macro di jalanin si sheet chart yang seharusnya chart2 seperti yang
saya bold di atad selalu berubah ke chart1, nah tapi untuk file yang ke 2
yang di buka oleh macro tersebut jadi chart2 lagi dan berulang (chart1
terus chart2 dst)

yang salah apanya ya kira2 mastah2 semua, mohon koreksinya :D

Terima kasih

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

Re: Drill Down List

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Tue Feb 7, 2012 7:59 am (PST)



Tolong buatkan Data Validation (Allow: List) di sheet Form AP Cell F11 ke
bawah
formula Source nya
*=OFFSET(INDIRECT($C11),0,0,,1)*

tafsir al Haps:
Re-Resize Range yg namanya tertulis di kolom C di baris yg sejajar dengan
beradanya
Data_Validation ini >> menjadi hanya 1 kolom terkiri

Rujukan Range hasil formula itu di masukkan sebagai source pada
Data_Validation tsb

[image: DataValidation rujuk ke NAMERange.PNG]

Ini hanya akan berhasil jika semua text yg termasuk pada Range yg
diberinama CLASS
juga merupakan NAMA RANGE

*2012/2/6 Daniel Prayogi <daniel.prayogie@yahoo.com>
>
> Dear para Master XL,
> Mohon bantuannya donk untuk case berikut :
> 1. Pada sheet Form AP ada kolom C (Asset Class) dan kolom F (Asset
Description)
> 2. Pada sheet Master ada beberapa table untuk pengelompokan Asset Class.
> 3. Saya ingin pengisian Asset Description pada kolom F menggunakan drill
down list.
>
> Pertanyaan nya :
> Jika pada kolom Asset Class saya memilih Buildings maka pada drill down
list *
*> yang ada di kolom Asset Description hanya memunculkan list yang ada pada
table building di Sheet Master.
> Mohon bantuannya ya rekan-rekan Master XL.
> Terima kasih,
> Yogie*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5.

bagaimana caranya menampilkan excel di blog dan bisa digunakan bersa

Posted by: "joestriker@ymail.com" joestriker@ymail.com   joestriker@ymail.com

Tue Feb 7, 2012 8:31 pm (PST)



saya mohon bantuan para pakar excel n master XL-mania ...
saya pernah ktemu ama blog yg menampilkan file excel dan bisa digunakan oleh semua pngunjungnya ... ada yg tau gmn caranya para master suhu excel ,,, mohon bantuannya ... thnx.

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

Setting tanggal yang berubah tiap hari

Posted by: "go_tjwan_ham@yahoo.com" go_tjwan_ham@yahoo.com   go_tjwan_ham

Tue Feb 7, 2012 8:32 pm (PST)



Dear Para Master excell,

Mohon bantuannya.
Saya mau membuat data, dimana kolom isian tanggal berubah setiap harinya, mengikuti tanggal settingan komputer. Bagaimana rumusnya?
Terimakasih banyak atas bantuannya.

HAM
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

----blink----blink----blink-----

mods: = TODAY()
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
7.

Recover file sharing yang rusak

Posted by: "mechil" MeCHil@yahoo.com   mechil

Tue Feb 7, 2012 8:33 pm (PST)



Dear temen2 XL mania,

Mohon pencerahan...

Saya biasanya menggunakan data excel, disharing dan dipergunakan bersama 2 orang teman lainnya..

Selama 1minggu ini,
data di masing2 komputer kami sering rusak..
file yang tadinya berwarna hilang jadi putih, tidak ada settingan %, format accounting dan lain2

Adakah yang perna mengalami hal ini,
apa yang harus dilakukan.
salah satu komputer kami sudah perna di restore ketika excel itu tidak bisa dipergunakan.

Saya sudah menghubungi pihak IT perusahaan,
dan solusi yang mereka berikan "ya sudah salin ulang aja di file yang baru"

saya benar benar benar butuh bantuan informasi tentang hal ini

Terima kasih

MeCHiL

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Small Business Group

Own a business?

Connect with others.

Yahoo! Groups

Parenting Zone

Community resources

for parents

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 ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+
Diposting oleh EXCEL FEED LEARNING di 04.34

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)