Sub HD_LD()
Dim Rng As Variant
Application.ScreenUpdating = False
'Sheets("DM_HD").Unprotect Password:="******"
On Error Resume Next 'On Error Resume Next
Range("AT4:AT10500").ClearContents
Set Rng = S_DM.Range("A14:A" & S_DM.[B65500].End(xlUp).Row).Find(Range("A1").Value, , , xlWhole)
If S_DM.Range("Q" & Rng.Row).Value <> "" Then
Range(Range("AP4").Value).Value = S_DM.Range("D5").Value & ", " & "ngày " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value)
Else
Range(Range("AP4").Value).Value = S_DM.Range("D5").Value & ", " & "ngày ....... tháng ....... n" & ChrW(259) & "m 201......"
End If
If S_DM.Range("B" & Rng.Row).Value <> "" Then
Range(Range("AP3").Value).Value = S_DM.Range("B" & Rng.Row).Value
Else
Range(Range("AP3").Value).Value = "S" & ChrW(7889) & ": ....................."
End If
Range("A6") = WorksheetFunction.Max(S_DM.Range("A15:A5500"))
Range("AT62").FormulaR1C1 = _
"=MID(R[-59]C[-27],FIND("","",R[-59]C[-27],1)+1,LEN(R[-59]C[-27]))"
Range("AT62").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(Range("AP1").Value).Value = UpperUni(S_DM.Range("D2").Value)
Range(Range("AQ1").Value).Value = S_DM.Range("D7").Value
Range(Range("AQ2").Value).Value = "Qu" & ChrW(7889) & "c t" & ChrW(7883) & "ch: " & S_DM.Range("D11").Value
Range(Range("AR1").Value).Value = S_DM.Range("D10").Value
Range(Range("AS1").Value).Value = S_DM.Range("D2").Value
Range(Range("AT1").Value).Value = S_DM.Range("D4").Value
Range(Range("AU1").Value).Value = " " & ChrW(272) & ChrW(7883) & "a ch" & ChrW(7881) & ": " & S_DM.Range("D3").Value & "."
Range(Range("AV1").Value).Value = S_DM.Range("D" & Rng.Row).Value
Range(Range("AV2").Value).Value = "Qu" & ChrW(7889) & "c t" & ChrW(7883) & "ch: " & S_DM.Range("L" & Rng.Row).Value
Range(Range("AW1").Value).Value = " Sinh ngày: " & Day(S_DM.Range("F" & Rng.Row).Value) & "/" & Month(S_DM.Range("F" & Rng.Row).Value) & "/" & Year(S_DM.Range("F" & Rng.Row).Value)
Range(Range("AW2").Value).Value = "T" & ChrW(7841) & "i: " & S_DM.Range("G" & Rng.Row).Value
Range(Range("AX1").Value).Value = " Ngh" & ChrW(7873) & " nghi" & ChrW(7879) & "p: " & S_DM.Range("E" & Rng.Row).Value
Range(Range("AY1").Value).Value = " " & ChrW(272) & ChrW(7883) & "a ch" & ChrW(7881) & " th" & ChrW(432) & ChrW(7901) & "ng trú: " & S_DM.Range("K" & Rng.Row).Value
Range(Range("AZ1").Value).Value = " S" & ChrW(7889) & " CMND: " & S_DM.Range("H" & Rng.Row).Value
Range(Range("AZ2").Value).Value = S_DM.Range("I" & Rng.Row).Value
Range(Range("AZ3").Value).Value = "T" & ChrW(7841) & "i: " & S_DM.Range("J" & Rng.Row).Value
Range(Range("BA1").Value).Value = " - Lo" & ChrW(7841) & "i h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng: " & S_DM.Range("p" & Rng.Row).Value & "."
Range(Range("BB1").Value).Value = " - T" & ChrW(7915) & ": ngày " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & _
Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " & "ngày " & _
IIf(S_DM.Range("R" & Rng.Row).Value > 0, Day(S_DM.Range("R" & Rng.Row).Value), "......") & " tháng " _
& IIf(S_DM.Range("R" & Rng.Row).Value > 0, Month(S_DM.Range("R" & Rng.Row).Value), "......") & " n" & ChrW(259) & "m " & _
IIf(S_DM.Range("R" & Rng.Row).Value > 0, Year(S_DM.Range("R" & Rng.Row).Value), "......") & "."
Range(Range("BC1").Value).Value = Range("BC7").Value 'Ngay thu viec
Range(Range("BD1").Value).Value = " - " & ChrW(272) & ChrW(7883) & "a " & ChrW(273) & "i" & ChrW(7875) & "m làm vi" & ChrW(7879) & "c: " & S_DM.Range("X" & Rng.Row).Value
Range(Range("BE1").Value).Value = " - Ch" & ChrW(7913) & "c danh chuyên môn: " & S_DM.Range("M" & Rng.Row).Value & " " & "- Ch" & ChrW(7913) & "c v" & ChrW(7909) & " (n" & ChrW(7871) & "u có): " & S_DM.Range("N" & Rng.Row).Value & "."
Range(Range("BF1").Value).Value = " - Công vi" & ChrW(7879) & "c ph" & ChrW(7843) & "i làm: " & S_DM.Range("O" & Rng.Row).Value & "."
Range(Range("BG1").Value).Value = S_DM.Range("C" & Rng.Row).Value
Range(Range("BH1").Value).Value = " - H" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng " & ChrW(273) & ChrW(432) & ChrW(7907) & "c l" & ChrW(7853) & "p thành 02 b" & ChrW(7843) & "n có giá tr" & ChrW(7883) & " pháp lý nh" & ChrW(432) & " nhau m" & ChrW(7895) & "i bên gi" & ChrW(7919) & " m" & ChrW(7897) & "t b" & ChrW(7843) & "n và có hi" & ChrW(7879) & "u l" & ChrW(7921) & "c t" & ChrW(7915) _
& Range("AT62") & ". Khi 02 bên ký k" & ChrW(7871) & "t ph" & ChrW(7909) & " l" & ChrW(7909) & "c h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng thì n" & ChrW(7897) & "i dung c" & ChrW(7911) & "a ph" & ChrW(7909) & " l" & ChrW(7909) & "c h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng c" & ChrW(361) & "ng có giá tr" & ChrW(7883) & " nh" & ChrW(432) & " các n" & ChrW(7897) & "i dung c" & ChrW(7911) & "a b" & ChrW(7843) & "n h" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng này."
Range(Range("BI1").Value).Value = " H" & ChrW(7907) & "p " & ChrW(273) & ChrW(7891) & "ng lao " & ChrW(273) & ChrW(7897) & "ng này " & ChrW(273) & ChrW(432) & ChrW(7907) & "c làm t" & ChrW(7841) & "i " & S_DM.Range("D2").Value & "," & Range("AT62") & ". "
Range(Range("BJ1").Value).Value = S_DM.Range("D" & Rng.Row).Value
Range(Range("BJ2").Value).Value = S_DM.Range("D7").Value
'Sheets("DM_HD").Protect Password:="******", AllowFiltering:=True
End Sub