Ðề: Help Code VBA TH QuyI
Cho tôi mạn phép góp ý kiến nhé
1- Sao ko CUT các Vật liệu để bỏ vào 1 Sheet Vat Liệu ??
2- Add 1 cột E để có tháng
Như vậy ta chỉ có :
1- Set DestSh = Sheets("TH QuyI")
2- For Each sh In ActiveWorkbook.Sheets(Array("Thang 01", "Thang 02", "Thang 03"))
Last = lastrow(DestSh)
Cho dù có bao nhiêu Target thì nó dễ dàng take care . Một loop đến bến
3- Lastrow thoả mái xlUp hay xlDown .
4- Vì có cột E là tháng (1,2,3, ....) nên dễ dàng là bản Thống kê dùng formulas
TÊN THUỐC & HL
TỒN ĐẦU KỲ $30,452,098 (=SUMIF($E$15:$E$305,"=1",$G$15:$G$305))
NHẬP TRONG KỲ $80,482,740.00
XUẤT TRONG KỲ $79,436,114.92
TỒN CUỐI KỲ $31,498,723
VẬT TƯ
$53,002.00 ( =SUMIF('Vat tu'!C9:C14,"=1",'Vat tu'!G9:G14) )
$-
$17,325.00
$35,677.00
5- Vì Tên thuốc lập lại, cũng worry free vì cột E có tháng , và dùng Sumif 1 cách thong dong fơi fới
6- Nếu lười kéo số thứ tự STT thì
Sort trước khi AutoFill STT cho đẹp trời wê hương
Sub Sorting()
Dim oneRange As Range
Dim aCell As Range
Set oneRange = Range("B15:M500")
Set aCell = Range("B15")
oneRange.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlNo
End Sub
Sub autofill()
Dim lastrow As Long
Range("A15").Select
ActiveCell.FormulaR1C1 = "1"
Range("A16").Select
ActiveCell.FormulaR1C1 = "2"
lastrow = Worksheets("TH QuyI").Range("B15").End(xlDown).Row
With Worksheets("TH QuyI").Range("A15")
.autofill Destination:=Range("A15:A" & lastrow&), Type:=xlFillSeries
End With
End Sub
Rất đơn giản , gọn và dễ hiểu
