Fungsi Merubah Angka ke Kata Untuk MS Excel
By aurino | August 11, 2008
Fungsi Merubah Angka ke Kata Untuk MS Excel
Fungsi Terbilang(…) dan TerbilangRp(…), dan TerbilangSen(…)
Pada worksheet ini kita memakai fungsi terbilang yang telah di entry pada module Terbilang
Pada module tersebut kita memiliki dua fungsi utama untuk menampilkan angka menjadi:
1. Terbilang(x) -> sekian koma sekian per seratus
2. TerbilangRp(x) -> sekian rupiah sekian sen
2. TerbilangSen(x) -> sekian koma sekian sekian
Penggunaannya sama dengan penggunaan fungsi-fungsi dalam excel lainnya.
Contoh 922,337,203,685,477.00
Ditulis : = TerbilangRp(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh rupiah
Ditulis : = Terbilang(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh
Memasukkan Fungsi Terbilang
Masukkan Kode dalam listing vba function dengan cara mengcopy seluruh kode
ke dalam module Vba dalam suatu worksheet.
1. Blok/sorot A1:A163 dan Copy atau Ctrl-C pada Sheet Listing Vba Function
2. Pilih Tool - Macro - Visual Basic Editor atau Alt-F11
3. Insert - Module
4. Edit - Paste atau Ctrl-V
5 File Save … Beri nama misalnya: BacaAngka atau yang lainnya
selesai
anda tinggal menggunakannya.
contoh
!!!! Ingat anda harus men-setup macro security ke medium !!!!
Caranya
1 Menu Tools pilih tab Security lalu
2 Tekan tombol Macro Security pilih option Medium tekan Ok

3 Tutup Microsoft Excell dan Exit dari Excell
4 Buka Microsoft Excell
5 Mulai
LISTING
‘This Public Function for Indonesian “Numeric to string Converstion”
‘You can copy, modify or take part of this function
‘Redesign and retouch to get new rupiah function by: aurinoradjamaris@yahoo.com
‘aurinodjamaris@gmail.com
Web Site:
Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
Terbilang = “”
Exit Function
End If
‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
‘triliun = Int(x / 1000 ^ 4)
‘milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
‘juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
‘ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
’satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
’sen = Int((x - Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun ”
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar ”
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta ”
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu ”
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + Ratus(sen, 0) + “per seratus ”
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Public Function TerbilangRp(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangRp = “”
Exit Function
End If
‘jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun ”
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar ”
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta ”
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu ”
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + “”
End If
’sebelum bagian sen
baca = baca & “rupiah ”
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + Ratus(sen, 0) + “sen ”
End If
End If
TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Function Ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
If a100 = 1 Then
baca = “Seratus ”
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + “ratus ”
End If
End If
‘baca bagian puluhan dan satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + “puluh ”
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
Ratus = baca
End Function
Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = “Nol”
Case 1:
If Posisi <= 2 Or Posisi > 2 Then
angka = “Satu ”
Else
angka = “Se”
End If
Case 2: angka = “Dua ”
Case 3: angka = “Tiga ”
Case 4: angka = “Empat ”
Case 5: angka = “Lima ”
Case 6: angka = “Enam ”
Case 7: angka = “Tujuh ”
Case 8: angka = “Delapan ”
Case 9: angka = “Sembilan ”
Case 10: angka = “Sepuluh ”
Case 11: angka = “Sebelas ”
Case 12: angka = “Duabelas ”
Case 13: angka = “Tigabelas ”
Case 14: angka = “Empatbelas ”
Case 15: angka = “Limabelas ”
Case 16: angka = “Enambelas ”
Case 17: angka = “Tujuhbelas ”
Case 18: angka = “Delapanbelas ”
Case 19: angka = “Sembilanbelas ”
End Select
End Function
Public Function TerbilangSen(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangSen = “”
Exit Function
End If
x = Round(x, 2)
‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
‘triliun = Int(x / 1000 ^ 4)
‘milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
‘juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
‘ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
’satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
’sen = Int((x - Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun ”
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar ”
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta ”
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu ”
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + angka(Left(sen, 1), 1) + angka(Right(sen, 1), 1)
End If
End If
TerbilangSen = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Topics: Excel and Database, Function | No Comments »
(free) eBook on Microsoft Excel 2007
By aurino | July 30, 2008
Free eBook on Microsoft.Excel.2007.Bible.pdf - 25.709 kb
Contents:
Part I: Getting Started with Excel
Introducing Excel, What’s New in Excel 2007?, Entering and Editing Worksheet Data, Essential Worksheet Operations, Working with Cells and Ranges, Introducing Tables, Worksheet Formatting, Understanding Excel’s Files, Using and Creating Templates, Printing Your Work
Part II: Working with Formulas and Functions
Introducing Formulas and Functions, Creating Formulas That Manipulate Text, Working with Dates and Times, Creating Formulas That Count and Sum, Creating Formulas That Look Up Values, Creating Formulas for Financial Applications, Introducing Array Formulas, Performing Magic with Array Formulas.
Part III: Creating Charts and Graphics
Getting Started Making Charts, Learning Advanced Charting, Visualizing Data Using Conditional Formatting, Enhancing Your Work with Pictures and Drawings.
Part IV: Using Advanced Excel Features
Customizing the Quick Access Toolbar, Using Custom Number Formats, Using Data Validation, Creating and Using Worksheet Outlines, Linking and Consolidating Worksheets, Excel and the Internet, Sharing Data with Other Applications, Using Excel in a Workgroup, Protecting Your Work, Making Your Worksheets Error-Free.
Part V: Analyzing Data with Excel
Using Microsoft Query with External Database Files, Introducing Pivot Tables, Analyzing Data with Pivot Tables, Performing Spreadsheet What-If Analysis, Analyzing Data Using Goal Seek and Solver, Analyzing Data with the Analysis ToolPak.
Part VI: Programming Excel with VBA
Introducing Visual Basic for Applications, Creating Custom Worksheet Functions, Creating UserForms, Using UserForm Controls in a Worksheet, Working with Excel Events, VBA Examples, Creating Custom Excel Add-Ins.
Please send alert me if the link broken
Topics: Tutorial | No Comments »
Earning While Searching Online
By aurino | July 13, 2008
Here’s another way to earn online. If you’re like me and you’re making use of search engines everyday then My Search Funds is for you. No, you will certainly not get rich from this but you’ll earn something extra for doing something you normally do online — Searching.
It is based in UK and makes payouts through Paypal. In just minutes after joining My Search Funds, you can start earning. So what are you waiting for? Join now and start earning while doing a search online.
It’s totally free and so easy.
Topics: Tutorial | No Comments »
Krisis Energy atau Krisis Moral
By aurino | May 18, 2008
Kalau kita mengamati berita akhir-akhir ini rasanya tidak habis pikir juga kalau Indonesia mengalami krisis energy. Coba saja dengan diumumkan rencana Presiden bahwa pemerintah akan segera menaikkan (masih bagus bahasanya dibandingkan dengan “menyesuaikan harga”) bahan bakar minyak sampai mencapai 30%. Kenaikan harga minyakl, premium, solar, avtur dan lain-lainnya yang tentunya akan diikuti Gas nantinya dengan alasan karena ongkos produksi, kemudian tarif listrik dan seterusnya. Tentunya dampak yang berkelanjutan terhadap tekanan perekonomian akan semakin berat bagi rakyat Indonesia (hanya 10 persen yang tidak merasakan karena sudah cukup kaya atau sudah banyak mengambil duluan). dan seterusnya … susah juga untuk mengungkapkan karena memang tidak ada informasi yang jelas mengenai keadaan ini.
Yang perlu dicermati adalah simpang siurnya berita tentang supply BBM cukup dari pertamina bahkan sampai ada kenaikan 5 persen, di lain pihak dari berita yang dihimpun oleh mass media menyatakan bahwa stok BBM di SPBU berkurang, Minyak tanah menghilang karena pasokan dari pertamina yang dikurangi.
Siapa yang benar !!!!!! Siapa Yang Jujur !!!! … tentunya Siapa Yang Berbohong !!!!
Kalau Stok dari Pertamina Naik 5% … kemudian dari salah satu SPBU yang diwawancarai bahwa Kiriman berkurang dari 30 ton per hari menjadi 25 ton per hari (atau menurun 5000/30000 atu 16.67 %) berarti yang hilang dijalan sebesar 5% + 16.67% = 21.67%. Kalau angka tersebut dikalikan dengan konsumsi BBM selama sebulan ini ( maaf saya tidak tahu datanya) = ????????. Lalu dikalikan dengan jumlah subsisi (yang raib).
Siapa yang mengambil bahan bakar tersebut … yang jelas perjalanan minyak dari Pertamina ke SPBU semuanya dikendalikan oleh Pertamina …. mungkin kita perlu lebih teliti lagi Ada APA???? Jangan-jangan di jual (export kan menguntungkan ???) sedangkan uangnya kemana.
Mungkin kita perlu polisi rakyat sukarela untuk menjadi pengawas pertamina dan SPBU karena terlalu besar beban rakyat (meniru malaysia dengan polisi untuk Tenaga Kerja Haram).
Atau solusi lainnya ………..
Topics: Tutorial | No Comments »
Marine Energy (renewable)
By aurino | May 18, 2008
Marine Renewable Energy
Devices
To date there are only a few technologies that have progressed as far as the full-scale deployment and testing. However, there are several UK-based companies presently actively involved in the construction of such devices, supported in their endeavours by numerous financial channels including the Government and private investors. A number of technologies developed in the UK have been outlined below.
source: BWEA Read the rest of this entry »
Topics: Tutorial | No Comments »
Menggunakan Tabel Pivot untuk Meringkas Data
By aurino | May 11, 2008
Misalnya anda memiliki data penjualan yang isinya 50.000 baris seperti terlihat pada Gambar 1
Dengan data itu anda ingin membuat laporan ringkas yang menunjukkan penjualan per wilayah dan produk (region and product).
Gambar 1. Ringkas tabel data berikut.

Caranya: Untuk
meringkas data di atas, anda dapat menggunakan pivot table. Pivot tables sngat cocok untuk analisis data seperti di atas.
Peringatan: Pivot tables di Excel 2007 sangat berubah dari versi
Excel 97-2003. Untuk membuat ringkasan pendapatan berdasarkan wilayah dan produk membutuhkan klik mouse sebanyak 4 kali dan satu kali tahan tarik mouse (drag):
Pastikan bahwa data yang ada dalam daftar memiliki judul (pada baris paling atas) yang berbeda satu dengan lainnya (unik).
Pilih salah satu sel dalam database (data anda). Pilih Menu Insert – Pivot Table.
IntelliSense Excel (sensor cerdas Excel) akan menduga range data anda. Dan biasanya benar seperti pada Gambar 2. Dan Klik OK.


Dengan menekan tombok OK, anda akan melihat tabel pivot yang masih kosong dan dua toolbar tabel pivot baru, dan sebuah dialog daftar PivotTable baru. Dialog Excel versi 2007 memperlihatkan daftar filed pada bagian atas dan empat tempat meletakkan (Drop Zone) field pada bagian bawah dialog, seperti terlihat pada Gambar
Sedangkan pada Excel versi sebelumnya, maka anda harus menarik field dari Dialog Field
List langsung ke pivot table. Proses ini sangat menyulitkan bagi orang yang masih baru mengenal pivot tables. Dalam Excel 2007, anda menarik field dari dialog field list bagian atas ke zona yang yang cocok pada bagian bawah dialog Field List. Biasanya dengan hanya meng-klik field yang ada di dialog Field List akan menempatkan field tersebut pada zona yang tepat. Untuk kasus yang kita miliki ini, maka kita mencoba meletakkan produk merupakan daftar yang ke bawah (judul baris) sedangkan wilayah merupakan judul mendatar (judul kolom).

Gambar 3. Dialog PivotTable Field List di bagian atas dan Drop Zone di Bagian Bawah
Klik Check box Produk di Dialog Field List bagian atas. Excel akan secara otomatis memasukkan ke dalam Row Labels (Label baris) pada drop zone. Pivot table akan menunjukkan daftar produk satu per satu (tidak ada duplikasi) pada Kolom A (lihat Gambar 4).

Gambar 4. Klik sebuah field text, dan Excel memasukkan field itu ke area Baris.
Klik check box Pendapatan yang ada di dialog Field List bagian atas. Dan karena field tersebut adalah numeric maka Excel akan menambahkan pada bagian Values (nilai) dari pivot table.
Jika anda meng-klik check box Wilayah, maka Excel akan meletakkan field tersebut di area row pada pivot table. Karena anda ingin wilayah menjadi judul kolom maka, klik mouse, tahan dan tariklah field Wilayah dari dialog Field List dan letakkan di drop zone Column Labels yang terletak di bagian bawah dialog Field List.
Hasilnya adalah ringkasan data penjualan berdasarkan produk dan wilayah, seperti terlihat dalam Gambar 5.

Gambar 5. Pivot table membuat anda mudah untuk meringkas laporan.
Tingkat Lanjut: Pivot table memberikan banyak opsi (pilihan) yang sangat berguna. Untuk mempelajari lebih lanjut klik disini
Untuk Pemakai Versi Sebelumnya: Jika anda menyukai pivot table pro pada Excel versi sebelumnya, maka anda akan dengan cepat menggunakan pivot table
Excel 2007. Drop zones telah diubah namanya. Drop Zone Row Area sekarang bernama Row Labels. Sedangkan drop zone Column Area sekarang menjadi Column Labels. Drop Page Field menjadi Report Filter. Dan drop zone Data Area menjadi ? Values (walaupun saya menyebutnya drop zone Values, dengan mengabaikan symbol ?).
Agar Lebih Mudah: Pada
awal pembuatan sebuah Pivot Table, maka dialog PivotTable Field List akan berada di layar sebelah kanan. Anda dapat memindahkan ke tengah dengan cara klik pada Judul Dialog dan tarik ke worksheet agar terlihat mengambang di atas worksheet dan mempermudah anda dalam mengatur data. Dalam membuat artikel ini saya menggeser ke tengah agar tampak dalam gambar yang disajikan sebagai contoh.
Bentuk Drop Zone: Anda dapat mengatur bentuk dialog PivotTable Field List dengan mengklik dropdown pada bagian atas. Bentuk yang ditawarkan untuk tampilan ini ada lima (5). Tiga diantaranya tidak menyertakan daftar field atau drop zones. Jika tampilan dialog box anda tidak menampilkan salah satu bagian tersebut, maka gunakan panah dropdown untuk mengembalikan tampilan ke Fields Section and Areas Section Stacked. Ada juga yang menampilkan field dan drop zone secara berdampingan.
Kesimpulan: Perintah
Insert – Pivot Table dapat meringkas ribuan baris data secara cepat. Excel tidak membutuhkan anda mengerti rumusnya. Anda hanya harus dapat meletakkan field ke dala tata letak (layout) laporan.
Perintah Di Menu: Insert – Pivot Table
Topics: Tutorial | No Comments »
Links for water powered car
By aurino | May 10, 2008
Links that contained HHO, water for Car, Water for Motor, Cut Gas price, Water Gas, Hydrogen
http://en.wikipedia.org/wiki/Water-fuelled_car
http://water4gas.com/2books.htm?hop=vertuso
http://water4gas.com/trucks.htm
http://water4gas.com/mfg-kits.htm
http://www.tfot.info/news/1011/water-powered-car-demonstrated.html
and lots more
search here:
You Tube
http://www.youtube.com/watch?v=6Rb_rDkwGnU
http://www.youtube.com/watch?v=UVhXrvCCILw
Ebay affiliate vertuso
http://www.vertuso.com/aff/3363
You will be able to manufacture ALL parts of this system, for $60 total including shipping costs:
Topics: Tutorial | No Comments »
3 Questions To Ask When Setting up a Marketing Plan.
By aurino | May 10, 2008
3 Questions To Ask When Setting up a Marketing Plan.
By Dan Moses
There must be some reason why some marketing plans outperform
others. Said another way, if two equally skilled marketers create a
marketing plan… why does one produce 5 x as many members and
sales as the other marketer? Is this due to who they know, or the size of their list? Or
maybe it’s the price of their product or service. Sure there are a lot of aspects that make up a good marketing plan, but what can make one better then the other?
The key here is *plan*.
Yes, most marketers who come online don’t plan, or know how to plan the right way and launch a program or product with much less success then they would have received. There has been some fantastic information provided for people online to create a profit producing marketing plan, but can everyone afford to spend hundreds or thousands on this information before they launch?
Well before we jump into the fundamentals of creating a marketing plan we have to answer this question…
1. What is a marketing plan?
A marketing plan is simply a plan designed to generate your most wanted response for your business when you launch it and years after. In other words, if you want to make a lot of sales fast, then you’d create a plan that was geared to sell a lot of products in the shortest amount of time possible. If your plan was to get as many new members into your list or program in the shortest amount of time then that would be the focus of your plan. You really want to consider your end first. What you want to accomplish 3 months, 6 months, or even a year from now.
Your marketing plan is pretty much your business plan and how you’re going to accomplish what your business was designed to do. Now there are quite a few components to creating a good marketing plan like…
Your tactics… this would consist of things like your offer, mental triggers, sequences of events and so on. These are important and can make your plan successful, but it’s your strategy and how you use the tactics overall that will really pay off for you most. Your strategy would consist of things like list building, Relationship building, responding to your market, and positing your business. Now these are all very important and I would love to cover them all in great detail, but there’s not nearly enough battery juice in my key board to cover them all. :o)
So lets answer this question..
2. Can you show me an example of a good marketing plan?
I have two I’m going to share with you. First one I put together years ago and has generated hundreds of thousands of dollars in sales for one of my programs I’ve been running now for 6 years and the other plan is
one I just recently put together for a program that has just launched.
First off, the PageSwirl.com marketing plan. Here’s the situation… I took over ownership of PageSwirl in April of 2002 and wanted to come up with the best way to re-launch it and gain a lot of new members that would upgrade to Pro and be able to generate some residual income from.When I took over PageSwirl it had 90 Pro members and only a couple thousand free members. After this plan was implemented and followed through with, we generated over 200,000 new visitors, brought in 2,000 new free members, 329 new customers, and at the end of the year created a profit of close to $15,000. That was years ago and today PageSwirl has over 45,000 thousand members.
Now this was before I had really established myself online and didn’t have all the resources and contacts I have today. So I tapped into my current resources available to me at the time and asked some of my closest business associates if they would help me re-launch PageSwirl.com
So what was this plan and how did we make it all happen?
My plan consisted of an individual investment of $40 per JV partner. In this plan I set up a schedule for each of my partners to mail their lists at a different time of the month. I split up the JV partners into four separate mailings on different days of the week. Five people would mail their list on one day (then follow-up a week later) and then five days later another five would mail their list, and so on.
What I was trying to achieve was an Internet buzz that would last the entire month. You see, I know that a lot of subscribers are on the same lists and when my JV partners spread out their mailings it gave the impression to the subscribers that this was a program they wanted to be apart of. It worked great!
The other part of the marketing plan consisted of an Ezine co-op and traffic from banners and traffic exchanges. It went great! I kept them updated and informed through email What was in it for them? New members, commissions, and the feeling of being part of a special team.
I was excited and they saw that, and wanted to be a part of it. They caught the vision and were more than willing to help make history. And that we did, we ended up increasing the PageSwirl membership base by 2,000 and increased the Pro membershipsby 329 within 30 days!
Now that was a great plan…
And before I give you some tips on how to set one up yourself let me share with you a new plan that’s being implemented today. This plan was created to launch a new Traffic Exchange called.. and even get $ 2.5 just for join

Topics: Tutorial | No Comments »
10 Free EBOOKS to Make Money
By aurino | May 10, 2008
10 FREE EBOOKS! This guy is giving away 10 free ebooks with resale and give-away rights. That means you can sell them and keep 100% of the profit. Check it out now at:
Click This Link
t’s not every day that you find something like this! I’d suggest you go download them right now before he pulls the plug (or his host shuts him down for too much bandwidth!)…
Here the books :
Topics: Tutorial | No Comments »
Laporan Kompetensi Inti Kab Bogor
By aurino | April 29, 2008
Laporan Kompetensi Inti Industri Kecil dan Menengah untuk Kabupaten Bogor
Laporan ini adalah laporan proyek Kompetensi Inti Daerah Industri Kecil dan Menengah Kab Bogor tahun 2007 yang merupakan laporan untuk Proyek Kompetensi Inti Daerah Departemen Perindustrian Indonesia.
Topics: Tutorial | No Comments »
















