15 New Messages
Digest #2572
Messages
Tue Oct 1, 2013 7:43 pm (PDT) . Posted by:
"lapendosol opik" lapendosol
Makasih penjelasannya,
Dim NewFN nya ga masalah ya?
Biasanya booking Dim selalu diakhiri kartu As, As String, As Kriting, As Sekop dan As As yg lain hehehe.
Wassalam,
________________________________
From: dwi mulyaningsih <upiet29@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 2, 2013 8:44 AM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Dear opik,
saya panggil opik aja ya.
untuk script yang anda sebutkan :
Dlm NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice92;Inv" & Range("O10").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NomorInvoiceOtomatis
Itu untuk save as otomatis dengan nama sesuai nomor invoicenya
Wassalam
________________________________
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, October 1, 2013 7:15 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Woalah maap yak ga liat tabel Nomer Sales Order, jebulannya ada di sheet1.
Oke ditambahkan di step3
=VLOOKUP('Page 1'!D10,Sheet1!C4:E6,3)
Step5 nya jadi
=TEXT(LEFT(B2,3)+1,"000")&"/"&VLOOKUP(MONTH(NOW()),D2:E13,2)&"/"&VLOOKUP('Page 1'!D10,Sheet1!C4:E6,3)&"/"&RIGHT(YEAR(NOW()),2)
NB:
Tombol simpannya silahkan disesuaikan dengan kebutuhan biar berjalan sesuai keinginan terutama discript:
Dlm NewFN = "D:\DWi's FIle\DATA APP 2013\Invoice92;Inv" & Range("O10").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NomorInvoiceOtomatis
Saya belum paham yg begituan dan ga ngerti maksudnya buat ngapain.
________________________________
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, October 1, 2013 6:27 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Hai Dwi,
Data yg dikirim kurang lengkap, difile yg dikirim ga ada tabel Nomer Sales Order, jadi silahkan utak atik sendiri ya.
Berikut solusi dari saya semoga bisa bermanfaat:
Buatkan sheet bantuan tersendiri untuk pembuatan/pergantian Nomer Invoice
Buatkan tabel bantuan pembuatan kode Romawi
Step 1: pembuatan nomer invoice 3digit
misal nomer invoice lengkap ada di cell B2
=TEXT(LEFT(B2,3)+1,"000")
Step 2: pembuatan romawi bulan sekarang
Buatkan tabel bantuan romawi misal ada di cell D2:E13
=VLOOKUP(MONTH(NOW()),D2:E13,2)
Step 3: pembuatan nomer sales order
Karena ga ada contoh sales order silahkan otak atik sendiri yg ini
Step 4: pembuatan 2digit tahun yg sekarang
=RIGHT(YEAR(NOW()),2)
Step 5: gabungkan step-step diatas
=TEXT(LEFT(B2,3)+1,"000")&"/"&VLOOKUP(MONTH(NOW()),D2:E13,2)&"/039/"&RIGHT(YEAR(NOW()),2)
Step 6: pindahkan dari tabel bantuan pembuatan invoice tersebut ke module simpan
Semoga bermanfaat
Wassalam,
________________________________
From: dwi mulyaningsih <upiet29@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, October 1, 2013 4:49 PM
Subject: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Dear Pakar Excel,
Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor invoicenya adalah 002/VIII/041/13 dimana 002 adalah nomor urut invoice, VIII adalah bulan, 041 adalah nomor sales order, dan 13 adalah 2 digit tahun.
untuk customernya bagaimana agar otomatis bisa diisi, master data customer ada di sheet 1.
Salam
Dwi
Dim NewFN nya ga masalah ya?
Biasanya booking Dim selalu diakhiri kartu As, As String, As Kriting, As Sekop dan As As yg lain hehehe.
Wassalam,
____________
From: dwi mulyaningsih <upiet29@yahoo.
To: belajar-excel@
Sent: Wednesday, October 2, 2013 8:44 AM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Dear opik,
saya panggil opik aja ya.
untuk script yang anda sebutkan :
Dlm NewFN = "D:\
ActiveWorkbook.
ActiveWorkbook.
NomorInvoiceOtomati
Itu untuk save as otomatis dengan nama sesuai nomor invoicenya
Wassalam
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Tuesday, October 1, 2013 7:15 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Woalah maap yak ga liat tabel Nomer Sales Order, jebulannya ada di sheet1.
Oke ditambahkan di step3
=VLOOKUP('
Step5 nya jadi
=TEXT(LEFT(B2,
NB:
Tombol simpannya silahkan disesuaikan dengan kebutuhan biar berjalan sesuai keinginan terutama discript:
Dlm NewFN = "D:\
ActiveWorkbook.
ActiveWorkbook.
NomorInvoiceOtomati
Saya belum paham yg begituan dan ga ngerti maksudnya buat ngapain.
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Tuesday, October 1, 2013 6:27 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Hai Dwi,
Data yg dikirim kurang lengkap, difile yg dikirim ga ada tabel Nomer Sales Order, jadi silahkan utak atik sendiri ya.
Berikut solusi dari saya semoga bisa bermanfaat:
Buatkan sheet bantuan tersendiri untuk pembuatan/pergantia
Buatkan tabel bantuan pembuatan kode Romawi
Step 1: pembuatan nomer invoice 3digit
misal nomer invoice lengkap ada di cell B2
=TEXT(LEFT(B2,
Step 2: pembuatan romawi bulan sekarang
Buatkan tabel bantuan romawi misal ada di cell D2:E13
=VLOOKUP(MONTH(
Step 3: pembuatan nomer sales order
Karena ga ada contoh sales order silahkan otak atik sendiri yg ini
Step 4: pembuatan 2digit tahun yg sekarang
=RIGHT(YEAR(
Step 5: gabungkan step-step diatas
=TEXT(LEFT(B2,
Step 6: pindahkan dari tabel bantuan pembuatan invoice tersebut ke module simpan
Semoga bermanfaat
Wassalam,
____________
From: dwi mulyaningsih <upiet29@yahoo.
To: "belajar-excel@
Sent: Tuesday, October 1, 2013 4:49 PM
Subject: [belajar-excel] Membuat Nomor Urut Invoice [1 Attachment]
Dear Pakar Excel,
Saya mau membuat nomor invoice yang secara otomatis nomornya akan berubah pada saat tombol simpan diklik. Permasalahannya bagaimana membuat format nomor invoicenya agar otomatis akan bertambah satu digit. Format nomor invoicenya adalah 002/VIII/041/
untuk customernya bagaimana agar otomatis bisa diisi, master data customer ada di sheet 1.
Salam
Dwi
Tue Oct 1, 2013 8:28 pm (PDT) . Posted by:
"dwi mulyaningsih" upiet29
Mr. Kid,
Saya sudah ganti karakter komanya tapi kok rumusnya tidak
berfungsi ya?Jadi di cell O10 tidak keluar hasilnya tapi yang
keluar rumusnya
Wassalam
---------------------------- Mods -------------------------------
mungkin bisa dijelaskan regional setting di komputer
setempat pakai English atau Indonesian
Jika mungkin dilampirkan kembali file yang masih error
dengan diperlihatkan screen shot saat errornya
-----------------------------------------------------------------92;
---
From: Mr. Kid
To: BeExcel
Sent: Wednesday, October 2, 2013 9:26 AM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Hai Dwi,
Jika regional setting komputer setempat adalah Indonesian, ganti
semua karakter koma dalam formula menjadi karakter titik koma.
Wassalam,
Kid.
2013/10/2 dwi mulyaningsih <upiet29@yahoo.com
<mailto:upiet29@yahoo.com> >
Mr. Kid,
untuk formulanya kok tidak bisa ya?selalu keluar command "formula
you type contains an error" dan menunjuk ke nilai (T1,"000")
From: Mr. Kid <mr.nmkid@gmail.com <mailto:mr.nmkid@gmail.com> >
To: BeExcel <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >
Sent: Tuesday, October 1, 2013 8:51 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Hai Dwi,
coba diubah begini :
1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor
urutnya adalah nomor 2)
2. sheet Page 1 cell O10 diberi formula berbunyi :
=TEXT(T1,"000")"/"(MONTH(O12))"/"(VLOOKUP(D10,Sheet1!$C$4:$E$6,3,\
0),"")"/"(O12,"YY")
3. prosedur NomorInvoiceOtomatis baris pertama diganti menjadi :
Range("T1").Value = Range("T1").Value + 1
agar merujuk ke cell T1 di sheet aktif
4. prosedur SimpanInvoice baris pertama diubah menjadi :
Dim NewFN As String
NewFN = "D:\DWi's FIle\DATA APP
2013\Invoice92;Inv" Range("O10").Value ".xlsx"
Wassalam,
Kid.
2013/10/1 dwi mulyaningsih <upiet29@yahoo.com
<mailto:upiet29@yahoo.com> >
Dear Pakar Excel,
Saya mau membuat nomor invoice yang secara otomatis nomornya akan
berubah pada saat tombol simpan diklik. Permasalahannya bagaimana
membuat format nomor invoicenya agar otomatis akan bertambah satu
digit. Format nomor invoicenya adalah 002/VIII/041/13 dimana 002
adalah nomor urut invoice, VIII adalah bulan, 041 adalah nomor
sales order, dan 13 adalah 2 digit tahun. untuk
customernya bagaimana agar otomatis bisa diisi, master data
customer ada di sheet 1.
SalamDwi
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415 --
#ygrps-yiv-2145190856yiv4125393415ygrp-mkp { border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-mkp hr { border:1px solid
#d8d8d8;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-mkp
#ygrps-yiv-2145190856yiv4125393415hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;marg92;
in:10px 0;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-mkp
#ygrps-yiv-2145190856yiv4125393415ads { margin-bottom:10px;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-mkp
.ygrps-yiv-2145190856yiv4125393415ad { padding:0 0;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-mkp
.ygrps-yiv-2145190856yiv4125393415ad p { margin:0;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-mkp
.ygrps-yiv-2145190856yiv4125393415ad a {
color:#0000ff;text-decoration:none;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-sponsor
#ygrps-yiv-2145190856yiv4125393415ygrp-lc { font-family:Arial;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-sponsor
#ygrps-yiv-2145190856yiv4125393415ygrp-lc
#ygrps-yiv-2145190856yiv4125393415hd { margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415ygrp-sponsor
#ygrps-yiv-2145190856yiv4125393415ygrp-lc
.ygrps-yiv-2145190856yiv4125393415ad {
margin-bottom:10px;padding:0 0;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size92;
:10px;padding:10px;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415activity span {
font-weight:700;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415activity span:first-child {
text-transform:uppercase;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415activity span a {
color:#5085b6;text-decoration:none;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415activity span span {
color:#ff7900;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
#ygrps-yiv-2145190856yiv4125393415activity span
.ygrps-yiv-2145190856yiv4125393415underline {
text-decoration:underline;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
.ygrps-yiv-2145190856yiv4125393415attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding92;
:10px 0;width:400px;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
.ygrps-yiv-2145190856yiv4125393415attach div a {
text-decoration:none;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
.ygrps-yiv-2145190856yiv4125393415attach img {
border:none;padding-right:5px;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
.ygrps-yiv-2145190856yiv4125393415attach label {
display:block;margin-bottom:5px;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
.ygrps-yiv-2145190856yiv4125393415attach label a {
text-decoration:none;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415 blockquote { margin:0 0 0
4px;} #ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
.ygrps-yiv-2145190856yiv4125393415bold {
font-family:Arial;font-size:13px;font-weight:700;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
.ygrps-yiv-2145190856yiv4125393415bold a { text-decoration:none;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
dd.ygrps-yiv-2145190856yiv4125393415last p a {
font-family:Verdana;font-weight:700;} #ygrps-yiv-2145190856
#ygrps-yiv-2145190856yiv4125393415
dd.ygrps-yiv-2145190856yiv4125393415last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}
#ygrps-yiv-2145190856 #ygrps-yiv-2145190856yiv4125393415
dd.ygrps-yiv-2145190856yiv4125393415last p
span.ygrps-yiv-2145190856yiv4125393415yshortcuts {
margin-right:0;} #ygrps-yiv-21451908
Saya sudah ganti karakter komanya tapi kok rumusnya tidak
berfungsi ya?Jadi di cell O10 tidak keluar hasilnya tapi yang
keluar rumusnya
Wassalam
------------
mungkin bisa dijelaskan regional setting di komputer
setempat pakai English atau Indonesian
Jika mungkin dilampirkan kembali file yang masih error
dengan diperlihatkan screen shot saat errornya
------------
---
From: Mr. Kid
To: BeExcel
Sent: Wednesday, October 2, 2013 9:26 AM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Hai Dwi,
Jika regional setting komputer setempat adalah Indonesian, ganti
semua karakter koma dalam formula menjadi karakter titik koma.
Wassalam,
Kid.
2013/10/2 dwi mulyaningsih <upiet29@yahoo.
<mailto:upiet29@yahoo.
Mr. Kid,
untuk formulanya kok tidak bisa ya?selalu keluar command "formula
you type contains an error" dan menunjuk ke nilai (T1,"000"
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
<mailto:belajar-excel@
Sent: Tuesday, October 1, 2013 8:51 PM
Subject: Re: [belajar-excel] Membuat Nomor Urut Invoice
Hai Dwi,
coba diubah begini :
1. sheet Page 1 cell T1 diisi angka 2 (karena saat ini nomor
urutnya adalah nomor 2)
2. sheet Page 1 cell O10 diberi formula berbunyi :
=TEXT(T1,"
0),""
3. prosedur NomorInvoiceOtomati
Range("
agar merujuk ke cell T1 di sheet aktif
4. prosedur SimpanInvoice baris pertama diubah menjadi :
Dim NewFN As String
NewFN = "D:\
2013\Invoice
Wassalam,
Kid.
2013/10/1 dwi mulyaningsih <upiet29@yahoo.
<mailto:upiet29@yahoo.
Dear Pakar Excel,
Saya mau membuat nomor invoice yang secara otomatis nomornya akan
berubah pada saat tombol simpan diklik. Permasalahannya bagaimana
membuat format nomor invoicenya agar otomatis akan bertambah satu
digit. Format nomor invoicenya adalah 002/VIII/041/
adalah nomor urut invoice, VIII adalah bulan, 041 adalah nomor
sales order, dan 13 adalah 2 digit tahun. untuk
customernya bagaimana agar otomatis bisa diisi, master data
customer ada di sheet 1.
SalamDwi
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#d8d8d8;font-
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#d8d8d8;} #ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
color:#628c2a;
in:10px 0;} #ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
.ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
.ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
.ygrps-yiv-21451908
color:#0000ff;
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
0px;font-weight:
#ygrps-yiv-21451908
#ygrps-yiv-21451908
#ygrps-yiv-21451908
.ygrps-yiv-21451908
margin-bottom:
#ygrps-yiv-21451908
#ygrps-yiv-21451908
font-family:
#ygrps-yiv-21451908
#ygrps-yiv-21451908
background-color:
:10px;padding:
#ygrps-yiv-21451908
#ygrps-yiv-21451908
font-weight:
#ygrps-yiv-21451908
#ygrps-yiv-21451908
text-transform:
#ygrps-yiv-21451908
#ygrps-yiv-21451908
color:#5085b6;
#ygrps-yiv-21451908
#ygrps-yiv-21451908
color:#ff7900;
#ygrps-yiv-21451908
#ygrps-yiv-21451908
.ygrps-yiv-21451908
text-decoration:
#ygrps-yiv-21451908
.ygrps-yiv-21451908
clear:both;display:
:10px 0;width:400px;
#ygrps-yiv-21451908
.ygrps-yiv-21451908
text-decoration:
#ygrps-yiv-21451908
.ygrps-yiv-21451908
border:none;
#ygrps-yiv-21451908
.ygrps-yiv-21451908
display:block;
#ygrps-yiv-21451908
.ygrps-yiv-21451908
text-decoration:
#ygrps-yiv-21451908
4px;} #ygrps-yiv-21451908
.ygrps-yiv-21451908
font-family:
#ygrps-yiv-21451908
.ygrps-yiv-21451908
#ygrps-yiv-21451908
dd.ygrps-yiv-
font-family:
#ygrps-yiv-21451908
dd.ygrps-yiv-
margin-right:
#ygrps-yiv-21451908
dd.ygrps-yiv-
span.ygrps-yiv-
margin-right: