Selasa, 21 Juni 2011

]] XL-mania [[ Digest Number 2188

Messages In This Digest (12 Messages)

Messages

1a.

Macro untuk Hidden, delete di Sheet lain

Posted by: "Primadi" ppaspti@sumcosi.com

Mon Jun 20, 2011 8:09 am (PDT)



Dear Xl-mania,

Langsung saja ya, misalkan ada 2 worksheet Sheet1 dan Sheet2.

Saat tampilan ada di Sheet1, bagaimana cara memerintahkan row 5 sampai row
10 di sheet2 di Hidden ataupun di delete.

Syntak yang saya ketikkan seperti ini --> tidak berhasil

Sub hidden_baris()

Sheet2.Range(Rows(5), Rows(10)).Hidden = False

End Sub

Jika saya ketikkan seperti dibawah ini bisa berhasil --> tapi tampilan harus
ke Sheet2 dulu

Sub hidden_baris()

Sheet2.Select

Sheet2.Range(Rows(5), Rows(10)).Hidden = False

End sub

Terima kasih.

Best regards,

Primadi

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

Re: Macro untuk Hidden, delete di Sheet lain

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

Mon Jun 20, 2011 8:18 pm (PDT)



Sub RowHide2()

Sheet2.Range("5:5,10:10").EntireRow.Hidden = True

End Sub

** method (*Range).Select* hanya bisa dilaksanakan jika

sheet dimana range itu berada sedang aktif

** di VBA melakukan tindakan terhadap suatu object, tidak harus menselect

object tsb lebih dahulu seperti ketika kita interaktif di worksheet.

di VBA kita sedang berada di workbook A, bisa mengurus suatu range di
workbook Z

CMIIW.-

2011/6/20 Primadi <ppaspti@sumcosi.com>

>
> Dear Xl-mania,
>
>
>
> Langsung saja ya, misalkan ada 2 worksheet Sheet1 dan Sheet2.
>
> Saat tampilan ada di Sheet1, bagaimana cara memerintahkan row 5 sampai row
> 10 di sheet2 di Hidden ataupun di delete.
>
>
>
> Syntak yang saya ketikkan seperti ini à tidak berhasil
>
>
>
> Sub hidden_baris()
>
> Sheet2.Range(Rows(5), Rows(10)).Hidden = False
>
> End Sub
>
>
>
> Jika saya ketikkan seperti dibawah ini bisa berhasil à tapi tampilan harus
> ke Sheet2 dulu
>
>
>
> Sub hidden_baris()
>
> Sheet2.Select
>
> Sheet2.Range(Rows(5), Rows(10)).Hidden = False
>
> End sub
>
>
>
> Terima kasih.
>
>
>
> *Best regards,*
>
> *Primadi*
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.

Re: Macro untuk Hidden, delete di Sheet lain

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

Mon Jun 20, 2011 8:19 pm (PDT)



Hai Primadi,

Untuk unhide
Sheet2.Rows("5:10").hidden =false 'ganti false jadi true untuk
hide

Untuk delete
Sheet2.rows("5:10").delete

Kid.

2011/6/20 Primadi <ppaspti@sumcosi.com>

> **
>
>
> Dear Xl-mania,
>
>
>
> Langsung saja ya, misalkan ada 2 worksheet Sheet1 dan Sheet2.
>
> Saat tampilan ada di Sheet1, bagaimana cara memerintahkan row 5 sampai row
> 10 di sheet2 di Hidden ataupun di delete.
>
>
>
> Syntak yang saya ketikkan seperti ini à tidak berhasil
>
>
>
> Sub hidden_baris()
>
> Sheet2.Range(Rows(5), Rows(10)).Hidden = False
>
> End Sub
>
>
>
> Jika saya ketikkan seperti dibawah ini bisa berhasil à tapi tampilan harus
> ke Sheet2 dulu
>
>
>
> Sub hidden_baris()
>
> Sheet2.Select
>
> Sheet2.Range(Rows(5), Rows(10)).Hidden = False
>
> End sub
>
>
>
> Terima kasih.
>
>
>
> *Best regards,*
>
> *Primadi*
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1d.

Re: Macro untuk Hidden, delete di Sheet lain

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

Mon Jun 20, 2011 8:23 pm (PDT)



Coba ganti perintahnya seperti in :
Sub hidden_baris()
Sheet2.Rows("5:10").Hidden = True
End Sub
 

--- On Mon, 20/6/11, Primadi <ppaspti@sumcosi.com> wrote:

From: Primadi <ppaspti@sumcosi.com>
Subject: ]] XL-mania [[ Macro untuk Hidden, delete di Sheet lain
To: xl-mania@yahoogroups.com
Date: Monday, 20 June, 2011, 1:56 PM

 

Dear Xl-mania,
 
Langsung saja ya, misalkan ada 2 worksheet Sheet1 dan Sheet2.
Saat tampilan ada di Sheet1, bagaimana cara memerintahkan row 5 sampai row 10 di sheet2 di Hidden ataupun di delete.
 
Syntak yang saya ketikkan seperti ini à tidak berhasil
 
Sub hidden_baris()
Sheet2.Range(Rows(5), Rows(10)).Hidden = False
End Sub
 
Jika saya ketikkan seperti dibawah ini bisa berhasil à tapi tampilan harus ke Sheet2 dulu
 
Sub hidden_baris()
Sheet2.Select
Sheet2.Range(Rows(5), Rows(10)).Hidden = False
End sub
 
Terima kasih.
 
Best regards,
Primadi

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

Pemecah hari antara (pemecah hari-hari season 2)

Posted by: "abduh" abduh.2005@yahoo.co.id   abduh.2005

Mon Jun 20, 2011 8:10 am (PDT)




Dear xl mania,

Mohon pencerahan kembali kasus pemecah hari season 2, yaitu menghitung
jumlah hari antara

contoh dari hari & tgl sekian sampai hari & tgl sekian brapa jumlah hari
antaranya?

seperti tabel dibawah :

Hari Mulai

Hari Selesai

Jumlah Hari Antaranya

Tanggal

Hari

Tanggal

Hari

Senin

Selasa

Rabu

Kamis

Jumat

Sabtu

Minggu
2/5/2011 Senin 2/5/2011 Senin
0

0

0

0

0

0

0
3/5/2011 Selasa 5/5/2011 Kamis
0

0

1

0

0

0

0
4/5/2011 Rabu 11/5/2011 Rabu
1

1

0

1

1

1

1
5/5/2011 Kamis 10/5/2011 Selasa
1

0

0

0

1

1

1
6/5/2011 Jumat 18/5/2011 Rabu
3

3

2

2

1

2

3
7/5/2011 Sabtu 9/5/2011 Senin
0

0

0

0

0

0

1
8/5/2011 Minggu 1/6/2011 Rabu
4

4

3

3

3

3

3
9/5/2011 Senin 9/6/2011 Kamis
4

5

5

4

4

4

4

Thank's a lot

Untuk pecerahannya kembali

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

Re: Pemecah hari antara (pemecah hari-hari season 2)

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

Mon Jun 20, 2011 8:19 pm (PDT)



Kalo ndak salah tangkap, pak abduh ingin *menghitung nama_Hari di antara dua
tanggal.*
Jika TGLMulai = *1* TGLSelesai = *10* jumlah hari yg diurusin hanya *8* (=
tgl *2 *s/d* 9** *)
8 hari itu = Hari apa saja ? ( *Senin*-nya* ada berapa, Selasa*-nya* ada
berapa,.. dst *)

Dlm "my humble opinion" terbayangkan: * seandainya* tgl *2 *s/d* 9* itu
bisa dibuat *array*
*{1,2,3,4,5,6,7,8}*
dan tiap tanggal dikonversi menjadi Nama Hari (artinya akan ada Array
NamaHari)
*{Kamis,Jumat,Sabtu,Minggu,Senin,**Selasa,Rabu.Kamis**}*
maka pekerjaan mengelompokkan Nama Hari (Hari Sudarsono, Hari Potter, Hari
De Fretes dsb)
sungguh mudah yaitu hanya formula sederhana *=COUNTIF(Array_NamaHari,
NamaHari)*

Jika membuat array NamaHari agak susah (karena harus mengkonversi tgl >>
nama hari,
bisa saja kita konversi ke AngkaWeekday *{4,5,6,7,1,2,3,4} *
Barangkali saja.. rumusnya jadi lebih pendek dan kekar.
Walhatsil.. rumus bisa diganti * **=COUNTIF(Array_AngkaWeekday,
AngkaWeekday)*

Yang menjadi masalah sekarang, bagaimana *membuat array-nya ??*
Yg kita pernah dengar adalah: *Array Hasil* dapat dicipta dengan *Array
Formula*

Worbook lampiran <http://www.box.net/shared/2zahf916b1bqcxxic989>, mencoba
membuat *Array_AngkaWeekday* yg di-andaikan di atas,
dengan ArrayFormula yg masih perlu diuji keabsahannya:

=TRANSPOSE(IF((ROW(INDIRECT(B7&":"&D7))>B7)*(ROW(INDIRECT(B7&":"&D7))<D7),
WEEKDAY(ROW(INDIRECT(B7&":"&D7))),0))

Dengan demikian, rumus pada tiap cell Hasil bentuknya hanya seperti ini
=COUNTIF($P7:$AU7,F$5)

Oh ada satu lagi: *gak peting* sih...

** pertanyaan: Bila* TglMulai = 2 , TglSelesai = 2*
sebenarnya apakah ada HARI di ANTARANYA , apakah jawabnya 0 (eNol)
atau-kah bilangan negatip ??
Pertanyaan ini ikut bertanggung jawab mengenai menjadi panjangnya rumus
ArrayWeekday; Karena di dalam rumus biasa kita bisa terjebak spt ini

TglAktualMulai: *2*+1 = tgl *3*
Tgl Aktual Selesai: *2*-1 = tgl *1*
Jadi ada jarak hari: TglAktualSelesai - TglAktualMulai + 1 =*1-3*+1 = *-1*

sedangkan jarak hari (dlm array yg mau dicipta) tidak boleh bernilai negatip
misalnya: *{=Row(3:1)}*

CMIIW...

2011/6/20 abduh <abduh.2005@yahoo.co.id>

>
> Dear xl mania,
> Mohon pencerahan kembali kasus pemecah hari season 2, yaitu menghitung
> jumlah hari antara
> contoh dari hari & tgl sekian sampai hari & tgl sekian brapa jumlah hari
> antaranya?
> seperti tabel dibawah :
>
Thank's a lot Untuk pecerahannya kembali
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2c.

Re: Pemecah hari antara (pemecah hari-hari season 2)

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

Mon Jun 20, 2011 8:20 pm (PDT)



jadi hari awal gak dihitung..
pakai saja formula season 1 - nya Bang Abi, tambahkan logical untuk mengeluarkan hari awal dari perhitungan

=SUM(--(WEEKDAY(ROW(INDIRECT($A3&":"&$C3)))=E$2))-(WEEKDAY($A3)=E$2)

Nilai false = 0, dan true = 1

blessings,
tomz

----- Original Message -----
From: abduh
To: XL-mania@yahoogroups.com
Sent: Monday, June 20, 2011 4:13 PM
Subject: ]] XL-mania [[ Pemecah hari antara (pemecah hari-hari season 2)

Dear xl mania,

Mohon pencerahan kembali kasus pemecah hari season 2, yaitu menghitung jumlah hari antara

contoh dari hari & tgl sekian sampai hari & tgl sekian brapa jumlah hari antaranya?

seperti tabel dibawah :

Hari Mulai
Hari Selesai
Jumlah Hari Antaranya

Tanggal
Hari
Tanggal
Hari
Senin
Selasa
Rabu
Kamis
Jumat
Sabtu
Minggu

2/5/2011 Senin 2/5/2011 Senin 0
0
0
0
0
0
0

3/5/2011 Selasa 5/5/2011 Kamis 0
0
1
0
0
0
0

4/5/2011 Rabu 11/5/2011 Rabu 1
1
0
1
1
1
1

5/5/2011 Kamis 10/5/2011 Selasa 1
0
0
0
1
1
1

6/5/2011 Jumat 18/5/2011 Rabu 3
3
2
2
1
2
3

7/5/2011 Sabtu 9/5/2011 Senin 0
0
0
0
0
0
1

8/5/2011 Minggu 1/6/2011 Rabu 4
4
3
3
3
3
3

9/5/2011 Senin 9/6/2011 Kamis 4
5
5
4
4
4
4


Thank's a lot

Untuk pecerahannya kembali

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

Re: Pemecah hari antara (pemecah hari-hari season 2)

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

Mon Jun 20, 2011 8:23 pm (PDT)



Dear Abduh,

Abimono sudah memberi formula untuk kasih ini beberapa waktu lalu. File
terlampir adalah usaha memecahnya agar lebih mudah dipahami untuk
dikembangkan pada kasus yang lainnya lagi.

Regard,
Kid.

2011/6/20 abduh <abduh.2005@yahoo.co.id>

> **
>
>
> Dear xl mania,
>
> Mohon pencerahan kembali kasus pemecah hari season 2, yaitu menghitung
> jumlah hari antara
>
> contoh dari hari & tgl sekian sampai hari & tgl sekian brapa jumlah hari
> antaranya?
>
> seperti tabel dibawah :
>
> *Hari Mulai*
>
> *Hari Selesai*
>
> *Jumlah Hari Antaranya*
>
> *Tanggal*
>
> *Hari*
>
> *Tanggal*
>
> *Hari*
>
> *Senin*
>
> *Selasa*
>
> *Rabu*
>
> *Kamis*
>
> *Jumat*
>
> *Sabtu*
>
> *Minggu*
> 2/5/2011 Senin 2/5/2011 Senin
>
> 0
>
> 0
>
> 0
>
> 0
>
> 0
>
> 0
>
> 0
> 3/5/2011 Selasa 5/5/2011 Kamis
>
> 0
>
> 0
>
> 1
>
> 0
>
> 0
>
> 0
>
> 0
> 4/5/2011 Rabu 11/5/2011 Rabu
>
> 1
>
> 1
>
> 0
>
> 1
>
> 1
>
> 1
>
> 1
> 5/5/2011 Kamis 10/5/2011 Selasa
>
> 1
>
> 0
>
> 0
>
> 0
>
> 1
>
> 1
>
> 1
> 6/5/2011 Jumat 18/5/2011 Rabu
>
> 3
>
> 3
>
> 2
>
> 2
>
> 1
>
> 2
>
> 3
> 7/5/2011 Sabtu 9/5/2011 Senin
>
> 0
>
> 0
>
> 0
>
> 0
>
> 0
>
> 0
>
> 1
> 8/5/2011 Minggu 1/6/2011 Rabu
>
> 4
>
> 4
>
> 3
>
> 3
>
> 3
>
> 3
>
> 3
> 9/5/2011 Senin 9/6/2011 Kamis
>
> 4
>
> 5
>
> 5
>
> 4
>
> 4
>
> 4
>
> 4
>
> Thank's a lot
>
> Untuk pecerahannya kembali
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3a.

compile data pakai macro

Posted by: "Effendi Wijaya" effendiwijaya@gmail.com

Mon Jun 20, 2011 8:11 am (PDT)



compile data

hi para pakar excel mania,
salam malu bertanya kerja manual.

saya butuh bantuan temen excel mania sekalian,gimana buat macro nya.
saya ingin menggabung kan beberapa data dari beberapa sheet menjadi
format data base, sehingga memudahkan
untuk menganalisa penerimaan barang.

Data yg tersedia ada dalam sheet Bisnis unit A,B,C dan beberapa bisnis
unit lain nya.
data yg tersedia acak tidak mengikuti kaedah data base.

hasil yg di inginkan ada pada workbook yang lain yg isi nya seperti
di bawah
Part No description Date Qty Sheet Name
K864599756 Ring A 1-Jun 200 Bisnis unit A
K864599756 Ring A 2-Jun 1000 Bisnis unit A
K864599796 Ring L 3-Jun 500 Bisnis unit B

data yg diambil adalah hanya jika terjadi penerimaan barang pada
tanggal tersebut.

filw contoh terlampir

trimakasih atas bantuan nya.

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

Re: compile data pakai macro

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

Mon Jun 20, 2011 8:23 pm (PDT)



PROSES INI TERBOLAK jika dibanding dengan kelaziman berdatabase-ria;
yaitu Tabel Report seharusnya dibuat berdasarkan tabel database
Tetapi ini = Menyusun Tabel Database berdasarkan beberapa Reports

Untuk "struktur tabel report" yg masih 'lumayan' masih bisa berhasil,
tetapi
*ada berapa orang *yg membuat repot dengan MAU memikirkan bahwa suatu saat
akan report tsb akan *dijadikan sumber dari sumber* ??
Hal kecil ini mudah mudahan menjadi bahan renungan untuk pengembangannya ke
depan.

Tabel yg diajukan sbg contoh (Sheets 'Bisnis Unit ..") pun agar mudah
dirujuk
harus* disehatkan dulu* yaitu bagian heading *baris tanggal* yg sudah tidak
sehat
(gara-gara* diMerged **per-dua-cell-sebaris dijadikan satu cell /*ini ciri
khas Report
yaitu dibuat hanya demi keindahan pemandangan, dan memang seharusnya tidak
disiapkan
sebagai data sumber yg harus bersifat structrured dan jelas Fields &
Recordsnya)

Setiap cell dibawahnya akan merujuk ke BARIS tanggal, dan jika baris
tanggal
didiamkan tetap sbg* merged cell* (satu cell berisi data tgl, satu
cell berikutnya
kosong),
berarti kita biarkan makro bisa KECELE : jika merujuk tanggal *pas ketemu
cell kosong*,
hasilnya ya data kosong (padahal oleh pembuat-reportnya : KOSONG itu
dimaksudkan
'= berisi tanggal seperti CELL di sebelah kirinya !!)

Itu tadi sedikit gambaran alasan mengapa mergedcell sangat dibenci oleh
data.
(lha wong array formula saja jika dipaksa dituliskan di mergedcell, dia
bilang
"mendingan bunuh diri !")

Sub DoSomething_Jilid_20110620()
'------------------------
' siti Vi / 20 jun 2011
' XL-mania case # 18667
'------------------------
Dim Sht As Worksheet
Dim TbRef As Range, Tabel As Range
Dim n As Long, r As Long, c As Integer
Set Tabel = Sheets("Summaries").Range("B4")

For Each Sht In Worksheets
If Sht.Name Like "Bisnis unit*" Then
Set TbRef = Sht.Cells(3, 1).CurrentRegion
For c = 4 To TbRef.Columns.Count
For r = 3 To TbRef.Rows.Count
If Not TbRef(r, c) = vbNullString Then
n = n + 1
Tabel(n, 1) = TbRef(r, 1)
Tabel(n, 2) = TbRef(r, 2)
Tabel(n, 3) = TbRef(1, c)
Tabel(n, 4) = TbRef(r, c)
Tabel(n, 5) = Sht.Name
End If
Next r
Next c
End If
Next Sht
End Sub
'-------

CMIIW

~siti~

2011/6/20 Effendi Wijaya <effendiwijaya@gmail.com>

> compile data
>
> hi para pakar excel mania,
> salam malu bertanya kerja manual.
>
> saya butuh bantuan temen excel mania sekalian,gimana buat macro nya.
> saya ingin menggabung kan beberapa data dari beberapa sheet menjadi
> format data base, sehingga memudahkan
> untuk menganalisa penerimaan barang.
>
> Data yg tersedia ada dalam sheet Bisnis unit A,B,C dan beberapa bisnis
> unit lain nya.
> data yg tersedia acak tidak mengikuti kaedah data base.
>
> hasil yg di inginkan ada pada workbook yang lain yg isi nya seperti
> di bawah
> Part No description Date Qty Sheet Name
> K864599756 Ring A 1-Jun 200 Bisnis unit A
> K864599756 Ring A 2-Jun 1000 Bisnis unit A
> K864599796 Ring L 3-Jun 500 Bisnis unit B
>
> data yg diambil adalah hanya jika terjadi penerimaan barang pada
> tanggal tersebut.
>
> filw contoh terlampir
>
> trimakasih atas bantuan nya.
>
> Rgds,
> E.Wijaya
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4a.

pisah gelar

Posted by: "Jarjit Aco" jirjit81@yahoo.co.id   jirjit81

Mon Jun 20, 2011 8:21 pm (PDT)



Asslm.......

Terlampir file untuk pisah gelar, masalahnya untuk singkatan nama misalnya Muh. M. St dan lain2 seharusnya tidak masuk dalam gelar kesarjanaan.

mohon pencerahan MASTER - MASTER XL-MANIA.

Thank's B4.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4b.

Re: pisah gelar

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

Mon Jun 20, 2011 9:35 pm (PDT)



Waalaikumussalam Wr. Wb.

Dibutuhkan sebuah daftar gelar.
Pada file terlampir, hati-hati jika singkatan nama ternyata sama dengan
sebuah gelar.

Wassalam.
Kid.

2011/6/21 Jarjit Aco <jirjit81@yahoo.co.id>

> **
>
>
> Asslm.......
>
> Terlampir file untuk pisah gelar, masalahnya untuk singkatan nama misalnya
> Muh. M. St dan lain2 seharusnya tidak masuk dalam gelar kesarjanaan.
>
> mohon pencerahan MASTER - MASTER XL-MANIA.
>
> Thank's B4.
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Yahoo! Groups

Parenting Zone

Family and home

Tips for mom

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Cat Group

Join a group for

people who love cats

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 ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Find useful articles and helpful tips on living with Fibromyalgia. Visit the Fibromyalgia Zone today!

Diposting oleh EXCEL FEED LEARNING di 05.55

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)