Sub GPE_COM(Thang As Boolean)
On Error Resume Next
Dim sRng As Range, Clls As Range
Dim Sht As Worksheet, Rng0 As Range, sRng0 As Range
Dim MyAdd As String, Kho As String, Cot As Byte
For Each Clls In Range([B11], [B11].End(xlDown))
Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
Kho = sRng.Offset(, IIf(Thang, 4, 7)).Value
If Left(sRng.Offset(, -1).Value, 1) = "N" Then
Cot = Switch(Kho = "MUA", 4, Kho = "XBN", 5, Kho = "BID", 6, Kho = "239", 7, _
Kho = "VP", 8, Kho = "TH", 9, Kho = "KHA", 10)
ElseIf Left(sRng.Offset(, -1).Value, 1) = "X" Then
Cot = Switch(Kho = "TC", 12, Kho = "XBN", 13, Kho = "BID", 14, _
Kho = "239", 15, Kho = "VP", 16, Kho = "TA", 17, Kho = "KHA", 18)
End If
With Clls.Offset(, Cot)
.Value = .Value + sRng.Offset(, 3).Value
End With
If Thang Then
If Clls.Offset(, 1).Value = "" Then _
Clls.Offset(, 1).Resize(, 2).Value = sRng.Offset(, 1).Resize(, 2).Value
Cells(Clls.Row, "M").FormulaR1C1 = "=SUM(RC[-7]:RC[-1])"
Cells(Clls.Row, "U").FormulaR1C1 = "=SUM(RC[-7]:RC[-1])"
Cells(Clls.Row, "V").FormulaR1C1 = "=RC[-17]+RC[-9]-RC[-1]"
'Chép Ton Cuoi Tháng:'
Set Sht = Sheets("DM")
Set Rng0 = Sht.Range(Sht.[B3], Sht.[B65500].End(xlUp))
Set sRng0 = Rng0.Find(Clls.Value)
If Not sRng0 Is Nothing Then
Cells(Clls.Row, "E").Value = sRng0.Offset(, 10 + [V1].Value).Value
sRng0.Offset(, 11 + [V1].Value).Value = Cells(Clls.Row, "V").Value
End If
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Next Clls
End Sub
