Membuat Penomoran Otomatis dengan Macro Microsoft Excell

Salam..,

Pada Tutorial kali ini tentang pembuatan Penomoran secara otomatis dengan menggunakan Macro pada Microsoft Excell, Penomoran Otomatis ini berdasarkan Kriteria Tanggal, Bulan dan Tahun.
Rancangan yang saya buat adalah proses penerimaan Produk, Saya membuat untuk Nomor Faktur penerimaan secara Automatik.



Berikut ini adalah gambar rancangan Worksheets nya :

 

Tombol / Perintah "Save" digunakan untuk menyimpan Data dari Cell B3:H3 ke Cell B8:H..

Berikut ini Koding Module yang saya gunakan :

Sub Add_Stock()
    On Error GoTo Excell_Faktur:
    'destination range
    Dim RsAddProduct As Range
    Dim wsAddProduct As Worksheet
    'destination variable
    'Set RsAddStock = Worksheets("Sheet1").range("I8")
    Set RsAddProduct = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
    Set wsAddProduct = Worksheets("Sheet1")
    Application.ScreenUpdating = False
    If wsAddProduct.Range("B3") = "" Then
    MsgBox "Please Klik Refres Button"
    Exit Sub
    ElseIf wsAddProduct.Range("C3") = "" Then
    MsgBox "Range Date is Blank"
    Exit Sub
    ElseIf wsAddProduct.Range("D3") = "" Then
    MsgBox "Range Description is Blank"
    Exit Sub
    ElseIf wsAddProduct.Range("E3") = "" Then
    MsgBox "Range Code is Blank"
    Exit Sub
    ElseIf wsAddProduct.Range("F3") = "" Then
    MsgBox "Range Supplier is Blank"
    Exit Sub
    ElseIf wsAddProduct.Range("G3") = "" Then
    MsgBox "Range Qty is Blank"
    Exit Sub
    ElseIf wsAddProduct.Range("H3") = "" Then
    MsgBox "Range Price Unit is Blank"
    Exit Sub
    Else
    'give the user a chance to exit here
    Select Case MsgBox _
    ("You are about to add Data." _
    & vbCrLf & "Check everything before you proceed", _
    vbYesNo Or vbExclamation, "Are you sure?")
    Case vbYes
    Case vbNo
    Exit Sub
    End Select
   
    'copy and paste data without selecting,first sheet,sourse variable
    Set AddProduct = Worksheets("Sheet1").Range("B3:H3")
    AddProduct.Copy
    RsAddProduct.PasteSpecial xlPasteValues
    'empty clipboard
    Application.CutCopyMode = False
    'confirmation message
    MsgBox "Your Data Has Been Added."

    'Clear Cell B3:H3 and make Automatically Number
    Call ref_clear

    wsAddProduct.Select
    Application.ScreenUpdating = True
    End If
    Exit Sub
    Excell_Faktur:
    MsgBox " We have a problem Module"
End Sub

Untuk pembuatan Penomoran otomatis saya buat pada Cell B3 dengan Koding Module yang saya gunakan :

Sub ref_clear()
    On Error Resume Next
    Dim clear As Range
    'range c3:h3 is empty
    Set clear = Worksheets("Sheet1").Range("C3:H3")
    clear.Value = ""
    'cell b3 automatically number
    If Worksheets("Sheet1").Range("B8").Value = "" Then
    Worksheets("Sheet1").Range("B3").Value = "FAK/" & Format(Date, "DDMMYYYY") & "/001"
    Else
    'value cell B3= end range B plus 1
    Worksheets("Sheet1").Range("B3").Value = "FAK/" & Format(Date, "DDMMYYYY") & "/00" & Right(Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Value, 2) + 1
    End If
End Sub

Jika Cell B8 kosong maka Cell B3 = FAK/09022017/001
Bila Cell B8 atau seterusnya sudah terisi maka nilai nya akan ditambahkan 1.

