Lập trình ghi dữ liệu vào Sheet - VBA quá dài cần rút gọn

[ngocbinh.no.kia]

Sub Ghi_DLSAOKE_1()
Application.ScreenUpdating = False
Dim DGHI As Range
Dim PA_SXTM_B1_C1_D1 As Range
Dim PA_SXTM_B1_C1_D2 As Range
Dim PA_SXTM_B1_C1_D3 As Range
Dim PA_SXTM_B1_C1_D4 As Range
Dim PA_SXTM_B1_C1_D5 As Range
Dim PA_SXTM_B1_C1_D6 As Range
Dim PA_SXTM_B1_C2_D1 As Range
Dim PA_SXTM_B1_C2_D2 As Range
Dim PA_SXTM_B1_C2_D3 As Range
Dim PA_SXTM_B1_C2_D4 As Range
Dim PA_SXTM_B1_C2_D5 As Range
Dim PA_SXTM_B1_C2_D6 As Range
Dim PA_SXTM_B1_C3_D1 As Range
Dim PA_SXTM_B1_C3_D2 As Range
Dim PA_SXTM_B1_C3_D3 As Range
Dim PA_SXTM_B1_C3_D4 As Range
Dim PA_SXTM_B1_C3_D5 As Range
Dim PA_SXTM_B1_C3_D6 As Range
Dim PA_SXTM_B2_C1_D1 As Range
Dim PA_SXTM_B2_C1_D2 As Range
Dim PA_SXTM_B2_C1_D3 As Range
Dim PA_SXTM_B2_C1_D4 As Range
Dim PA_SXTM_B2_C1_D5 As Range
Dim PA_SXTM_B2_C1_D6 As Range
Dim PA_SXTM_B2_C1_D7 As Range
Dim PA_SXTM_B2_C2_D1 As Range
Dim PA_SXTM_B2_C2_D2 As Range
Dim PA_SXTM_B2_C2_D3 As Range
Dim PA_SXTM_B2_C2_D4 As Range
Dim PA_SXTM_B2_C2_D5 As Range
Dim PA_SXTM_B2_C2_D6 As Range
Dim PA_SXTM_B2_C2_D7 As Range
Dim PA_SXTM_B2_C3_D1 As Range
Dim PA_SXTM_B2_C3_D2 As Range
Dim PA_SXTM_B2_C3_D3 As Range
Dim PA_SXTM_B2_C3_D4 As Range
Dim PA_SXTM_B2_C3_D5 As Range
Dim PA_SXTM_B2_C3_D6 As Range
Dim PA_SXTM_B2_C3_D7 As Range
Dim PA_SXTM_B2_C4_D1 As Range
Dim PA_SXTM_B2_C4_D2 As Range
Dim PA_SXTM_B2_C4_D3 As Range
Dim PA_SXTM_B2_C4_D4 As Range
Dim PA_SXTM_B2_C4_D5 As Range
Dim PA_SXTM_B2_C4_D6 As Range
Dim PA_SXTM_B2_C4_D7 As Range
Dim PA_SXTM_B3_C1_D1 As Range
Dim PA_SXTM_B3_C1_D2 As Range
Dim PA_SXTM_B3_C1_D3 As Range
Dim PA_SXTM_B3_C1_D4 As Range
Dim PA_SXTM_B3_C1_D5 As Range
Dim PA_SXTM_B3_C1_D6 As Range
Dim PA_SXTM_B3_C1_D7 As Range
Dim PA_SXTM_B3_C1_D8 As Range
Dim PA_SXTM_B3_C1_D9 As Range
Dim PA_SXTM_B3_C1_D10 As Range
Dim PA_SXTM_B3_C2_D1 As Range
Dim PA_SXTM_B3_C2_D2 As Range
Dim PA_SXTM_B3_C2_D3 As Range
Dim PA_SXTM_B3_C2_D4 As Range
Dim PA_SXTM_B3_C2_D5 As Range
Dim PA_SXTM_B3_C2_D6 As Range
Dim PA_SXTM_B3_C2_D7 As Range
Dim PA_SXTM_B3_C2_D8 As Range
Dim PA_SXTM_B3_C2_D9 As Range
Dim PA_SXTM_B3_C2_D10 As Range
Dim PA_SXTM_B3_C3_D1 As Range
Dim PA_SXTM_B3_C3_D2 As Range
Dim PA_SXTM_B3_C3_D3 As Range
Dim PA_SXTM_B3_C3_D4 As Range
Dim PA_SXTM_B3_C3_D5 As Range
Dim PA_SXTM_B3_C3_D6 As Range
Dim PA_SXTM_B3_C3_D7 As Range
Dim PA_SXTM_B3_C3_D8 As Range
Dim PA_SXTM_B3_C3_D9 As Range
Dim PA_SXTM_B3_C3_D10 As Range
Dim PA_SXTM_B3_C4_D1 As Range
Dim PA_SXTM_B3_C4_D2 As Range
Dim PA_SXTM_B3_C4_D3 As Range
Dim PA_SXTM_B3_C4_D4 As Range
Dim PA_SXTM_B3_C4_D5 As Range
Dim PA_SXTM_B3_C4_D6 As Range
Dim PA_SXTM_B3_C4_D7 As Range
Dim PA_SXTM_B3_C4_D8 As Range
Dim PA_SXTM_B3_C4_D9 As Range
Dim PA_SXTM_B3_C4_D10 As Range
Dim PA_SXTM_B5_C1_D1 As Range
Dim PA_SXTM_B5_C1_D2 As Range
Dim PA_SXTM_B5_C1_D3 As Range
Dim PA_SXTM_B5_C1_D4 As Range
Dim PA_SXTM_B5_C1_D5 As Range
Dim PA_SXTM_B5_C1_D6 As Range
Dim PA_SXTM_B5_C1_D7 As Range
Dim PA_SXTM_B5_C2_D1 As Range
Dim PA_SXTM_B5_C2_D2 As Range
Dim PA_SXTM_B5_C2_D3 As Range
Dim PA_SXTM_B5_C2_D4 As Range
Dim PA_SXTM_B5_C2_D5 As Range
Dim PA_SXTM_B5_C2_D6 As Range
Dim PA_SXTM_B5_C2_D7 As Range
Dim PA_SXTM_B5_C3_D1 As Range
Dim PA_SXTM_B5_C3_D2 As Range
Dim PA_SXTM_B5_C3_D3 As Range
Dim PA_SXTM_B5_C3_D4 As Range
Dim PA_SXTM_B5_C3_D5 As Range
Dim PA_SXTM_B5_C3_D6 As Range
Dim PA_SXTM_B5_C3_D7 As Range
Dim PA_SXTM_B5_C4_D1 As Range
Dim PA_SXTM_B5_C4_D2 As Range
Dim PA_SXTM_B5_C4_D3 As Range
Dim PA_SXTM_B5_C4_D4 As Range
Dim PA_SXTM_B5_C4_D5 As Range
Dim PA_SXTM_B5_C4_D6 As Range
Dim PA_SXTM_B5_C4_D7 As Range
Dim PA_SXTM_B6_C1_D1 As Range
Dim PA_SXTM_B6_C1_D2 As Range
Dim PA_SXTM_B6_C1_D3 As Range
Dim PA_SXTM_B6_C1_D4 As Range
Dim PA_SXTM_B6_C1_D5 As Range
Dim PA_SXTM_B6_C1_D6 As Range
Dim PA_SXTM_B6_C1_D7 As Range
Dim PA_SXTM_B6_C2_D1 As Range
Dim PA_SXTM_B6_C2_D2 As Range
Dim PA_SXTM_B6_C2_D3 As Range
Dim PA_SXTM_B6_C2_D4 As Range
Dim PA_SXTM_B6_C2_D5 As Range
Dim PA_SXTM_B6_C2_D6 As Range
Dim PA_SXTM_B6_C2_D7 As Range
Dim PA_SXTM_B6_C3_D1 As Range
Dim PA_SXTM_B6_C3_D2 As Range
Dim PA_SXTM_B6_C3_D3 As Range
Dim PA_SXTM_B6_C3_D4 As Range
Dim PA_SXTM_B6_C3_D5 As Range
Dim PA_SXTM_B6_C3_D6 As Range
Dim PA_SXTM_B6_C3_D7 As Range
Dim PA_SXTM_B6_C4_D1 As Range
Dim PA_SXTM_B6_C4_D2 As Range
Dim PA_SXTM_B6_C4_D3 As Range
Dim PA_SXTM_B6_C4_D4 As Range
Dim PA_SXTM_B6_C4_D5 As Range
Dim PA_SXTM_B6_C4_D6 As Range
Dim PA_SXTM_B6_C4_D7 As Range
Dim PA_SXTM_B7_C1_D1 As Range
Dim PA_SXTM_B7_C1_D2 As Range
Dim PA_SXTM_B7_C1_D3 As Range
Dim PA_SXTM_B7_C1_D4 As Range
Dim PA_SXTM_B7_C1_D5 As Range
Dim PA_SXTM_B7_C1_D6 As Range
Dim PA_SXTM_B7_C1_D7 As Range
Dim PA_SXTM_B7_C1_D8 As Range
Dim PA_SXTM_B7_C1_D9 As Range
Dim PA_SXTM_B7_C1_D10 As Range
Dim PA_SXTM_B7_C2_D1 As Range
Dim PA_SXTM_B7_C2_D2 As Range
Dim PA_SXTM_B7_C2_D3 As Range
Dim PA_SXTM_B7_C2_D4 As Range
Dim PA_SXTM_B7_C2_D5 As Range
Dim PA_SXTM_B7_C2_D6 As Range
Dim PA_SXTM_B7_C2_D7 As Range
Dim PA_SXTM_B7_C2_D8 As Range
Dim PA_SXTM_B7_C2_D9 As Range
Dim PA_SXTM_B7_C2_D10 As Range
Dim PA_SXTM_B7_C3_D1 As Range
Dim PA_SXTM_B7_C3_D2 As Range
Dim PA_SXTM_B7_C3_D3 As Range
Dim PA_SXTM_B7_C3_D4 As Range
Dim PA_SXTM_B7_C3_D5 As Range
Dim PA_SXTM_B7_C3_D6 As Range
Dim PA_SXTM_B7_C3_D7 As Range
Dim PA_SXTM_B7_C3_D8 As Range
Dim PA_SXTM_B7_C3_D9 As Range
Dim PA_SXTM_B7_C3_D10 As Range
Dim PA_SXTM_B7_C4_D1 As Range
Dim PA_SXTM_B7_C4_D2 As Range
Dim PA_SXTM_B7_C4_D3 As Range
Dim PA_SXTM_B7_C4_D4 As Range
Dim PA_SXTM_B7_C4_D5 As Range
Dim PA_SXTM_B7_C4_D6 As Range
Dim PA_SXTM_B7_C4_D7 As Range
Dim PA_SXTM_B7_C4_D8 As Range
Dim PA_SXTM_B7_C4_D9 As Range
Dim PA_SXTM_B7_C4_D10 As Range
Set PA_SXTM_B1_C1_D1 = Sheets("PA_SXTM").Range("D42")
Set PA_SXTM_B1_C1_D2 = Sheets("PA_SXTM").Range("D43")
Set PA_SXTM_B1_C1_D3 = Sheets("PA_SXTM").Range("D44")
Set PA_SXTM_B1_C1_D4 = Sheets("PA_SXTM").Range("D45")
Set PA_SXTM_B1_C1_D5 = Sheets("PA_SXTM").Range("D46")
Set PA_SXTM_B1_C1_D6 = Sheets("PA_SXTM").Range("D47")
Set PA_SXTM_B1_C2_D1 = Sheets("PA_SXTM").Range("P42")
Set PA_SXTM_B1_C2_D2 = Sheets("PA_SXTM").Range("P43")
Set PA_SXTM_B1_C2_D3 = Sheets("PA_SXTM").Range("P44")
Set PA_SXTM_B1_C2_D4 = Sheets("PA_SXTM").Range("P45")
Set PA_SXTM_B1_C2_D5 = Sheets("PA_SXTM").Range("P46")
Set PA_SXTM_B1_C2_D6 = Sheets("PA_SXTM").Range("P47")
Set PA_SXTM_B1_C3_D1 = Sheets("PA_SXTM").Range("V42")
Set PA_SXTM_B1_C3_D2 = Sheets("PA_SXTM").Range("V43")
Set PA_SXTM_B1_C3_D3 = Sheets("PA_SXTM").Range("V44")
Set PA_SXTM_B1_C3_D4 = Sheets("PA_SXTM").Range("V45")
Set PA_SXTM_B1_C3_D5 = Sheets("PA_SXTM").Range("V46")
Set PA_SXTM_B1_C3_D6 = Sheets("PA_SXTM").Range("V47")
Set PA_SXTM_B2_C1_D1 = Sheets("PA_SXTM").Range("D53")
Set PA_SXTM_B2_C1_D2 = Sheets("PA_SXTM").Range("D54")
Set PA_SXTM_B2_C1_D3 = Sheets("PA_SXTM").Range("D55")
Set PA_SXTM_B2_C1_D4 = Sheets("PA_SXTM").Range("D56")
Set PA_SXTM_B2_C1_D5 = Sheets("PA_SXTM").Range("D57")
Set PA_SXTM_B2_C1_D6 = Sheets("PA_SXTM").Range("D58")
Set PA_SXTM_B2_C1_D7 = Sheets("PA_SXTM").Range("D59")
Set PA_SXTM_B2_C2_D1 = Sheets("PA_SXTM").Range("P53")
Set PA_SXTM_B2_C2_D2 = Sheets("PA_SXTM").Range("P54")
Set PA_SXTM_B2_C2_D3 = Sheets("PA_SXTM").Range("P55")
Set PA_SXTM_B2_C2_D4 = Sheets("PA_SXTM").Range("P56")
Set PA_SXTM_B2_C2_D5 = Sheets("PA_SXTM").Range("P57")
Set PA_SXTM_B2_C2_D6 = Sheets("PA_SXTM").Range("P58")
Set PA_SXTM_B2_C2_D7 = Sheets("PA_SXTM").Range("P59")
Set PA_SXTM_B2_C3_D1 = Sheets("PA_SXTM").Range("U53")
Set PA_SXTM_B2_C3_D2 = Sheets("PA_SXTM").Range("U54")
Set PA_SXTM_B2_C3_D3 = Sheets("PA_SXTM").Range("U55")
Set PA_SXTM_B2_C3_D4 = Sheets("PA_SXTM").Range("U56")
Set PA_SXTM_B2_C3_D5 = Sheets("PA_SXTM").Range("U57")
Set PA_SXTM_B2_C3_D6 = Sheets("PA_SXTM").Range("U58")
Set PA_SXTM_B2_C3_D7 = Sheets("PA_SXTM").Range("U59")
Set PA_SXTM_B2_C4_D1 = Sheets("PA_SXTM").Range("Y53")
Set PA_SXTM_B2_C4_D2 = Sheets("PA_SXTM").Range("Y54")
Set PA_SXTM_B2_C4_D3 = Sheets("PA_SXTM").Range("Y55")
Set PA_SXTM_B2_C4_D4 = Sheets("PA_SXTM").Range("Y56")
Set PA_SXTM_B2_C4_D5 = Sheets("PA_SXTM").Range("Y57")
Set PA_SXTM_B2_C4_D6 = Sheets("PA_SXTM").Range("Y58")
Set PA_SXTM_B2_C4_D7 = Sheets("PA_SXTM").Range("Y59")
Set PA_SXTM_B3_C1_D1 = Sheets("PA_SXTM").Range("D64")
Set PA_SXTM_B3_C1_D2 = Sheets("PA_SXTM").Range("D65")
Set PA_SXTM_B3_C1_D3 = Sheets("PA_SXTM").Range("D66")
Set PA_SXTM_B3_C1_D4 = Sheets("PA_SXTM").Range("D67")
Set PA_SXTM_B3_C1_D5 = Sheets("PA_SXTM").Range("D68")
Set PA_SXTM_B3_C1_D6 = Sheets("PA_SXTM").Range("D69")
Set PA_SXTM_B3_C1_D7 = Sheets("PA_SXTM").Range("D70")
Set PA_SXTM_B3_C1_D8 = Sheets("PA_SXTM").Range("D71")
Set PA_SXTM_B3_C1_D9 = Sheets("PA_SXTM").Range("D72")
Set PA_SXTM_B3_C1_D10 = Sheets("PA_SXTM").Range("D73")
Set PA_SXTM_B3_C2_D1 = Sheets("PA_SXTM").Range("P64")
Set PA_SXTM_B3_C2_D2 = Sheets("PA_SXTM").Range("P65")
Set PA_SXTM_B3_C2_D3 = Sheets("PA_SXTM").Range("P66")
Set PA_SXTM_B3_C2_D4 = Sheets("PA_SXTM").Range("P67")
Set PA_SXTM_B3_C2_D5 = Sheets("PA_SXTM").Range("P68")
Set PA_SXTM_B3_C2_D6 = Sheets("PA_SXTM").Range("P69")
Set PA_SXTM_B3_C2_D7 = Sheets("PA_SXTM").Range("P70")
Set PA_SXTM_B3_C2_D8 = Sheets("PA_SXTM").Range("P71")
Set PA_SXTM_B3_C2_D9 = Sheets("PA_SXTM").Range("P72")
Set PA_SXTM_B3_C2_D10 = Sheets("PA_SXTM").Range("P73")
Set PA_SXTM_B3_C3_D1 = Sheets("PA_SXTM").Range("U64")
Set PA_SXTM_B3_C3_D2 = Sheets("PA_SXTM").Range("U65")
Set PA_SXTM_B3_C3_D3 = Sheets("PA_SXTM").Range("U66")
Set PA_SXTM_B3_C3_D4 = Sheets("PA_SXTM").Range("U67")
Set PA_SXTM_B3_C3_D5 = Sheets("PA_SXTM").Range("U68")
Set PA_SXTM_B3_C3_D6 = Sheets("PA_SXTM").Range("U69")
Set PA_SXTM_B3_C3_D7 = Sheets("PA_SXTM").Range("U70")
Set PA_SXTM_B3_C3_D8 = Sheets("PA_SXTM").Range("U71")
Set PA_SXTM_B3_C3_D9 = Sheets("PA_SXTM").Range("U72")
Set PA_SXTM_B3_C3_D10 = Sheets("PA_SXTM").Range("U73")
Set PA_SXTM_B3_C4_D1 = Sheets("PA_SXTM").Range("Y64")
Set PA_SXTM_B3_C4_D2 = Sheets("PA_SXTM").Range("Y65")
Set PA_SXTM_B3_C4_D3 = Sheets("PA_SXTM").Range("Y66")
Set PA_SXTM_B3_C4_D4 = Sheets("PA_SXTM").Range("Y67")
Set PA_SXTM_B3_C4_D5 = Sheets("PA_SXTM").Range("Y68")
Set PA_SXTM_B3_C4_D6 = Sheets("PA_SXTM").Range("Y69")
Set PA_SXTM_B3_C4_D7 = Sheets("PA_SXTM").Range("Y70")
Set PA_SXTM_B3_C4_D8 = Sheets("PA_SXTM").Range("Y71")
Set PA_SXTM_B3_C4_D9 = Sheets("PA_SXTM").Range("Y72")
Set PA_SXTM_B3_C4_D10 = Sheets("PA_SXTM").Range("Y73")
Set PA_SXTM_B5_C1_D1 = Sheets("PA_SXTM").Range("D81")
Set PA_SXTM_B5_C1_D2 = Sheets("PA_SXTM").Range("D82")
Set PA_SXTM_B5_C1_D3 = Sheets("PA_SXTM").Range("D83")
Set PA_SXTM_B5_C1_D4 = Sheets("PA_SXTM").Range("D84")
Set PA_SXTM_B5_C1_D5 = Sheets("PA_SXTM").Range("D85")
Set PA_SXTM_B5_C1_D6 = Sheets("PA_SXTM").Range("D86")
Set PA_SXTM_B5_C1_D7 = Sheets("PA_SXTM").Range("D87")
Set PA_SXTM_B5_C2_D1 = Sheets("PA_SXTM").Range("P81")
Set PA_SXTM_B5_C2_D2 = Sheets("PA_SXTM").Range("P82")
Set PA_SXTM_B5_C2_D3 = Sheets("PA_SXTM").Range("P83")
Set PA_SXTM_B5_C2_D4 = Sheets("PA_SXTM").Range("P84")
Set PA_SXTM_B5_C2_D5 = Sheets("PA_SXTM").Range("P85")
Set PA_SXTM_B5_C2_D6 = Sheets("PA_SXTM").Range("P86")
Set PA_SXTM_B5_C2_D7 = Sheets("PA_SXTM").Range("P87")
Set PA_SXTM_B5_C3_D1 = Sheets("PA_SXTM").Range("U81")
Set PA_SXTM_B5_C3_D2 = Sheets("PA_SXTM").Range("U82")
Set PA_SXTM_B5_C3_D3 = Sheets("PA_SXTM").Range("U83")
Set PA_SXTM_B5_C3_D4 = Sheets("PA_SXTM").Range("U84")
Set PA_SXTM_B5_C3_D5 = Sheets("PA_SXTM").Range("U85")
Set PA_SXTM_B5_C3_D6 = Sheets("PA_SXTM").Range("U86")
Set PA_SXTM_B5_C3_D7 = Sheets("PA_SXTM").Range("U87")
Set PA_SXTM_B5_C4_D1 = Sheets("PA_SXTM").Range("Y81")
Set PA_SXTM_B5_C4_D2 = Sheets("PA_SXTM").Range("Y82")
Set PA_SXTM_B5_C4_D3 = Sheets("PA_SXTM").Range("Y83")
Set PA_SXTM_B5_C4_D4 = Sheets("PA_SXTM").Range("Y84")
Set PA_SXTM_B5_C4_D5 = Sheets("PA_SXTM").Range("Y85")
Set PA_SXTM_B5_C4_D6 = Sheets("PA_SXTM").Range("Y86")
Set PA_SXTM_B5_C4_D7 = Sheets("PA_SXTM").Range("Y87")
Set PA_SXTM_B6_C1_D1 = Sheets("PA_SXTM").Range("D95")
Set PA_SXTM_B6_C1_D2 = Sheets("PA_SXTM").Range("D96")
Set PA_SXTM_B6_C1_D3 = Sheets("PA_SXTM").Range("D97")
Set PA_SXTM_B6_C1_D4 = Sheets("PA_SXTM").Range("D98")
Set PA_SXTM_B6_C1_D5 = Sheets("PA_SXTM").Range("D99")
Set PA_SXTM_B6_C1_D6 = Sheets("PA_SXTM").Range("D100")
Set PA_SXTM_B6_C1_D7 = Sheets("PA_SXTM").Range("D101")
Set PA_SXTM_B6_C2_D1 = Sheets("PA_SXTM").Range("P95")
Set PA_SXTM_B6_C2_D2 = Sheets("PA_SXTM").Range("P96")
Set PA_SXTM_B6_C2_D3 = Sheets("PA_SXTM").Range("P97")
Set PA_SXTM_B6_C2_D4 = Sheets("PA_SXTM").Range("P98")
Set PA_SXTM_B6_C2_D5 = Sheets("PA_SXTM").Range("P99")
Set PA_SXTM_B6_C2_D6 = Sheets("PA_SXTM").Range("P100")
Set PA_SXTM_B6_C2_D7 = Sheets("PA_SXTM").Range("P101")
Set PA_SXTM_B6_C3_D1 = Sheets("PA_SXTM").Range("U95")
Set PA_SXTM_B6_C3_D2 = Sheets("PA_SXTM").Range("U96")
Set PA_SXTM_B6_C3_D3 = Sheets("PA_SXTM").Range("U97")
Set PA_SXTM_B6_C3_D4 = Sheets("PA_SXTM").Range("U98")
Set PA_SXTM_B6_C3_D5 = Sheets("PA_SXTM").Range("U99")
Set PA_SXTM_B6_C3_D6 = Sheets("PA_SXTM").Range("U100")
Set PA_SXTM_B6_C3_D7 = Sheets("PA_SXTM").Range("U101")
Set PA_SXTM_B6_C4_D1 = Sheets("PA_SXTM").Range("Y95")
Set PA_SXTM_B6_C4_D2 = Sheets("PA_SXTM").Range("Y96")
Set PA_SXTM_B6_C4_D3 = Sheets("PA_SXTM").Range("Y97")
Set PA_SXTM_B6_C4_D4 = Sheets("PA_SXTM").Range("Y98")
Set PA_SXTM_B6_C4_D5 = Sheets("PA_SXTM").Range("Y99")
Set PA_SXTM_B6_C4_D6 = Sheets("PA_SXTM").Range("Y100")
Set PA_SXTM_B6_C4_D7 = Sheets("PA_SXTM").Range("Y101")
Set PA_SXTM_B7_C1_D1 = Sheets("PA_SXTM").Range("D106")
Set PA_SXTM_B7_C1_D2 = Sheets("PA_SXTM").Range("D107")
Set PA_SXTM_B7_C1_D3 = Sheets("PA_SXTM").Range("D108")
Set PA_SXTM_B7_C1_D4 = Sheets("PA_SXTM").Range("D109")
Set PA_SXTM_B7_C1_D5 = Sheets("PA_SXTM").Range("D110")
Set PA_SXTM_B7_C1_D6 = Sheets("PA_SXTM").Range("D111")
Set PA_SXTM_B7_C1_D7 = Sheets("PA_SXTM").Range("D112")
Set PA_SXTM_B7_C1_D8 = Sheets("PA_SXTM").Range("D113")
Set PA_SXTM_B7_C1_D9 = Sheets("PA_SXTM").Range("D114")
Set PA_SXTM_B7_C1_D10 = Sheets("PA_SXTM").Range("D115")
Set PA_SXTM_B7_C2_D1 = Sheets("PA_SXTM").Range("P106")
Set PA_SXTM_B7_C2_D2 = Sheets("PA_SXTM").Range("P107")
Set PA_SXTM_B7_C2_D3 = Sheets("PA_SXTM").Range("P108")
Set PA_SXTM_B7_C2_D4 = Sheets("PA_SXTM").Range("P109")
Set PA_SXTM_B7_C2_D5 = Sheets("PA_SXTM").Range("P110")
Set PA_SXTM_B7_C2_D6 = Sheets("PA_SXTM").Range("P111")
Set PA_SXTM_B7_C2_D7 = Sheets("PA_SXTM").Range("P112")
Set PA_SXTM_B7_C2_D8 = Sheets("PA_SXTM").Range("P113")
Set PA_SXTM_B7_C2_D9 = Sheets("PA_SXTM").Range("P114")
Set PA_SXTM_B7_C2_D10 = Sheets("PA_SXTM").Range("P115")
Set PA_SXTM_B7_C3_D1 = Sheets("PA_SXTM").Range("U106")
Set PA_SXTM_B7_C3_D2 = Sheets("PA_SXTM").Range("U107")
Set PA_SXTM_B7_C3_D3 = Sheets("PA_SXTM").Range("U108")
Set PA_SXTM_B7_C3_D4 = Sheets("PA_SXTM").Range("U109")
Set PA_SXTM_B7_C3_D5 = Sheets("PA_SXTM").Range("U110")
Set PA_SXTM_B7_C3_D6 = Sheets("PA_SXTM").Range("U111")
Set PA_SXTM_B7_C3_D7 = Sheets("PA_SXTM").Range("U112")
Set PA_SXTM_B7_C3_D8 = Sheets("PA_SXTM").Range("U113")
Set PA_SXTM_B7_C3_D9 = Sheets("PA_SXTM").Range("U114")
Set PA_SXTM_B7_C3_D10 = Sheets("PA_SXTM").Range("U115")
Set PA_SXTM_B7_C4_D1 = Sheets("PA_SXTM").Range("Y106")
Set PA_SXTM_B7_C4_D2 = Sheets("PA_SXTM").Range("Y107")
Set PA_SXTM_B7_C4_D3 = Sheets("PA_SXTM").Range("Y108")
Set PA_SXTM_B7_C4_D4 = Sheets("PA_SXTM").Range("Y109")
Set PA_SXTM_B7_C4_D5 = Sheets("PA_SXTM").Range("Y110")
Set PA_SXTM_B7_C4_D6 = Sheets("PA_SXTM").Range("Y111")
Set PA_SXTM_B7_C4_D7 = Sheets("PA_SXTM").Range("Y112")
Set PA_SXTM_B7_C4_D8 = Sheets("PA_SXTM").Range("Y113")
Set PA_SXTM_B7_C4_D9 = Sheets("PA_SXTM").Range("Y114")
Set PA_SXTM_B7_C4_D10 = Sheets("PA_SXTM").Range("Y115")


Set DGHI = Sheets("DULIEU_CHUNG").Range("F3")
Sheets("DULIEU_CHUNG").Range("C2:I2").Select
Selection.AutoFilter
If Sheets("DULIEU_CHUNG").Range("F3").Value >= 2 Then
Dim ThongBao As Integer
ThongBao = MsgBox("Trung so hop dong, co ghi de khong?", vbYesNo + vbInformation + vbDefaultButton2, "Thong bao")
Select Case ThongBao
Case vbYes 'Xac nhan dung noi dung ghi de

Sheets("DULIEU_CHUNG").Range("G3:G380").Select
Selection.Copy
Sheets("SAOKE").Range("A1").Offset(DGHI, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


Sheets("SAOKE").Range("A1").Offset(DGHI, 420).Value = PA_SXTM_B1_C1_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 421).Value = PA_SXTM_B1_C2_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 422).Value = PA_SXTM_B1_C3_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 423).Value = PA_SXTM_B1_C1_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 424).Value = PA_SXTM_B1_C2_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 425).Value = PA_SXTM_B1_C3_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 426).Value = PA_SXTM_B1_C1_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 427).Value = PA_SXTM_B1_C2_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 428).Value = PA_SXTM_B1_C3_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 429).Value = PA_SXTM_B1_C1_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 430).Value = PA_SXTM_B1_C2_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 431).Value = PA_SXTM_B1_C3_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 432).Value = PA_SXTM_B1_C1_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 433).Value = PA_SXTM_B1_C2_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 434).Value = PA_SXTM_B1_C3_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 435).Value = PA_SXTM_B1_C1_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 436).Value = PA_SXTM_B1_C2_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 437).Value = PA_SXTM_B1_C3_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 438).Value = PA_SXTM_B2_C1_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 439).Value = PA_SXTM_B2_C2_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 440).Value = PA_SXTM_B2_C3_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 441).Value = PA_SXTM_B2_C4_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 442).Value = PA_SXTM_B2_C1_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 443).Value = PA_SXTM_B2_C2_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 444).Value = PA_SXTM_B2_C3_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 445).Value = PA_SXTM_B2_C4_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 446).Value = PA_SXTM_B2_C1_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 447).Value = PA_SXTM_B2_C2_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 448).Value = PA_SXTM_B2_C3_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 449).Value = PA_SXTM_B2_C4_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 450).Value = PA_SXTM_B2_C1_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 451).Value = PA_SXTM_B2_C2_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 452).Value = PA_SXTM_B2_C3_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 453).Value = PA_SXTM_B2_C4_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 454).Value = PA_SXTM_B2_C1_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 455).Value = PA_SXTM_B2_C2_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 456).Value = PA_SXTM_B2_C3_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 457).Value = PA_SXTM_B2_C4_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 458).Value = PA_SXTM_B2_C1_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 459).Value = PA_SXTM_B2_C2_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 460).Value = PA_SXTM_B2_C3_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 461).Value = PA_SXTM_B2_C4_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 462).Value = PA_SXTM_B2_C1_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 463).Value = PA_SXTM_B2_C2_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 464).Value = PA_SXTM_B2_C3_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 465).Value = PA_SXTM_B2_C4_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 466).Value = PA_SXTM_B3_C1_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 467).Value = PA_SXTM_B3_C2_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 468).Value = PA_SXTM_B3_C3_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 469).Value = PA_SXTM_B3_C4_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 470).Value = PA_SXTM_B3_C1_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 471).Value = PA_SXTM_B3_C2_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 472).Value = PA_SXTM_B3_C3_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 473).Value = PA_SXTM_B3_C4_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 474).Value = PA_SXTM_B3_C1_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 475).Value = PA_SXTM_B3_C2_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 476).Value = PA_SXTM_B3_C3_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 477).Value = PA_SXTM_B3_C4_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 478).Value = PA_SXTM_B3_C1_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 479).Value = PA_SXTM_B3_C2_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 480).Value = PA_SXTM_B3_C3_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 481).Value = PA_SXTM_B3_C4_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 482).Value = PA_SXTM_B3_C1_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 483).Value = PA_SXTM_B3_C2_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 484).Value = PA_SXTM_B3_C3_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 485).Value = PA_SXTM_B3_C4_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 486).Value = PA_SXTM_B3_C1_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 487).Value = PA_SXTM_B3_C2_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 488).Value = PA_SXTM_B3_C3_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 489).Value = PA_SXTM_B3_C4_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 490).Value = PA_SXTM_B3_C1_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 491).Value = PA_SXTM_B3_C2_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 492).Value = PA_SXTM_B3_C3_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 493).Value = PA_SXTM_B3_C4_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 494).Value = PA_SXTM_B3_C1_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 495).Value = PA_SXTM_B3_C2_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 496).Value = PA_SXTM_B3_C3_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 497).Value = PA_SXTM_B3_C4_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 498).Value = PA_SXTM_B3_C1_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 499).Value = PA_SXTM_B3_C2_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 500).Value = PA_SXTM_B3_C3_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 501).Value = PA_SXTM_B3_C4_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 502).Value = PA_SXTM_B3_C1_D10
Sheets("SAOKE").Range("A1").Offset(DGHI, 503).Value = PA_SXTM_B3_C2_D10
Sheets("SAOKE").Range("A1").Offset(DGHI, 504).Value = PA_SXTM_B3_C3_D10
Sheets("SAOKE").Range("A1").Offset(DGHI, 505).Value = PA_SXTM_B3_C4_D10
Sheets("SAOKE").Range("A1").Offset(DGHI, 506).Value = PA_SXTM_B5_C1_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 507).Value = PA_SXTM_B5_C2_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 508).Value = PA_SXTM_B5_C3_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 509).Value = PA_SXTM_B5_C4_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 510).Value = PA_SXTM_B5_C1_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 511).Value = PA_SXTM_B5_C2_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 512).Value = PA_SXTM_B5_C3_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 513).Value = PA_SXTM_B5_C4_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 514).Value = PA_SXTM_B5_C1_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 515).Value = PA_SXTM_B5_C2_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 516).Value = PA_SXTM_B5_C3_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 517).Value = PA_SXTM_B5_C4_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 518).Value = PA_SXTM_B5_C1_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 519).Value = PA_SXTM_B5_C2_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 520).Value = PA_SXTM_B5_C3_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 521).Value = PA_SXTM_B5_C4_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 522).Value = PA_SXTM_B5_C1_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 523).Value = PA_SXTM_B5_C2_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 524).Value = PA_SXTM_B5_C3_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 525).Value = PA_SXTM_B5_C4_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 526).Value = PA_SXTM_B5_C1_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 527).Value = PA_SXTM_B5_C2_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 528).Value = PA_SXTM_B5_C3_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 529).Value = PA_SXTM_B5_C4_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 530).Value = PA_SXTM_B5_C1_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 531).Value = PA_SXTM_B5_C2_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 532).Value = PA_SXTM_B5_C3_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 533).Value = PA_SXTM_B5_C4_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 534).Value = PA_SXTM_B6_C1_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 535).Value = PA_SXTM_B6_C2_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 536).Value = PA_SXTM_B6_C3_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 537).Value = PA_SXTM_B6_C4_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 538).Value = PA_SXTM_B6_C1_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 539).Value = PA_SXTM_B6_C2_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 540).Value = PA_SXTM_B6_C3_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 541).Value = PA_SXTM_B6_C4_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 542).Value = PA_SXTM_B6_C1_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 543).Value = PA_SXTM_B6_C2_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 544).Value = PA_SXTM_B6_C3_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 545).Value = PA_SXTM_B6_C4_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 546).Value = PA_SXTM_B6_C1_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 547).Value = PA_SXTM_B6_C2_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 548).Value = PA_SXTM_B6_C3_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 549).Value = PA_SXTM_B6_C4_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 550).Value = PA_SXTM_B6_C1_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 551).Value = PA_SXTM_B6_C2_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 552).Value = PA_SXTM_B6_C3_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 553).Value = PA_SXTM_B6_C4_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 554).Value = PA_SXTM_B6_C1_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 555).Value = PA_SXTM_B6_C2_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 556).Value = PA_SXTM_B6_C3_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 557).Value = PA_SXTM_B6_C4_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 558).Value = PA_SXTM_B6_C1_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 559).Value = PA_SXTM_B6_C2_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 560).Value = PA_SXTM_B6_C3_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 561).Value = PA_SXTM_B6_C4_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 562).Value = PA_SXTM_B7_C1_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 563).Value = PA_SXTM_B7_C2_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 564).Value = PA_SXTM_B7_C3_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 565).Value = PA_SXTM_B7_C4_D1
Sheets("SAOKE").Range("A1").Offset(DGHI, 566).Value = PA_SXTM_B7_C1_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 567).Value = PA_SXTM_B7_C2_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 568).Value = PA_SXTM_B7_C3_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 569).Value = PA_SXTM_B7_C4_D2
Sheets("SAOKE").Range("A1").Offset(DGHI, 570).Value = PA_SXTM_B7_C1_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 571).Value = PA_SXTM_B7_C2_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 572).Value = PA_SXTM_B7_C3_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 573).Value = PA_SXTM_B7_C4_D3
Sheets("SAOKE").Range("A1").Offset(DGHI, 574).Value = PA_SXTM_B7_C1_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 575).Value = PA_SXTM_B7_C2_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 576).Value = PA_SXTM_B7_C3_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 577).Value = PA_SXTM_B7_C4_D4
Sheets("SAOKE").Range("A1").Offset(DGHI, 578).Value = PA_SXTM_B7_C1_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 579).Value = PA_SXTM_B7_C2_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 580).Value = PA_SXTM_B7_C3_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 581).Value = PA_SXTM_B7_C4_D5
Sheets("SAOKE").Range("A1").Offset(DGHI, 582).Value = PA_SXTM_B7_C1_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 583).Value = PA_SXTM_B7_C2_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 584).Value = PA_SXTM_B7_C3_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 585).Value = PA_SXTM_B7_C4_D6
Sheets("SAOKE").Range("A1").Offset(DGHI, 586).Value = PA_SXTM_B7_C1_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 587).Value = PA_SXTM_B7_C2_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 588).Value = PA_SXTM_B7_C3_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 589).Value = PA_SXTM_B7_C4_D7
Sheets("SAOKE").Range("A1").Offset(DGHI, 590).Value = PA_SXTM_B7_C1_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 591).Value = PA_SXTM_B7_C2_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 592).Value = PA_SXTM_B7_C3_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 593).Value = PA_SXTM_B7_C4_D8
Sheets("SAOKE").Range("A1").Offset(DGHI, 594).Value = PA_SXTM_B7_C1_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 595).Value = PA_SXTM_B7_C2_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 596).Value = PA_SXTM_B7_C3_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 597).Value = PA_SXTM_B7_C4_D9
Sheets("SAOKE").Range("A1").Offset(DGHI, 598).Value = PA_SXTM_B7_C1_D10
Sheets("SAOKE").Range("A1").Offset(DGHI, 599).Value = PA_SXTM_B7_C2_D10
Sheets("SAOKE").Range("A1").Offset(DGHI, 600).Value = PA_SXTM_B7_C3_D10
Sheets("SAOKE").Range("A1").Offset(DGHI, 601).Value = PA_SXTM_B7_C4_D10


