Delivery Order atau biasanya disebut Surat Jalan adalah surat yang berfungsi sebagai surat pengantar pada saat mengirim barang kepada pembeli dan sebagai salah satu bukti yang perlu dilampirkan pada saat penagihan . Dibawah ini adalah screenshoot aplikasi surat jalan Gratis yang bisa anda download secara gratis, aplikasi surat jalan ini bisa dijalankan pada Microsoft office 2007 keatas.

MEMBUAT SURAT JALAN
Langsung saja kita mulai membuat surat jalan sendiri, selain nanti kita bisa mencetak surat jalan yang kita buat kita juga bisa langsung enyimpan dokume surat jalan sehingga nanti terbentuk database surat jalan

Buka Microsoft Excel, sediakan dua sheet, sheet pertama beri nama Cetak, sheet kedua beri nama Database
Pada sheet Cetak anda harus mendisign sedimikian mungkin sehingga layak diterbitkan menjadi sebuah lembar surat jalan
Area surat jalan adalah sel A1 sampai F28
Pada sel A1 isikan : asis10.com atau nama usaha anda ( ini merupakan KOP perusahaan )
Pada sel A2 tuliskan alamat usaha anda atau isi saja : Kumpulrejo Parengan Tuban - Jawa Timur ( 081908127017 ) - iparengan@gmail.com
Marger sel A4 sampai F4 lalu isi dengan : Surat Jalan
Sel A5 : Nomor
Sel A6 : Kepada
Sel A7 : Alamat Penerima
Lakukan Marger pada F5 sampai F7 lalu isikan formula =Now() , ini berguna sebagai taggal surat jalan
Sel A10 : Nomor
Sel B10 : Deskripsi
Sel C10 : ""
Sel D10 : Satuan
Sel E10 : Jumlah
Sel F10 : Keterangan
Lihat hasilnya seperti gambar dibawah ini


Setelah selesai mendisign lembar surat jalan, saatnya membuat tombol eksekusi untuk mencetak surat jalan sekaligus menyimpaya mejadi database

Masih disheet Cetak buatlah dua tombol dengan menggunakan Commandbutton, sediakan dua tombol untuk keperluan cetak dan tombol batal
Kode macro untuk tombol batal

Sub Batal()
Set iPctk = Sheets("Cetak")

Set Status = iPctk.Range("A11", iPctk.Range("A11").End(xlDown))

For NO = 1 To WorksheetFunction.CountA(Status)
iPctk.Range("C5").Value = ""
iPctk.Range("F5").Value = Format(Date, "dd-mmm-yyyy")
iPctk.Range("C6").Value = ""
iPctk.Range("C7").Value = ""
iPctk.Cells(NO + 10, 1).Value = ""
iPctk.Cells(NO + 10, 2).Value = ""
iPctk.Cells(NO + 10, 4).Value = ""
iPctk.Cells(NO + 10, 5).Value = ""
iPctk.Cells(NO + 10, 6).Value = ""

Next NO
End Sub

Kode macro untuk tombol Cetak
Sub CetakDanSimpan()
Set ipaone = Sheets("Database")
Set iPctk = Sheets("Cetak")

If iPctk.Range("C5").Value = "" Then
Exit Sub
End If

Brsakhir = ipaone.Cells(ipaone.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Set Status = iPctk.Range("A11", iPctk.Range("A11").End(xlDown))

For NO = 1 To WorksheetFunction.CountA(Status)

ipaone.Cells(Brsakhir + NO, 1).Value = iPctk.Range("C5").Value
ipaone.Cells(Brsakhir + NO, 2).Value = iPctk.Range("F5").Value
ipaone.Cells(Brsakhir + NO, 3).Value = iPctk.Range("C6").Value
ipaone.Cells(Brsakhir + NO, 4).Value = iPctk.Range("C7").Value
ipaone.Cells(Brsakhir + NO, 5).Value = iPctk.Cells(NO + 10, 1).Value
ipaone.Cells(Brsakhir + NO, 6).Value = iPctk.Cells(NO + 10, 2).Value
ipaone.Cells(Brsakhir + NO, 7).Value = iPctk.Cells(NO + 10, 4).Value
ipaone.Cells(Brsakhir + NO, 8).Value = iPctk.Cells(NO + 10, 5).Value
ipaone.Cells(Brsakhir + NO, 9).Value = iPctk.Cells(NO + 10, 6).Value
ipaone.Cells(Brsakhir + NO, 10).Value = "Wahyu Wijanarko"

Next NO

With iPctk.PageSetup
.Orientation = xlPortrait
.LeftMargin = Application.CentimetersToPoints(2)
.RightMargin = Application.CentimetersToPoints(2)
.TopMargin = Application.CentimetersToPoints(2)
.BottomMargin = Application.CentimetersToPoints(2)
.PrintArea = "$A1:$F28"
.Zoom = 100
.CenterHorizontally = True
.PaperSize = xlPaperA4
End With
Worksheets("Cetak").PrintPreview
Call Batal
End Sub

Cermati lagi baik baik design form cetakya sudah sesuaikah penempatan kolom kolomya

Pengaturan pada sheet Database bisa ada lakukan setelah berhasil membuat tombol cetak dalam sheet cetak

Download - Surat Jalan

Demikianlah cara membuat surat jalan sediri degann excel vba, jika ada pertanyaan silahkan isikan dikolom komentar
2 comments