Demikian Tutorial singkat saya untuk pembuatan penomoran otomatis dengan Macro pada Microsoft Excell. Silahkan Sobat kembang kan lagi.

Salam..,

Cara Memindahkan data dari ListBox ke ListBox yang Lain

Salam sobat semua...,

Pada tutorial kali ini yang saya berikan bagaimana cara memindahkan data dari Listbox ke dalam Listbox yang lain ( Listbox Selection ) dengan pemograman VBA Ms.Excell.

Rancanglah sebuah Form dengan menambahkan Toolbox, 2 buah Commanbutton dan 2 buah Listbox, seperti tampilan gambar berikut ini :

- Double klik UserForm untuk masuk ke area coding, lalu pastekan Koding berikut :

Private Sub UserForm_Initialize()

With ListBox1

'data yang akan ada dalam Listbox1 pada saat Form dijalankan

    .AddItem "Sales"

    .AddItem "Produksi"

    .AddItem "Gudang"

    .AddItem "Personalia"

End With

End Sub

- Double klik Commandbutton1 untuk masuk ke area coding, lalu pastekan Koding berikut :

Private Sub CommandButton1_Click()

'perintah untuk memindahkan data dari ListBox1 kedalam ListBox2

For i = 0 To ListBox1.ListCount - 1

    If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)

Next i

End Sub

- Double klik Commandbutton2 untuk masuk ke area coding, lalu pastekan Koding berikut :

Private Sub CommandButton2_Click()
'perintah untuk menghapus data dari dalam ListBox2

Dim counter As Integer
counter = 0

For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i - counter) Then
        ListBox2.RemoveItem (i - counter)
        counter = counter + 1
    End If
Next i

End Sub

Jalankan Program nya, Klik salah satu data dalam ListBox1, lalu tekan Commanbutton1 ( perintah Pindah ), maka data akan berpindah kedalam ListBox2, seperti tampilan berikut,

Untuk menghapus data dari dalam ListBox2, Select salah satu data lalu tekan / klik perintah Hapus ( Commandbutton2 ).

Sekian dari saya untuk tutorial ListBox Selection cara memindahkan data dari LisBox ke dalam ListBox yang lain, silahkan Sobat kembang lagi.

Salam,

Multi Seleksi Data Memindahkan Data dari ListBox ke dalam ListBox yang Lain

Bagaimana Cara nya untuk memindahkan Data yang diseleksi dari Listbox ke dalam Listbox yang lain pada pemograman VBA Excel ? Mungkin selama ini Sobat banyak yang Bingung, Hal ini tidak terlalu sulit, Karena pada kesempatn ini saya akan memberikan tutorial nya. Data dari Listbox dipindahkan ke dalam Listbox yang lain sesuai dengan yang kita pilih.

Berikut ini Langkah - Langkah nya :

• Rancang sebuah Tabel Data pada Ms.Excell, pada kali yang saya buat Tabel Data Karyawan, seperti Tampilan Beriku ini :

• Setelah selesai proses pembuatan Tabel Data nya,  Buatlah sebuah Form, Klik Tab Developer pada Ms.Excell  >> Klik Icon Visual Basic  >> Klik Kanan VBA Project >> Insert Form. lalu tambahkan beberapa toolBox pada Form :

        Sehingga Tampilan Form nya seperti di bawah ini :

•  Double Klik CmdCari, Lalu Copy Paste Koding berikut ini :

'Koding ini dibuat untuk menampilkan data dari Tabel dengan kata Kunci pencarian "Nama Jabatan "

Private Sub cmdcari_Click()

Dim rngNames As Range

    Dim arrNames

    Dim arrResults

    Dim lngRow As Long

lst1.Clear

With lst1

.AddItem

.List(.ListCount - 1, 0) = "NIK"

.List(.ListCount - 1, 1) = "NAMA KARYAWAN"

