nguyen tan dat
Yêu THVBA
em được ông anh cho 1 file ex..khi chạy xuất hiện lỗi " run time error 438", nhớ mấy anh chị giúp em kiểm tra lỗi và sửa dùm em với.
[
CODE]'Chon sheet TCVN de tao danh muc cong viec:
Sheets("TCVN").Select
'Loc bo gia tri trung de dua vao DanhMuc:
Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000").Select
Selection.ClearContents
Range("AC" & Range("TCVN_Start").Value + 3 & ":AC" & Range("TCVN_Stop").Value - 1).Select
Selection.Copy
Range("AC" & Range("TCVN_Stop").Value + 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000").RemoveDuplicates Columns:=1
'Sap xep danh muc cong viec theo A, B, C:
ActiveWorkbook.Worksheets("TCVN").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TCVN").Sort.SortFields.Add2 Key:=Range("AC" & Range("TCVN_Stop").Value + 3), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TCVN").Sort
.SetRange Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
][/ICODE]
[
CODE]'Chon sheet TCVN de tao danh muc cong viec:
Sheets("TCVN").Select
'Loc bo gia tri trung de dua vao DanhMuc:
Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000").Select
Selection.ClearContents
Range("AC" & Range("TCVN_Start").Value + 3 & ":AC" & Range("TCVN_Stop").Value - 1).Select
Selection.Copy
Range("AC" & Range("TCVN_Stop").Value + 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000").RemoveDuplicates Columns:=1
'Sap xep danh muc cong viec theo A, B, C:
ActiveWorkbook.Worksheets("TCVN").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TCVN").Sort.SortFields.Add2 Key:=Range("AC" & Range("TCVN_Stop").Value + 3), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TCVN").Sort
.SetRange Range("AC" & Range("TCVN_Stop").Value + 3 & ":AC1000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
][/ICODE]