MsgBox ("GHI DE THANH CONG!")
Case vbNo 'Xac nhan khong dung noi dung can xoa
Exit Sub
End Select
Else
Selection.AutoFilter
Sheets("DULIEU_CHUNG").Range("G3:G380").Select
Selection.Copy
Sheets("SAOKE").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 420).Value = PA_SXTM_B1_C1_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 421).Value = PA_SXTM_B1_C2_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 422).Value = PA_SXTM_B1_C3_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 423).Value = PA_SXTM_B1_C1_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 424).Value = PA_SXTM_B1_C2_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 425).Value = PA_SXTM_B1_C3_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 426).Value = PA_SXTM_B1_C1_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 427).Value = PA_SXTM_B1_C2_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 428).Value = PA_SXTM_B1_C3_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 429).Value = PA_SXTM_B1_C1_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 430).Value = PA_SXTM_B1_C2_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 431).Value = PA_SXTM_B1_C3_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 432).Value = PA_SXTM_B1_C1_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 433).Value = PA_SXTM_B1_C2_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 434).Value = PA_SXTM_B1_C3_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 435).Value = PA_SXTM_B1_C1_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 436).Value = PA_SXTM_B1_C2_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 437).Value = PA_SXTM_B1_C3_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 438).Value = PA_SXTM_B2_C1_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 439).Value = PA_SXTM_B2_C2_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 440).Value = PA_SXTM_B2_C3_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 441).Value = PA_SXTM_B2_C4_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 442).Value = PA_SXTM_B2_C1_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 443).Value = PA_SXTM_B2_C2_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 444).Value = PA_SXTM_B2_C3_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 445).Value = PA_SXTM_B2_C4_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 446).Value = PA_SXTM_B2_C1_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 447).Value = PA_SXTM_B2_C2_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 448).Value = PA_SXTM_B2_C3_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 449).Value = PA_SXTM_B2_C4_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 450).Value = PA_SXTM_B2_C1_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 451).Value = PA_SXTM_B2_C2_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 452).Value = PA_SXTM_B2_C3_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 453).Value = PA_SXTM_B2_C4_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 454).Value = PA_SXTM_B2_C1_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 455).Value = PA_SXTM_B2_C2_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 456).Value = PA_SXTM_B2_C3_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 457).Value = PA_SXTM_B2_C4_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 458).Value = PA_SXTM_B2_C1_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 459).Value = PA_SXTM_B2_C2_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 460).Value = PA_SXTM_B2_C3_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 461).Value = PA_SXTM_B2_C4_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 462).Value = PA_SXTM_B2_C1_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 463).Value = PA_SXTM_B2_C2_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 464).Value = PA_SXTM_B2_C3_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 465).Value = PA_SXTM_B2_C4_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 466).Value = PA_SXTM_B3_C1_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 467).Value = PA_SXTM_B3_C2_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 468).Value = PA_SXTM_B3_C3_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 469).Value = PA_SXTM_B3_C4_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 470).Value = PA_SXTM_B3_C1_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 471).Value = PA_SXTM_B3_C2_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 472).Value = PA_SXTM_B3_C3_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 473).Value = PA_SXTM_B3_C4_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 474).Value = PA_SXTM_B3_C1_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 475).Value = PA_SXTM_B3_C2_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 476).Value = PA_SXTM_B3_C3_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 477).Value = PA_SXTM_B3_C4_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 478).Value = PA_SXTM_B3_C1_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 479).Value = PA_SXTM_B3_C2_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 480).Value = PA_SXTM_B3_C3_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 481).Value = PA_SXTM_B3_C4_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 482).Value = PA_SXTM_B3_C1_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 483).Value = PA_SXTM_B3_C2_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 484).Value = PA_SXTM_B3_C3_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 485).Value = PA_SXTM_B3_C4_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 486).Value = PA_SXTM_B3_C1_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 487).Value = PA_SXTM_B3_C2_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 488).Value = PA_SXTM_B3_C3_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 489).Value = PA_SXTM_B3_C4_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 490).Value = PA_SXTM_B3_C1_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 491).Value = PA_SXTM_B3_C2_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 492).Value = PA_SXTM_B3_C3_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 493).Value = PA_SXTM_B3_C4_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 494).Value = PA_SXTM_B3_C1_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 495).Value = PA_SXTM_B3_C2_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 496).Value = PA_SXTM_B3_C3_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 497).Value = PA_SXTM_B3_C4_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 498).Value = PA_SXTM_B3_C1_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 499).Value = PA_SXTM_B3_C2_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 500).Value = PA_SXTM_B3_C3_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 501).Value = PA_SXTM_B3_C4_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 502).Value = PA_SXTM_B3_C1_D10
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 503).Value = PA_SXTM_B3_C2_D10
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 504).Value = PA_SXTM_B3_C3_D10
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 505).Value = PA_SXTM_B3_C4_D10
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 506).Value = PA_SXTM_B5_C1_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 507).Value = PA_SXTM_B5_C2_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 508).Value = PA_SXTM_B5_C3_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 509).Value = PA_SXTM_B5_C4_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 510).Value = PA_SXTM_B5_C1_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 511).Value = PA_SXTM_B5_C2_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 512).Value = PA_SXTM_B5_C3_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 513).Value = PA_SXTM_B5_C4_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 514).Value = PA_SXTM_B5_C1_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 515).Value = PA_SXTM_B5_C2_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 516).Value = PA_SXTM_B5_C3_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 517).Value = PA_SXTM_B5_C4_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 518).Value = PA_SXTM_B5_C1_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 519).Value = PA_SXTM_B5_C2_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 520).Value = PA_SXTM_B5_C3_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 521).Value = PA_SXTM_B5_C4_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 522).Value = PA_SXTM_B5_C1_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 523).Value = PA_SXTM_B5_C2_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 524).Value = PA_SXTM_B5_C3_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 525).Value = PA_SXTM_B5_C4_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 526).Value = PA_SXTM_B5_C1_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 527).Value = PA_SXTM_B5_C2_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 528).Value = PA_SXTM_B5_C3_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 529).Value = PA_SXTM_B5_C4_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 530).Value = PA_SXTM_B5_C1_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 531).Value = PA_SXTM_B5_C2_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 532).Value = PA_SXTM_B5_C3_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 533).Value = PA_SXTM_B5_C4_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 534).Value = PA_SXTM_B6_C1_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 535).Value = PA_SXTM_B6_C2_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 536).Value = PA_SXTM_B6_C3_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 537).Value = PA_SXTM_B6_C4_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 538).Value = PA_SXTM_B6_C1_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 539).Value = PA_SXTM_B6_C2_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 540).Value = PA_SXTM_B6_C3_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 541).Value = PA_SXTM_B6_C4_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 542).Value = PA_SXTM_B6_C1_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 543).Value = PA_SXTM_B6_C2_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 544).Value = PA_SXTM_B6_C3_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 545).Value = PA_SXTM_B6_C4_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 546).Value = PA_SXTM_B6_C1_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 547).Value = PA_SXTM_B6_C2_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 548).Value = PA_SXTM_B6_C3_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 549).Value = PA_SXTM_B6_C4_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 550).Value = PA_SXTM_B6_C1_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 551).Value = PA_SXTM_B6_C2_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 552).Value = PA_SXTM_B6_C3_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 553).Value = PA_SXTM_B6_C4_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 554).Value = PA_SXTM_B6_C1_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 555).Value = PA_SXTM_B6_C2_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 556).Value = PA_SXTM_B6_C3_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 557).Value = PA_SXTM_B6_C4_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 558).Value = PA_SXTM_B6_C1_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 559).Value = PA_SXTM_B6_C2_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 560).Value = PA_SXTM_B6_C3_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 561).Value = PA_SXTM_B6_C4_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 562).Value = PA_SXTM_B7_C1_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 563).Value = PA_SXTM_B7_C2_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 564).Value = PA_SXTM_B7_C3_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 565).Value = PA_SXTM_B7_C4_D1
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 566).Value = PA_SXTM_B7_C1_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 567).Value = PA_SXTM_B7_C2_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 568).Value = PA_SXTM_B7_C3_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 569).Value = PA_SXTM_B7_C4_D2
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 570).Value = PA_SXTM_B7_C1_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 571).Value = PA_SXTM_B7_C2_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 572).Value = PA_SXTM_B7_C3_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 573).Value = PA_SXTM_B7_C4_D3
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 574).Value = PA_SXTM_B7_C1_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 575).Value = PA_SXTM_B7_C2_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 576).Value = PA_SXTM_B7_C3_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 577).Value = PA_SXTM_B7_C4_D4
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 578).Value = PA_SXTM_B7_C1_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 579).Value = PA_SXTM_B7_C2_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 580).Value = PA_SXTM_B7_C3_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 581).Value = PA_SXTM_B7_C4_D5
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 582).Value = PA_SXTM_B7_C1_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 583).Value = PA_SXTM_B7_C2_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 584).Value = PA_SXTM_B7_C3_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 585).Value = PA_SXTM_B7_C4_D6
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 586).Value = PA_SXTM_B7_C1_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 587).Value = PA_SXTM_B7_C2_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 588).Value = PA_SXTM_B7_C3_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 589).Value = PA_SXTM_B7_C4_D7
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 590).Value = PA_SXTM_B7_C1_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 591).Value = PA_SXTM_B7_C2_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 592).Value = PA_SXTM_B7_C3_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 593).Value = PA_SXTM_B7_C4_D8
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 594).Value = PA_SXTM_B7_C1_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 595).Value = PA_SXTM_B7_C2_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 596).Value = PA_SXTM_B7_C3_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 597).Value = PA_SXTM_B7_C4_D9
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 598).Value = PA_SXTM_B7_C1_D10
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 599).Value = PA_SXTM_B7_C2_D10
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 600).Value = PA_SXTM_B7_C3_D10
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, 601).Value = PA_SXTM_B7_C4_D10