.List(.ListCount - 1, 2) = "JABATAN"

.List(.ListCount - 1, 3) = "DEPARTEMENT"

.ColumnWidths = 80 & " , " & 120 & "," & 100 & "," & 80

End With

    If txtjabatan.Value = "" Then

        MsgBox "Nama Jabatan Belum diisi..."

Me.txtjabatan.SetFocus

       

        Exit Sub

    End If

     

    With Worksheets("Sheet1")

        Set rngNames = .Range("C3", .Range("C" & Rows.Count).End(xlUp))

    End With

    With rngNames

        arrNames = Evaluate(.Address & "&CHAR(45)&ROW(" & .Address & ")")

    End With

    arrNames = Application.Transpose(arrNames)

    arrResults = Filter(arrNames, txtjabatan.Value)

        If UBound(arrResults) = -1 Then

        lst1.AddItem "Data Tidak Ada"

    Else

        For i = LBound(arrResults) To UBound(arrResults)

            lngRow = Mid(arrResults(i), InStrRev(arrResults(i), "-") + 1)

            With lst1

                .AddItem

                .List(.ListCount - 1, 0) = Worksheets("Sheet1").Range("A" & lngRow)

                .List(.ListCount - 1, 1) = Worksheets("Sheet1").Range("B" & lngRow)

                .List(.ListCount - 1, 2) = Worksheets("Sheet1").Range("C" & lngRow)

                .List(.ListCount - 1, 3) = Worksheets("Sheet1").Range("D" & lngRow)

                

            End With

        Next i

    End If

End Sub

• Double Klik Cmdsemua1, Lalu Copy Paste Koding berikut ini :

Private Sub cmdsemua1_Click()

'Deklarasi Variabel

Dim iCnt As Integer

'Data dari ListBox1 pindah ke ListBox2

    For iCnt = 1 To Me.lst1.ListCount - 1

    With lst2

    .AddItem

    .List(.ListCount - 1, 0) = lst1.List(iCnt, 0)

    .List(.ListCount - 1, 1) = lst1.List(iCnt, 1)

    .List(.ListCount - 1, 2) = lst1.List(iCnt, 2)

    .List(.ListCount - 1, 3) = lst1.List(iCnt, 3)

    End With

    Next iCnt

Me.lst1.Clear

End Sub

Double Klik Cmdsatu1, Lalu Copy Paste Koding berikut ini :

Private Sub cmdsatu1_Click()

Dim iCnt As Integer

For iCnt = 1 To Me.lst2.ListCount - 1

If Me.lst2.Selected(iCnt) = True Then

    With lst1

    .AddItem

    .List(.ListCount - 1, 0) = lst2.List(iCnt, 0)

    .List(.ListCount - 1, 1) = lst2.List(iCnt, 1)

    .List(.ListCount - 1, 2) = lst2.List(iCnt, 2)

    .List(.ListCount - 1, 3) = lst2.List(iCnt, 3)

    End With

End If

Next

For iCnt = Me.lst2.ListCount - 1 To 0 Step -1

If Me.lst2.Selected(iCnt) = True Then

Me.lst1.RemoveItem iCnt

End If

Next

End Sub

• Double Klik Cmdsatu2, Lalu Copy Paste Koding berikut ini :

Private Sub cmdsatu2_Click()

Dim iCnt As Integer

For iCnt = 1 To Me.lst1.ListCount - 1

If Me.lst1.Selected(iCnt) = True Then

    With lst2

    .AddItem

    .List(.ListCount - 1, 0) = lst1.List(iCnt, 0)

    .List(.ListCount - 1, 1) = lst1.List(iCnt, 1)

    .List(.ListCount - 1, 2) = lst1.List(iCnt, 2)

    .List(.ListCount - 1, 3) = lst1.List(iCnt, 3)

    End With

End If

Next

For iCnt = Me.lst1.ListCount - 1 To 0 Step -1

