Fixed Assets - Step 5

Sub FAStep5()
'
' sort by location
' then obtain sub-totals for cost
' load report to sheet $Debug
'
Dim oEZ As New cEZ
' run the sort
oEZ.Sort _
Infile:=BASEDIR & "fa.txt", _
OutFile:=BASEDIR & "fa.srt", _
SortKeys:="location + a"
' run the sub-total
oEZ.AnalyzeSU _
Infile:=BASEDIR & "fa.srt", _
Report:=BASEDIR & "fa.sub", _
SortKeys:="location + a", _
Column:="cost"

LoadSheet _
ToSheet:="$Debug", _
Infile:=BASEDIR & "fa.sub"

Set oEZ = Nothing
Application.StatusBar = "FA - Step5 "
End Sub

Main Page

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

	Fixed Assets - Step 5
	Benford's Law Downloads Site Map