MsgBox ("SAO LUU MOI THANH CONG!")
End If
Application.CutCopyMode = False
Sheets("DULIEU_CHUNG").Range("G3").Select

ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

Nhờ các bác rút gọn giúp em đoạn code trên, cảm ơn.

 

[TongDe]

.........

Nhờ các bác rút gọn giúp em đoạn code trên, cảm ơn.

Bạn gởi file lên, các thành viên có các giải pháp khác cho bạn...
Khồng ai đủ kiên nhẫn để sửa code cho bạn đâu?
Viết lại code nhanh hơn sửa nhiều...

 

[Maika8008]

Lần đầu tiên thấy đoạn code khủng thế này

 

[Maika8008]

Giờ muốn gọn, đỡ rối mắt thì viết thế này:

Sub Ghi_DLSAOKE_1()
Application.ScreenUpdating = False
Dim DGHI As Range
Dim ArrNguon, ArrDich
Dim i as Long

ArrNguon = Array("D42", "D43", "D44", ...) 'Liệt kê đủ 82 địa chỉ theo tuần tự
ArrDich = Array(420, 421, 422, ...) ' Liệt kê từ 420 đến 601

Application.ScreenUpdating = False

Set DGHI = Sheets("DULIEU_CHUNG").Range("F3")
Sheets("DULIEU_CHUNG").Range("C2:I2").Select
Selection.AutoFilter
If Sheets("DULIEU_CHUNG").Range("F3").Value >= 2 Then
Dim ThongBao As Integer
ThongBao = MsgBox("Trung so hop dong, co ghi de khong?", vbYesNo + vbInformation + vbDefaultButton2, "Thong bao")
Select Case ThongBao
Case vbYes 'Xac nhan dung noi dung ghi de