If Me.lst1.Selected(iCnt) = True Then

Me.lst1.RemoveItem iCnt

End If

Next

End Sub

• Double Klik Cmdsatu2, Lalu Copy Paste Koding berikut ini :

Private Sub cmdsemua2_Click()

Dim iCnt As Integer
    For iCnt = 1 To Me.lst2.ListCount - 1
    With lst1
    .AddItem
    .List(.ListCount - 1, 0) = lst2.List(iCnt, 0)
    .List(.ListCount - 1, 1) = lst2.List(iCnt, 1)
    .List(.ListCount - 1, 2) = lst2.List(iCnt, 2)
    .List(.ListCount - 1, 3) = lst2.List(iCnt, 3)
    End With
    Next iCnt
Me.lst2.Clear
End Sub

• Jalankan Program, lalu masukkan data pencarian pada txtjabatan dengan kata kunci " Nama Jabatan " misalnya : "SUPERVISOR " lalu klik perintah Cari.

• Data akan pada Tabel akan tampil pada Listbox1, selanjutnya pilih data yang akan dipindahkan ke dalam ListBox2, dengan mengklik perintah - perintah sesuai yang kita inginkan, maka data dalam Listbox1 akan pindah kedalam ListBox2 dan sebaliknya.

Demikian Tutorial cara menyeleksi data Dalam ListBox dan memindahkan nya kedalam ListBox yang lain sesuai data yang dipilih, tidak terlalu sulit bukan.

Selamat Mencoba...!, dan Silahkan Sobat kembangkan kembali.

                                                                                                             Salam..,

Peluang Bisnis Travel untuk Jangka Panjang

Bisnis travel, pasti pernah mendengar peluang bisnis yang satu ini, mungkin bahkan kawan-kawan ada yang pernah menggeluti atau sedang menjalankan bisnis travel. Ya, bisnis travel ini mamang sangat potensial terutama untuk jangka waktu lama.

Sudah banyak orang yang sukses menjalankan bisnis travel hal itu karena mereka tau cara menjalankan bisnisnya dengan tepat. Bisnis travel akan terus dibutuhkan oleh konsumen selama sarana transportasi ada, apalagi para pembisnis online yang mencoba memainkan bisnis travel, mereka dengan mudahnya menjaring konsumen dengan melalui website yang dibuatnya.

Dengan menggunakan website mereka bisa menjual tiket secara online dan mudah. Bayangkan jika sehari ada 1 juta orang yang melakukan perjalanan dengan pesawat dan ada 10 orang saja memesan tiket online melalui anda maka keuntungannya sudah cukup lumayan.

Anggap saja 1 orang kita bisa mendapatkan keuntungan 50 ribu maka jika 10 orang sudah 500 ribu. Sebuah keuntungan yang cukup lumayan tentunya hanya dengan bermodalkan website portal dan uang bisa mengalir dengan cepat.

Bisnis online travel memiliki potensi jangka panjang yang sangat luar biasa dan anda bisa mendapatkan keuntungan yang besar pula. Ini adalah peluang bagi anda yang masih bingung dengan memilih bisnis apa yang akan dipilih saat terjun ke dunia online. Nah, bisnis travel ini adalah solusi yang paling tepat untuk dipilih saat ini. 

Banyak orang yang berlum serius menggarap pasar travel, maka dari itu potensi keuntungannya juga sangat besar. Anda bisa mendapatkan banyak sekali keuntungan dari bisnis travel dan pastinya ini lebih mudah untuk dijalani dibandingkan bisnis lainnya.

Jika dibandingkan toko online mungkin bisnis travel ini masih tergolong lebih mudah, pasalnya kebanyakan bisnis travel online terutama sistemnya sudah tertata dan kita tianggal menjalankannya saja. 

