Membuat Laporan Sesuai Template yang diinginkan Klien

 

Saya membuat sedikit kode untuk membuat klien terbantu saat membuat laporan with just one click :))

Buka Aplikasinya di sini  Download Free

Mengumpulkan data customer ke dalam database dari Invoice yang tidak terstruktur

 

Saya membuat aplikasi macro untuk mendapatkan database customer dari invoice yang tidak terstrukstur dg baik.

Form Aplikasi Suspension

 Aplikasi cost suspension

Suspension cost

Form aplikasi Cost Center Vba

Saya membuat form cost center dengan menggunakan Excel dan Vba sbg berikut

Cost center

Barcode system for Asset STO

Saya membuat aplikasi sto scan asset untu stock opname dengan menggunakan C#, asp net, sql, dan html, SAP crystal report.

Payroll system dengan Ms. Access dan Visual Basic

download coding Payroll software di sini free.

Cara pakai, pilih tempat penyimpanan dalam directori D
Password owner: 1234
Password bagian yang lain, bisa dilihat dalam file access:gaji ->pengguna

Crystal Report SAP File

Fyr..
This file required net framework 3.5 up to instal.

Smg bermanfaat. Download di sini

Fill in vba

Fill in function u/ mengisi baris yang kosong.

Sub FillIn()
On Error Resume Next
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A1").CurrentRegion.Value = Range("A1").CurrentRegion.Value
End Sub

Copy file txt to Workbook Excel

Berikut ini adalah cara untuk mengkopi file txt ke dalam workbook yang aktif:
File txt contoh berada di dalam direktori : "D:\Bisa\YC\YC PEMI052015\\MAY-15.txt"
Copy paste kode ini di modul excel.

Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
Dim sFName As String
' Turn off screen updating.
Application.ScreenUpdating = False
Set DestBook = ActiveWorkbook
Set DestCell = Range("A1")
Workbooks.OpenText FileName:="D:\Bisa\YC\YC PEMI052015\\MAY-15.txt"
Set SourceBook = ActiveWorkbook
'Copy the contents of the entire sheet containing the text file.
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues
Columns("A:Z").EntireColumn.AutoFit
'Close the book containing the text file.
SourceBook.Close False
End Sub
      

Active cell Selection

'Menyorot baris dan kolom pada cell aktif dengan warna
Sub activecell_seleksi
 Dim RngRow          As Range
    Dim RngCol          As Range
    Dim RngFinal        As Range
    Dim Row             As Long
    Dim Col             As Long
   
    Cells.Interior.ColorIndex = xlNone
    'Range(ActiveCell, ActiveCell.End(xlDown)).Select
   
    'Row = Target.Row
    Row = Target.Row
    Col = Target.Column
   
    Set RngRow = Range("A" & Row, Target.End(xlToRight))
    Set RngCol = Range(Cells(1, Col), Target)
    Set RngFinal = Union(RngRow, RngCol)
   
    RngFinal.Interior.ColorIndex = 6

End Sub

VLOOKUP VBA lanjutan

'VLOOKUP lanjutan
Sub ADDCLM()
On Error Resume Next
Dim Dept_Row As Long
Dim Dept_Clm As Long
Table1 = Sheet2.Range("d5:d17") ' Employee_ID Column from Employee table yang dcari
Table2 = Sheet2.Range("k5:l17") ' Range of Employee Table 1 tabel yang dijadikan referensi
Dept_Row = Sheet1.Range("g5").Row ' Change E3 with the cell from where you need to start populating the Department
Dept_Clm = Sheet1.Range("g3").Column
For Each cl In Table1
  Sheet2.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(cl, Table2, 2, False)
  Dept_Row = Dept_Row + 1
Next cl
MsgBox "Done"
End Sub