Test for Round Numbers

Sub RunByRN()
'
' run the round number report by the specified sort keys
'
Dim oEZ As New cEZ
' InFile - name of input file to be analyzed
' Report - name of output file to contain the report
' SortKeys - specifies how the input file is sorted
' Column - name of the column whose values are to be analyzed
oEZ.AnalyzeRN _
Infile:=BASEDIR & "clmdensp.srt", _
Report:=BASEDIR & "clmdensp.rn", _
SortKeys:="billprov + a", _
Column:="paidamt"

' macro to load a report file to a worksheet
LoadSheet _
ToSheet:="$Debug", _
Infile:=BASEDIR & "clmdensp.rn"
Set oEZ = Nothing
End Sub

Main Page

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