Saat sistem yang sudah matang kita jalankan tentu saja banyak kemudahan-kemudahan yang bisa diperoleh. Menjalankan bisnis travel memang membutuhkan keberanian karena di awal anda juga harus membangun portal yang matang agar pengunjung bisa percaya dengan website yang anda buat, saat website anda dipercaya oleh orang maka itu adalah modal yang paling penting sudah dimiliki. 

Jadi, tunggu apalagi?

Hasilkan Jutaan Rupiah dari Memanfaatkan Limbah Kain

Valkrisda Caresti adalah satu dari sekian banyak contoh pebisnis muda wanita yang sukses. Bukan saja sukses dengan meraup keuntungan finansial yang banyak, namun ia juga berhasil menyulap limbah yang awalnya tidak bermanfaat menjadi barang dengan nilai jual tinggi. Dengan daya kreasi darah mudanya, dia mampu membuat #kerajinan tangan yang sangat indah.

Bisnis yang ia tekuni ini berbasis pada pemanfaatan limbah baik kain maupun kertas yang sudah tidak terpakai lagi yang kemudian dia kreasikan menjadi produk scrapbook atau semacam produk hiasan seperti album hiasan dan lainnya.

Nah, bagaimana awal mula bisnis gadis yang lahir di Surabaya, 14 September 1996 ini bisa menghasilkan jutaan rupiah, simak kisahnya di bawah ini.

Berawal Dari Sebuah Kesenangan

Valkrisda Caresti Botha yang saat itu sekitar tahun 2012 masih duduk di bangku SMA, sudah mulai merintis bisnis scrapbook ini. Tentu ia memulainya dengan skala yang masih kecil, karena memang ia bisa mengerjakannya untuk mengisi waktu setelah aktifitas sekolah selesai.

Awal mula ia membuat kerajinan dari bahan kain atau kertas ini adalah bermula ketika ia mempunyai hobi memberikan kado sesuatu yang unik kepada temannya, entah ketika ulang tahun maupun hari spesial yang lain. Ia memiliki keyakinan bahwa pemberian dari 

buatan tangan sendiri tentu akan lebih memiliki kesan spesial bagi yang diberinya.

“Menurut saya, itu lebih berharga dan bernilai karena itu adalah jerih payah tangan saya sendiri. Setelah saya membuatkan kado handmade untuk sahabat, banyak teman yang lihat dan suka. Terus, mereka mau pesan,” kenang Valkrisda.

Nah, dari sini kemudian banyak dari teman-temannya yang menyukai perhiasan yang dibuat oleh nya. Seiring dengan berjalannya waktu, ternyata semakin banyak yang menyukai produk buatannya tersebut. Meskipun banyak permintaan, namun Valkrisda Caresti pada mulanya tidak mau menjadikan kesukaannya ini sebagai bisnis.

Karena ia beranggapan bahwa kerajianan yang ia buat semata-mata hanyalah hobi. Ia takut kalau nantinya jika hobinya tersebut di bisnis kan menjadikannya terlalu tergiur dengan uang.

Mulai Fokus Berbisnis Handicraft

Yang pada awalnya Valkrisda Caresti menolak menjadikan hobinya sebagai sebuah bisnis, lama kelamaan ia menyadari bahwa ketika hobinya dijadikan sebuah bisnis maka ia akan memiliki kesempatan lebih luas untuk membantu orang lain melalui karyanya. 

Dengan karya yang ia buat, tentu secara tidak langsung ia bisa membuat orang lain senang. Dari kesadaran ini, kemudian ia memutuskan untuk mulai menekuni scrapbook sebagai sebuah bisnis.

Setelah memutuskan untuk fokus pada bisnis handicraft, kemudian ia membawa brand yang bernama Syawnscrap. Nama Syawnscrap menurutnya mempunyai sebuah filosofi tersendiri. Menurut Valkrisda, Syawnscrap itu dari kata Syawnlight, dimana syawn memiliki arti suara perempuan terbang, dan light adalah sinar.

