Sub SaoLuuTuDong()
Dim DuongDan$, SaoLuu$, ThangNam$, DuongDanFile$, DuongDanPGH$
Dim Wb As Workbook, Ws As Worksheet, MeWB As Workbook
Set Wb = ThisWorkbook
Set Ws = Wb.ActiveSheet
Wb.Save
Ws.Range("A44").Value = Ws.Range("A44").Value
Application.DisplayAlerts = False
Application.ScreenUpdating = False
SaoLuu = Split(Ws.Name, "-")(0)
ThangNam = "PGH." & SaoLuu & ".T" & Month(Ws.Range("F5").Value) & "-" & Year(Ws.Range("F5").Value)
DuongDanPGH = Wb.Path & "\PGH" & "\"
DuongDan = Wb.Path & "\PGH" & "\" & SaoLuu & "\"
DuongDanFile = DuongDan & ThangNam & ".xlsm"
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(DuongDanPGH) Then .CreateFolder (DuongDanPGH)
End With
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(DuongDan) Then .CreateFolder (DuongDan)
End With
If Dir(DuongDanFile) = "" Then
Ws.Copy
Set MeWB = ActiveWorkbook
MeWB.ActiveSheet.Range("C8:E42").Value = MeWB.ActiveSheet.Range("C8:E42").Value
MeWB.ActiveSheet.Range("H:O").Delete
MeWB.SaveAs DuongDanFile, 52
MeWB.Close False
Else
Set MeWB = Workbooks.Open(DuongDanFile)
End If
Wb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Set MeWB = Nothing
End Sub