[TABLE="width: 72"]
[TR]
[TD]Sub BaoCaoTheoHopDong()[/TD]
[/TR]
[TR]
[TD] Call CopyHD[/TD]
[/TR]
[TR]
[TD] n = Sheets("Chitiethopdong").Range("G65000").End(xlUp).Row[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("A7:E" & n + 10).Clear[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("A7:E" & n + 10).Font.Name = "Times New Roman"
[/TD]
[/TR]
[TR]
[TD] For i = 7 To n[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(i, 1) = Sheets("Chitiethopdong").Cells(i, 7)[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(i, 2) = Sheets("Chitiethopdong").Cells(i, 8)[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(i, 3) = Sheets("Chitiethopdong").Cells(i, 12)[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(i, 4) = Sheets("Chitiethopdong").Cells(i, 13)[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(i, 5) = Sheets("Chitiethopdong").Cells(i, 14)[/TD]
[/TR]
[TR]
[TD] Next[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(n + 1, 4) = Sheets("Welcome").Cells(10, 1)[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(n + 2, 4) = Sheets("Welcome").Cells(11, 1)[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(n + 1, 5) = Application.WorksheetFunction.Sum(Sheets("Chitiethopdong").Range("E7:E" & n))[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Cells(n + 2, 5) = Sheets("Chitiethopdong").Range("E4") - Sheets("Chitiethopdong").Range("E" & n + 1)[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("G7:N500").ClearContents[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("A7:B" & n).HorizontalAlignment = xlCenter[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("B7:B" & n).NumberFormat = "dd/mm/yyyy"[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("E7:E" & n + 2).NumberFormat = "#,##0"[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("D" & n + 1 & ":E" & n + 2).Font.Bold = True[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("D" & n + 1 & ":E" & n + 2).Font.Italic = True[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("D" & n + 4) = Sheets("Welcome").Range("A15")[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("D" & n + 5) = Sheets("Welcome").Range("A12")[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("D" & n + 9) = Sheets("Welcome").Range("C13")[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("D" & n + 4 & ":D" & n + 9).Font.Italic = True[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Range("D" & n + 4 & ":D" & n + 9).HorizontalAlignment = xlCenter[/TD]
[/TR]
[TR]
[TD] Call TimSoHD[/TD]
[/TR]
[TR]
[TD] Sheets("Chitiethopdong").Select[/TD]
[/TR]
[TR]
[TD] Range("A1").Select[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[/TR]
[/TABLE]