Dari beberapa arti kata tersebut, jika dirangkaikan maka Syawnlight memiliki arti perempuan yang bersinar terbang untuk mencapai cita-citanya. Nah, karena bisnis Valkrisda ini mempunyai beberapa jenis, salah satunya di bidang scrap, jadi suku kata belakangnya diganti Syawnscrap.

Pengalaman Mengesankan Dalam Bisnis Scrap

Perbedaan bisnis scrap yang ditekuni Valkrisda Caresti dengan bisnis sejenis lainnya adalah scrap buatan Valkrisda ini bisa menyesuaikan dengan tema dari konsumen.

Jadi bagaimana konsep yang diinginkan oleh konsumen bisa diterjemahkan ke dalam sebuah perhiasan sesuai dengan keinginan mereka. Selain itu, Valkrisda juga sering membantu merancang konsep ketika klien nya belum menemukan tema yang jelas.

Banyak pengalaman berkesan yang dialami Valkrisda Caresti selama menjalani bisnis scrap ini, misalnya seperti ada beberapa pelanggan yang membayar pesanannya dengan menyicil sampai dua bulan. 

Bahkan ada juga seorang dari kliennya yang memesan scrapbook dengan harga yang sangat mahal untuk memikat seorang cewek, namun sayang ceweknya malah jadian sama cowok lain. Hal-hal lucu semacam ini sering ditemui Valkrisda yang membuatnya semakin tertarik untuk menekuni bisnis handicraft ini.

Menurut Valkrisda Caresti, diantara banyak pengalaman yang mengesankan tersebut, yang paling mengesankan adalah hasil yang ia dapat.

"Bukan pada uang nya, melainkan ia merasa bangga karena mampu membeli kebutuhan nya sendiri seperti buku dan seragam sekolah dan kebutuhan yang lain, tanpa memberatkan orang tua."

Rumput Liar Menjadi Uang Miliaran

Bagi sebagian orang mungkin rumput liar tak berarti apa-apa. Namun tidak bagi Mawar Yanti (32), rumput liar yang ada di sekitaran rumahnya di hutan Lombok dan Sumbawa adalah hal yang berharga. Bagaimana tidak, dengan rumput liar itu, ia dan warga sekitarnya telah menghasilkan pendapatan yang mensejahterakan semuanya.

Bagaimana caranya? Mawar Yanti bersama warga lain menjadikan rumput liar yang disebut juga dengan ketak ini menjadi aneka kerajinan nampan, tatakan piring, keranjang, tempat perhiasan, hingga tas-tas yang memenuhi selera pasar mode perempuan masa kini.

Hasilnya, kerajinan yang tahan terhadap rayap dan memiliki kekuatan layaknya rotan ini menjadi kerajinan yang unik dan telah mendapat anugerah UNESCO Award dari organisasi di bawah Perserikatan Bangsa-Bangsa, saat Trade Expo di Jakarta tahun 2010.

Lalu seperti apakah perjalanan Mawar Art Shop hingga sukses menjadikan rumpt liar menjadi uang miliar ini? Berikut ulasannya.

Ide Awal Perintisan Usaha

Pada awalnya, Mawar Yanti hanya sekedar membantu usaha kakaknya membuat kerajinan dari rumput ketak ini. Kemudian pada tahun 1999 Mawar membuka Mawar Art Shop sebagai usaha perintisan bersama suaminya Suhartono.

Keputusannya untuk membuka Mawar Art Shop dengan ini berasal dari ide untuk meningkatkan dan mengembangkan usaha kerajinan rumput menjadi usaha yang lebih professional.

Maklum saat sebelum itu pengrajin rumput ketak ditempatnya hanya menjadikan usaha kerajinan ini sebagai sambilan atau sambil lalu saja. Mereka memmproduksi dan kemudian hanya menunggu pembeli datang. Apalagi sejak tragedi Bom Bali tahun 2002, banyak toko kerajinan yang tutup dan orang-orang yang tidak berproduksi lagi karena pembeli yang sepi.

