Procurement Audit Step 2

Sub POStep2()
'
' sort data by voucher number ascending
' then save that sheet as "povouch.srt"
'
Dim oEZ As New cEZ

oEZ.Sort _
Infile:=BASEDIR & "poext.txt", _
OutFile:=BASEDIR & "povouch.srt", _
SortKeys:="voucher_number + a "

LoadSheet _
ToSheet:="$Vouch", _
Infile:=BASEDIR & "povouch.srt"

Set oEZ = Nothing
Application.StatusBar = "PO - Step2 "
End Sub

Main Page

Complete Auditor resources
Links \| Privacy Policy \| FAQ \| Downloads \| Trademarks

	Procurement Audit Step 2
	Benford's Law Downloads Site Map