1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
Sub testrrr()
Dim iRow%
Dim i%
iRows = ActiveCell.SpecialCells(xlLastCell).row
Columns("M:M").Select
Selection.Cut
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
For i = 1 To 6
If Left(Cells(i, 1 ), 4 ) = "ADD1" Then
iLength = InStr(Cells(i, 1 ), "CSZ=")
sAddr1 = Mid(Cells(i, 1 ), 7 , iLength - 7 )
sCsz = Mid(Cells(i, 1 ), iLength + 5 )
Rows(CStr(i) + ":" + CStr(i)).Select
Selection.Delete Shift:=xlUp
Exit For
End If
Next i
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Columns("A:A").ColumnWidth = 1 . 14
Columns("N:N").ColumnWidth = 1 . 14
'Set Row Heighth
Rows("1:2").RowHeight = 12 #
For i = 555 To 1 Step - 1
If Mid(Cells(i, 8 ), 1 , 5 ) = "TOTAL" Then Rows(i + 1 ).Insert
Next i
'---------------------
i = 5
Do
Set x = Columns( 8 ).Find(What:="TOTAL OTHER REVENUE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x Is Nothing Then
Set x = Columns( 8 ).Find(What:="OTHER REVENUE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x Is Nothing Then
Rows(x.row).EntireRow.Delete
End If
End If
Set x1 = Columns( 8 ).Find(What:="TOTAL A&G PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x1 Is Nothing Then
Set x1 = Columns( 8 ).Find(What:="A&G PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x1 Is Nothing Then
Rows(x1.row).EntireRow.Delete
End If
End If
Set x2 = Columns( 8 ).Find(What:="TOTAL A&G OTHER", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x2 Is Nothing Then
Set x2 = Columns( 8 ).Find(What:="A&G OTHER", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x2 Is Nothing Then
Rows(x2.row).EntireRow.Delete
End If
End If
Set x3 = Columns( 8 ).Find(What:="TOTAL MARKETING PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x3 Is Nothing Then
Set x3 = Columns( 8 ).Find(What:="MARKETING PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x3 Is Nothing Then
Rows(x3.row).EntireRow.Delete
End If
End If
Set x4 = Columns( 8 ).Find(What:="TOTAL MARKETING & ADVERTISING", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x4 Is Nothing Then
Set x4 = Columns( 8 ).Find(What:="MARKETING & ADVERTISING", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x4 Is Nothing Then
Rows(x4.row).EntireRow.Delete
End If
End If
Set x5 = Columns( 8 ).Find(What:="TOTAL UTILITIES", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x5 Is Nothing Then
Set x5 = Columns( 8 ).Find(What:="UTILITIES", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x5 Is Nothing Then
Rows(x5.row).EntireRow.Delete
End If
End If
Set x6 = Columns( 8 ).Find(What:="TOTAL OPERATIONS PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x6 Is Nothing Then
Set x6 = Columns( 8 ).Find(What:="OPERATIONS PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x6 Is Nothing Then
Rows(x6.row).EntireRow.Delete
End If
End If
Set x7 = Columns( 8 ).Find(What:="TOTAL MAINTENANCE PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x7 Is Nothing Then
Set x7 = Columns( 8 ).Find(What:="MAINTENANCE PAYROLL", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x7 Is Nothing Then
Rows(x7.row).EntireRow.Delete
End If
End If
Set x8 = Columns( 8 ).Find(What:="TOTAL REPAIRS AND MAINTENANCE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x8 Is Nothing Then
Set x8 = Columns( 8 ).Find(What:="REPAIRS AND MAINTENANCE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x8 Is Nothing Then
Rows(x8.row).EntireRow.Delete
End If
End If
Set x9 = Columns( 8 ).Find(What:="TOTAL CONTRACT MAINTENANCE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x9 Is Nothing Then
Set x9 = Columns( 8 ).Find(What:="CONTRACT MAINTENANCE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x9 Is Nothing Then
Rows(x9.row).EntireRow.Delete
End If
End If
Set x10 = Columns( 8 ).Find(What:="TOTAL OTHER INCOME", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x10 Is Nothing Then
Set x10 = Columns( 8 ).Find(What:="TENNANT FEES", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x10 Is Nothing Then
Rows(x10.row).EntireRow.Delete
End If
End If
Set x11 = Columns( 8 ).Find(What:="TOTAL TURNOVER COSTS", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x11 Is Nothing Then
Set x11 = Columns( 8 ).Find(What:="TURNOVER COSTS", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x11 Is Nothing Then
Rows(x11.row).EntireRow.Delete
End If
End If
Set x12 = Columns( 8 ).Find(What:="TOTAL NRP EXPENSE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x12 Is Nothing Then
Set x12 = Columns( 8 ).Find(What:="NRP EXPENSE", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x12 Is Nothing Then
Rows(x12.row).EntireRow.Delete
End If
End If
Set x13 = Columns( 8 ).Find(What:="TOTAL OTHER DEDUCTIONS", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If x13 Is Nothing Then
Set x13 = Columns( 8 ).Find(What:="OTHER DEDUCTIONS", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not x13 Is Nothing Then
Rows(x13.row).EntireRow.Delete
End If
End If
i = i + 1
Loop Until i = iRows
'-------------------------------------------------
i = 3
Do
If Left(Cells(i, 8 ), 5 ) = "TOTAL" Or _
Left(Cells(i, 8 ), 22 ) = "GROSS OPERATING PROFIT" Then
Range("B" & i & ":L" & i).Select
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
'------------------------- added for 7 big groups
If Left(Cells(i, 8 ), 21 ) = "TOTAL RESIDENTAL RENT" Or _
Left(Cells(i, 8 ), 24 ) = "TOTAL OPERATING EXPENSES" Or _
Left(Cells(i, 8 ), 16 ) = "TOTAL NET INCOME" Or _
Left(Cells(i, 8 ), 16 ) = "TOTAL LABOR COST" Or _
Left(Cells(i, 8 ), 32 ) = "TOTAL GARAGE DEPARTMENTAL PROFIT" Or _
Left(Cells(i, 8 ), 30 ) = "TOTAL HEALTH CLUB DEPT. PROFIT" Or _
Left(Cells(i, 8 ), 28 ) = "TOTAL GROSS OPERATION INCOME" Then
Range("B" & i & ":L" & i).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
End With
End If
'---------------------------------------
If Left(Cells(i, 8 ), 21 ) = "RESIDENTAL RENT" Or _
Left(Cells(i, 8 ), 24 ) = "RENT REVENUE" Or _
Left(Cells(i, 8 ), 16 ) = "OTHER REVENUE" Or _
Left(Cells(i, 8 ), 16 ) = "TENNANT FEES" Or _
Left(Cells(i, 8 ), 32 ) = "OPERATING EXPENSES" Or _
Left(Cells(i, 8 ), 24 ) = "A&G PAYROLL" Or _
Left(Cells(i, 8 ), 16 ) = "A&G OTHER" Or _
Left(Cells(i, 8 ), 18 ) = "MARKETING PAYROLL" Or _
Left(Cells(i, 8 ), 32 ) = "MARKETING & ADVERTISING" Or _
Left(Cells(i, 8 ), 30 ) = "UTILITIES" Or _
Left(Cells(i, 8 ), 24 ) = "OPERATIONS PAYROLL" Or _
Left(Cells(i, 8 ), 19 ) = "MAINTENANCE PAYROLL" Or _
Left(Cells(i, 8 ), 23 ) = "REPAIRS AND MAINTENANCE" Or _
Left(Cells(i, 8 ), 32 ) = "CONTRACT MAINTENANCE" Or _
Left(Cells(i, 8 ), 30 ) = "TURNOVER COSTS" Or _
Left(Cells(i, 8 ), 32 ) = "RENOVATION" Or _
Left(Cells(i, 8 ), 30 ) = "NRP EXPENSE" Or _
Left(Cells(i, 8 ), 30 ) = "OTHER DEDUCTIONS" Then
Range("B" & i & ":L" & i).Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
End With
End If
i = i + 1
Loop Until i = iRows
'-----------------------------------------
i = 6
Do
If Cells(i, 3 ) < 0 Or _
Cells(i, 3 ) > 0 Then
Cells(i, 3 ) = - 1 * Cells(i, 3 )
End If
If Cells(i, 4 ) < 0 Or _
Cells(i, 4 ) > 0 Then
Cells(i, 4 ) = - 1 * Cells(i, 4 )
End If
If Cells(i, 6 ) < 0 Or _
Cells(i, 6 ) > 0 Then
Cells(i, 6 ) = - 1 * Cells(i, 6 )
End If
If Cells(i, 11 ) < 0 Or _
Cells(i, 11 ) > 0 Then
Cells(i, 11 ) = - 1 * Cells(i, 11 )
End If
If Cells(i, 10 ) < 0 Or _
Cells(i, 10 ) > 0 Then
Cells(i, 10 ) = - 1 * Cells(i, 10 )
End If
If Cells(i, 9 ) < 0 Or _
Cells(i, 9 ) > 0 Then
Cells(i, 9 ) = - 1 * Cells(i, 9 )
End If
i = i + 1
Loop Until Left(Cells(i, 8 ), 18 ) = "OPERATING EXPENSES"
'delete extra rows
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Insert Shift:=xlToLeft
'set data font size & row heighth
Range("A1:N" & iRows + 4 ).Select
Selection.Font.Size = 6
Rows("3:" & iRows).Select
Selection.RowHeight = 10 . 5
Columns("B:B").ColumnWidth = 5 '12
Columns("C:C").ColumnWidth = 10 '30
'Columns("C:C").HorizontalAlignment = xlLeft
Columns("D:M").ColumnWidth = 10
Columns("N:N").ColumnWidth = 10
Columns("D:F").ColumnWidth = 10 '12
Columns("G:G").ColumnWidth = 25
Columns("G:G").HorizontalAlignment = xlCenter
Columns("H:K").ColumnWidth = 10
Columns("L:M").ColumnWidth = 4
'Format date cells in heading
Range("I2:M2").Select
Selection.NumberFormat = "mmm-yy"
'Center and shade heading box
Range("A1:N2").Select
With Selection
.HorizontalAlignment = xlCenter
End With
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