Diakui oleh Mawar bahwa kebiasaan membuat kerajinan rumput ketak ini sudah ada sejak alam di daerahnya di  di Dusun Nyurbaya Gawah, Desa Batu Mekar, Kecamatan Lingsar, Kabupaten Lombok Barat, Nusa Tenggara Barat.

Menjemput Pembeli dan Ikut Pameran

Mawar Art Shop sejak pertama kali berdiri memang selalu melakukan strategi menjemput pembeli dan tidak hanya sekedar menunggu. Karena dari strategi itulah, toko kerajinan milik Mawar itu selalu mampu bertahan meski beberapa waktu dihadapkan pada kondisi sulit seperti setelah kejadian Bom Bali tahun 2002.

Strategi lain yang dilakukan Mawar adalah bersama dinas terkait atau bank pemberi kredit rajin mengikuti pameran ke berbagai daerah. Dengan ikut bersama dinas terkait, ia tak harus mengeluarkan uang karena stan yang disinggahinya didapatnya dengan cuma-cuma. Melalui pameran inilah kemudian Mawar bisa mendapatkan penghasilan dari penjualan eceran dan juga pembeli dari partai besar, termasuk eksportir.

Menggiatkan Produkstivitas Warga Setempat

Kini sebanyak 30 perempuan bekerja di Mawar Art Shop. Sebagian besar dari mereka adalah istri-istri yang ditinggal suaminya bekerja sebagai tenaga kerja Indonesia (TKI) di luar negeri.

Untuk lebih produktif, Mawar juga mengizinkan para pekerja perempuan lain untuk mengerjakan kerajinan rumput ketak itu di rumah mereka masing-masing dengan upah borongan.

Upah untuk para pengrajin sendiri bervariasi, bergantung pada tingkat kerumitan dan ukurannya. Seperti pengerjaan tas tangan berbentuk keranjang kecil selama 3-4 hari diberikan upah Rp 100.000-Rp 150.000 per buah. Kebanyakan mengerjakannya sebagai sampingan setelah selesai memasak dan bebersih rumah atau bekerja di sawah.

Menurut Mawar, wanita-wanita disini pendapatan dari suaminya hanya dikirim enam bulan sekali. Dengan adanya usaha sampingan membuat kerajinan rumput ketak ini, maka mereka bisa mendapat tambahan penghasilan.

Ekspor Ke Mancanegara

Setiap bulannya, produksi tas rumput Mawar Art Shop ini bisa mencapai 1.500 buah per bulan dengan harga jual antara Rp 150.000 – Rp 1,5 juta per buah. Semakin rapat anyaman rumput yang dibuat, semakin mahal pula harga kreasi rumput ketaknya. Hal ini disebabkan karena proses pengerjaannya yang semakin lama dan sulit.

Sejak dua tahun yang lalu, per tiga bulan sekali sebanyak 3.000 buah tas produksi Mawar Art Shop sudah mulai diekspor ke Jepang per tiga bulan. Beberapa pemilik toko kerajinan dari Amerika Serikat, Kanada, dan Australia pun ikut rutin datang dan membeli tas dari Mawar Art Shop.

Mawar juga pernah mendapat pendampingan peningkatan kualitas desain dari Japan External Trade Organization (Jetro) dan dipertemukan dengan para pembeli. Beberapa kali produk Mawar Art Shop ini juga diikutkan pada pameran di Tokyo Gift Show dan Seoul Gift Show.

Selain menerima UNESCO Award, produk Mawar Art Shop juga pernah mendapat Inacraft Award. Luar Biasa!

Bisnis Kerajinan Tangan dengan Konsep Sendiri

Menurut Ajeng Galih Sitoresmi, pemilik workshop Poyeng Knit Shop (poyenghobby.com), jenis bisnis kerajinan tangan dibagi menjadi dua yakni craft secara massal dan craft indie.