Sheets("DULIEU_CHUNG").Range("G3:G380").Select
Selection.Copy
Sheets("SAOKE").Range("A1").Offset(DGHI, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

For i = 0 to UBound(ArrNguon)
Sheets("SAOKE").Range("A1").Offset(DGHI, ArrDich(i)).Value = Sheets("PA_SXTM").Range(ArrNguon(i))
Next

MsgBox ("GHI DE THANH CONG!")
Case vbNo 'Xac nhan khong dung noi dung can xoa
Exit Sub
End Select
Else
Selection.AutoFilter
Sheets("DULIEU_CHUNG").Range("G3:G380").Select
Selection.Copy
Sheets("SAOKE").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

For i = 0 to UBound(ArrNguon)
Sheets("SAOKE").Range("A1").End(xlDown).Offset(0, ArrDich(i)).Value = Sheets("PA_SXTM").Range(ArrNguon(i))
Next

MsgBox ("SAO LUU MOI THANH CONG!")
End If
Application.CutCopyMode = False
Sheets("DULIEU_CHUNG").Range("G3").Select

ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

 

[HieuCD]

Thử viết code mù

Sub XYZ()
  Dim shSK As Worksheet, shDL As Worksheet
  Dim DGHI&, r&, c&
  
  Application.ScreenUpdating = False
  Set shDL = Sheets("DULIEU_CHUNG")
  Set shSK = Sheets("SAOKE")
  shDL.Range("C2:I2").AutoFilter
  DGHI = shDL.Range("F3").Value
  If DGHI >= 2 Then
    ThongBao = MsgBox("Trung so hop dong, co ghi de khong?", vbYesNo + vbInformation + vbDefaultButton2, "Thong bao")
    Select Case ThongBao
      Case vbYes 'Xac nhan dung noi dung ghi de
        shSK.Range("A1").Offset(DGHI).Resize(378).Value = shDL.Range("G3:G380").Value
        r = DGHI + 1
        c = 420
        Call AddData(shDL, shSK, r, c)
        MsgBox ("GHI DE THANH CONG!")
      Case vbNo 'Xac nhan khong dung noi dung can xoa
        Exit Sub
    End Select
  Else
    r = shSK.Range("A1").End(xlDown).Row
    shDL.Range("G3:G380").Value = shSK.Cells(r + 1, 1).Resize(378).Value
    c = 420
    Call AddData(shDL, shSK, r, c)
    MsgBox ("SAO LUU MOI THANH CONG!")
  End If
  shDL.Range("G3").Select
  ActiveWorkbook.Save
  Application.ScreenUpdating = True
End Sub

Private Sub AddData(shDL, shSK, r, c)
  Dim aCol, aFor, aRow
  Dim n&, v&, j&, fRow&
  
  aCol = Array("D", "P", "V")
  aFor = Array(6, 7, 10, 7, 7, 10)
  aRow = Array(42, 53, 64, 81, 95, 106)
  For v = 0 To UBound(aFor)
    fRow = aRow(v)
    If v = 1 Then aCol = Array("D", "P", "U", "V")
    For n = 1 To aFor(v)
      For j = 0 To UBound(aCol)
        c = c + 1
        shSK.Cells(r, c).Value = shDL.Cells(fRow, aCol(j)).Value
      Next j
      fRow = fRow + 1
    Next n
  Next v
End Sub

 

[ngocbinh.no.kia]

Bác Hiếu CD_ giúp em file đính kèm; Cảm ơn code trên của bác nhưng tốc đổ xử lý khá chậm = 30s mới ghi xong dữ liệu
Bác xem file đính kèm soạn cho em 1 code mới.
Cảm ơn Anh em GPEX đã ủng hộ

 

[giaiphap]

Thử viết code mù

Sub XYZ()
  Dim shSK As Worksheet, shDL As Worksheet
  Dim DGHI&, r&, c&
 
  Application.ScreenUpdating = False
  Set shDL = Sheets("DULIEU_CHUNG")
  Set shSK = Sheets("SAOKE")
  shDL.Range("C2:I2").AutoFilter
  DGHI = shDL.Range("F3").Value
  If DGHI >= 2 Then
    ThongBao = MsgBox("Trung so hop dong, co ghi de khong?", vbYesNo + vbInformation + vbDefaultButton2, "Thong bao")
    Select Case ThongBao
      Case vbYes 'Xac nhan dung noi dung ghi de
        shSK.Range("A1").Offset(DGHI).Resize(378).Value = shDL.Range("G3:G380").Value
        r = DGHI + 1
        c = 420
        Call AddData(shDL, shSK, r, c)
        MsgBox ("GHI DE THANH CONG!")
      Case vbNo 'Xac nhan khong dung noi dung can xoa
        Exit Sub
    End Select
  Else
    r = shSK.Range("A1").End(xlDown).Row
    shDL.Range("G3:G380").Value = shSK.Cells(r + 1, 1).Resize(378).Value
    c = 420
    Call AddData(shDL, shSK, r, c)
    MsgBox ("SAO LUU MOI THANH CONG!")
  End If
  shDL.Range("G3").Select
  ActiveWorkbook.Save
  Application.ScreenUpdating = True
End Sub

Private Sub AddData(shDL, shSK, r, c)
  Dim aCol, aFor, aRow
  Dim n&, v&, j&, fRow&
 
  aCol = Array("D", "P", "V")
  aFor = Array(6, 7, 10, 7, 7, 10)
  aRow = Array(42, 53, 64, 81, 95, 106)
  For v = 0 To UBound(aFor)
    fRow = aRow(v)
    If v = 1 Then aCol = Array("D", "P", "U", "V")
    For n = 1 To aFor(v)
      For j = 0 To UBound(aCol)
        c = c + 1
        shSK.Cells(r, c).Value = shDL.Cells(fRow, aCol(j)).Value
      Next j
      fRow = fRow + 1
    Next n
  Next v
End Sub

Công nhận bác kiên nhẫn thiệt, tôi nhìn thấy code là không muốn đọc rồi. Mà còn chỉnh sửa kiểu mù nửa.

 

[HieuCD]

Công nhận bác kiên nhẫn thiệt, tôi nhìn thấy code là không muốn đọc rồi. Mà còn chỉnh sửa kiểu mù nửa.

Đang rảnh nên làm thử các vòng For

Bài đã được tự động gộp: 26/3/21

Bác Hiếu CD_ giúp em file đính kèm; Cảm ơn code trên của bác nhưng tốc đổ xử lý khá chậm = 30s mới ghi xong dữ liệu
Bác xem file đính kèm soạn cho em 1 code mới.
Cảm ơn Anh em GPEX đã ủng hộ

File và code có liên quan gì vậy?

 

[Ba Tê]

Bác Hiếu CD_ giúp em file đính kèm; Cảm ơn code trên của bác nhưng tốc đổ xử lý khá chậm = 30s mới ghi xong dữ liệu
Bác xem file đính kèm soạn cho em 1 code mới.
Cảm ơn Anh em GPEX đã ủng hộ

Không ai lưu dữ liệu giống bạn.
Trong file này tôi ghi dữ liệu vào DATA, chuyện ngược lại tính sau nếu bạn đồng ý với DATA kiểu đó.

 

[Hoàng Nhật Phương]

Không ai lưu dữ liệu giống bạn.
Trong file này tôi ghi dữ liệu vào DATA, chuyện ngược lại tính sau nếu bạn đồng ý với DATA kiểu đó.

Cách viết lấy các vùng kết quả dựa vào khai báo trên bảng tính làm cho code trở lên gọn hơn nhiều Thầy ạ.
Thầy xử lý thêm trường hợp nếu có dòng nào trùng dữ liệu cũ (đã được lưu) thì dòng đó không được đưa sang cho con tham khảo với ạ.
Dựa vào 4 cột thông tin nếu trùng cả 4 thì dữ liệu không được đưa sang ạ: Số PA,Họ Tên,Tên TS/Hàng hóa,Mục

 

[Maika8008]

Đơn giản vậy mà mất 30s lưu dữ liệu thì thực là ngạc nhiên đấy!

 

[VetMini]

Đơn giản vậy mà mất 30s lưu dữ liệu thì thực là ngạc nhiên đấy!

Kiểu ghi dữ liệu này thì riêng việc soát lại xem nó có ghi đúng hay không đã gần 30 phút. Xá gì 30 giây chạy code.
Hay là những vị này không bao giờ phải xem lại nhỉ?

 

[SA_DQ]

Mình thì e rằng sự nhiệt tình của các bài trả lời trong bài đăng này đã bị lạm dụng & làm trò cười cho ai đó!

 

[VetMini]

Mình thì e rằng sự nhiệt tình của các bài trả lời trong bài đăng này đã bị lạm dụng & làm trò cười cho ai đó!

Không hẳn đúng.
Rõ ràng ở bài #8, tác giả bài có nói "Đang rảnh nên làm thử"
Bài #10 cũng nói là mình muốn học từ bài #9.
Chỉ có tác giả bài #4 là xúc tép nuôi cò thôi.

 

[SA_DQ]

Không hẳn đúng.

Cũng mong là vậy & đây là cố gắng cuối cùng của mình: Áp dụng macro cha gọi macro con

Bước 1:
Thay vì khai báo 6 tham biến

4 Dim PA_SXTM_B1_C1_D1 As Range:   Dim PA_SXTM_B1_C1_D2 As Range
6 Dim PA_SXTM_B1_C1_D3 As Range:   Dim PA_SXTM_B1_C1_D4 As Range
8 Dim PA_SXTM_B1_C1_D5 As Range:   Dim PA_SXTM_B1_C1_D6 As Range

Ta chỉ khai báo 1 mà thôi:

 Dim D42_47 As Range   '

B2: Tiếp đến khí gán như của bạn:

186 Set PA_SXTM_B1_C1_D1 = Sheets("PA_SXTM").Range("D42")   : 187 Set PA_SXTM_B1_C1_D2 = Sheets("PA_SXTM").Range("D43")
188 Set PA_SXTM_B1_C1_D3 = Sheets("PA_SXTM").Range("D44"):   189 Set PA_SXTM_B1_C1_D4 = Sheets("PA_SXTM").Range("D45")
190 Set PA_SXTM_B1_C1_D5 = Sheets("PA_SXTM").Range("D46"):   191 Set PA_SXTM_B1_C1_D6 = Sheets("PA_SXTM").Range("D47")

Ta chỉ cần gán bỡi 1 dòng lệnh

 Set D42_47=Sheets("PA_SXTM").Range("D42").resize(6)

B3 Viết 1 Macro con có nội dung:

Sub CopyTr(sRng As Range, dRng As Range)
    sRng.Copy
    Sheets("SaoKe").Select
    dRng.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

B4: Cuối cùng thay vì bạn xài các dòng lệnh :

383 Sheets("SAOKE").Range("A1").Offset(DGHI, 420).Value = PA_SXTM_B1_C1_D1:    Sheets("SAOKE").Range("A1").Offset(DGHI, 421).Value = PA_SXTM_B1_C2_D1
385 Sheets("SAOKE").Range("A1").Offset(DGHI, 422).Value = PA_SXTM_B1_C3_D1:    Sheets("SAOKE").Range("A1").Offset(DGHI, 423).Value = PA_SXTM_B1_C1_D2
387 Sheets("SAOKE").Range("A1").Offset(DGHI, 424).Value = PA_SXTM_B1_C2_D2:     Sheets("SAOKE").Range("A1").Offset(DGHI, 425).Value = PA_SXTM_B1_C3_D2

Ta chỉ xài 1 dòng lệnh gọi macro con:

CopyTr D42_47, Sheets("SAOKE").Range("A1").Offset(DGHI, 420)

Bạn có 22 vùng ô cần copy, ta chỉ việc gọi macro con 22 lần & trao cho nó những địa chỉ tương ứng.

 

[khitamdao]

công nhận code của bác chủ khủng thật, đời em chưa bao giờ nghĩ ra được code như này

 

[Quang_Hải]

Bài này chỉ cần một vòng lặp For Next là giải quyết xong bài toán, vậy mà chủ thớt viết một rừng code thấy nể thiệt

 

[ngocbinh.no.kia]

Không ai lưu dữ liệu giống bạn.
Trong file này tôi ghi dữ liệu vào DATA, chuyện ngược lại tính sau nếu bạn đồng ý với DATA kiểu đó.

Ok kiểu lưu dữ liệu rất chuyên nghiệp; nhờ bạn viết giúp Code lấy từ DATA sang PA nữa, xin cảm ơn nhiều.

 

[Cá ngừ F1]

Câu hỏi bạn hỏi từ tháng 3. Sau gần 4 tháng bạn quay lại hỏi tiếp.
Đến cái file gọi là demo thôi cũng không có. Thì không hiểu mọi người giúp bạn kiểu gì bây giờ.

 

[ngocbinh.no.kia]

Câu hỏi bạn hỏi từ tháng 3. Sau gần 4 tháng bạn quay lại hỏi tiếp.
Đến cái file gọi là demo thôi cũng không có. Thì không hiểu mọi người giúp bạn kiểu gì bây giờ.

FILE MAU, Đã có ghi data, còn thiếu Đọc data và xoá data, mọi người xem giúp