Option Explicit: Option Base 1
Const TP2 As Long = 1: Const DT As Long = 22
Const BT As Long = 43: Const DN As Long = 85
Const CT As Long = 106: Const AG As Long = 148
Const SB As Long = 169: Const LA As Long = 232
Const TG As Long = 253: Const KG As Long = 274
Const VL As Long = 190: Const VT As Long = 64
Const TP7 As Long = 211: Const TN As Long = 127
Const CHINH As Long = 316: Const DateCapNhat As Long = 357
Const PHU As Long = 337
Dim iJ As Long
[B]Sub ContinueCopy()[/B]
Dim MaTinh As Long
ReDim NgCuoi(14, 2) As Variant
1 [COLOR="Blue"]' Tìm Các Ngày Cuoi Dã Chép Du Lieu Trong Sheets("KQ")[/COLOR]
Sheets("KQ").Select: Application.ScreenUpdating = False
For iJ = 1 To 14
[COLOR="blue"]' MaTinh = FChoose(iJ)[/COLOR] NgCuoi(iJ, 1) = Range("iV" & FChoose(iJ)).End(xlToLeft).Value
If NgCuoi(iJ, 1) = 0 Then NgCuoi(iJ, 1) = DateSerial(Year(Date), 1, 1) - 1
NgCuoi(iJ, 2) = FChoose(iJ, True)
Next iJ
2 [COLOR="blue"]'Loc Du Lieu Chua Chép Tu Sheets("KQ07")[/COLOR]
Sheets("KQ07").Select
For iJ = 1 To 14
Range("V2").Value = ">" & NgCuoi(iJ, 1): Range("W2").Value = NgCuoi(iJ, 2)
DFilter
Dim iZ As Integer, Rng As Range
iZ = 4
Do
iZ = 1 + iZ: Set Rng = Range("V" & iZ)
If Len(Rng.Value) < 1 Then Exit Do
Set Rng = Union(Rng, Range("W" & CStr(iZ) & ":AO" & CStr(iZ)))
Rng.Copy: Sheets("KQ").Select
Range("iV" & FChoose(iJ)).End(xlToLeft).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("KQ07").Select: Application.CutCopyMode = False
Loop
If iJ > 3 Then Exit For 'Ban Tang Dan Den iJ=>14 De Xem Ket Qua Chep Tung Tinh
Next iJ
Set Rng = Nothing
[B]End Sub
Sub DFilter()[/B]
Columns("A:T").Select: Range("T1").Activate
Range("A:T").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"V1:W2"), CopyToRange:=Range("V4:AO4"), Unique:=False
[B]End Sub
Function FChoose(TTu As Long, Optional Ma As Boolean)[/B]
If Ma Then
FChoose = Choose(TTu, "T2", "DT", "BT", "VT", "DN", "CT", "TN", _
"AG", "SB", "VL", "T7", "LA", "TG", "KG")
Else
FChoose = Choose(TTu, TP2, DT, BT, DN, CT, AG, SB, LA, TG, KG, VL, VT, TP7, TN)
End If
[B]End Function[/B]