Craft massal adalah jenis bisnis kerajinan tangan yang biasanya melakukan proses pembuatan produk secara massal. Contoh craft yang melakukan produksi massal misalnya bisnis kerajinan gerabah dan kerajinan serat pisang abaca.

Biasanya craft massal sudah memiliki pakem-pakem tersendiri tentang model kerajinan yang akan dibuat. Upgrade design produk biasanya dilakukan dalam kurun waktu tertentu dengan mengikuti tren pasar. 

Pebisnis craft massal biasanya memiliki modal yang besar, didukung dengan beragam mesin canggih dan bertujuan untuk senantiasa meningkatkan nilai jual dan jumlah profit yang didapat.

Sedangkan bisnis craft secara indie biasanya menyeimbangkan aspek idealisme dan kebutuhan untuk mencari keuntungan. Pebisnis craft indie biasanya menyukai pembuatan kerajinan tangan dengan konsep personal, disesuaikan dengan gaya si crafter sekaligus request dari customer.

Pemilihan bahan baku biasanya juga dilakukan sesuka hati sambil tetap menjaga kualitas. Selain itu, bisnis craft secara indie juga memiliki trik tersendiri dalam hal pemasaran produk.

Time Management Bagi si Pebisnis Craft Indie

Biasanya pebisnis dengan konsep craft indie memiliki dua cara dalam menjual produknya, yakni membuat produk sesuai pesanan pelanggan dan membuat produk kerajinan sesuai selera sendiri untuk kemudian di launching atau dipasarkan pada waktu dan event tertentu.

Kesulitan yang mungkin timbul adalah susahnya membagi waktu untuk memproduksi pesanan pelanggan dengan waktu untuk memproduksi craft sesuai dengan keinginan hati.

Jadi, apabila ingin memproduksi produk sendiri secara rutin, maka pesanan produk dari pelanggan harus lebih dibatasi jumlahnya agar porsi waktu untuk membuat produk rutin dapat lebih terpenuhi. Atau bisa juga diatasi dengan mempekerjakan karyawan atau partner bisnis yang punya kesamaan visi agar seluruh pembuatan produk dapat dikerjakan bersama-sama.

Strategi Pemasaran Produk Kerajinan Tangan

Media sosial dapat menjadi salah satu media efektif yang dapat dimanfaatkan untuk mempromosikan produk kerajinan tangan. Tak perlu memakai semua media sosial sekaligus, cukup gunakan beberapa #media sosial yang dapat dipantau dan di update secara rutin. Biasanya Instagram dan Facebook page merupakan sarana promosi yang tepat.

Jangan lupa memfoto produk kerajinan tangan dengan pencahayaan dan angle yang baik agar menarik calon customer untuk membeli. Selalu sertakan beberapa jenis contact person seperti nomor handphone, alamat email atau alamat website.

Lebih baik lagi bila contact tersebut dipisahkan dari contact pribadi agar memberi kesan profesional. Dengan presentasi dan konsistensi yang baik, media sosial dapat menjadi sarana untuk mendatangkan customer dalam jangkauan yang lebih luas.

Berikutnya salah satu keunikan dari para pelaku bisnis Craft Indie adalah pada umumnya mereka bergerak dari blog personal mereka. Bahkan tak jarang dari mereka yang kini sudah berhasil meraup sukses besar setelah dulunya memulai pembuatan Craft Indie skala kecil. Salah satunya adalah pendiri Poyeng Knit Shop yang sudah kita sebutkan diatas.

Bermula dari blog sederhana serta minat yang besar dalam membuat kerjinan tangan, pelan namun pasti usahanya berkembang hingga bisa menyentuh skala besar seperti saat ini. Bagi anda yang punya passion dalam pembuatan kerajinan tangan bisa mencoba jalur Craft Indie tersebut.