Hỏi cách sort trước khi validation

[Tường_Vi]

Em đang thử tạo code nhưng thấy báo lỗi tại

    .Sort [AA2], 1, , , , , , xlNo

code đủ

  If Target.Column = 3 And Target.Row > 6 Then
    With Sheet1.Range("AA2:AD" & [AA10000].End(xlUp).Row)
    .Sort [AA2], 1, , , , , , xlNo
    End With
    With Target.Validation
    .Delete
    .Add 3, , , "=VSL"
    .IgnoreBlank = True
    .ShowError = True
    .ShowInput = True
    .ErrorMessage = "Wrong Vsl ,re-type"
    End With
  End If

Xin các Huynh chỉ giúp

 

[huuthang_bd]

Em đang thử tạo code nhưng thấy báo lỗi tại

    .Sort [AA2], 1, , , , , , xlNo

code đủ

  If Target.Column = 3 And Target.Row > 6 Then
    With Sheet1.Range("AA2:AD" & [AA10000].End(xlUp).Row)
    .Sort [AA2], 1, , , , , , xlNo
    End With
    With Target.Validation
    .Delete
    .Add 3, , , "=VSL"
    .IgnoreBlank = True
    .ShowError = True
    .ShowInput = True
    .ErrorMessage = "Wrong Vsl ,re-type"
    End With
  End If

Xin các Huynh chỉ giúp

Bạn sửa lại như thế này xem:

  If Target.Column = 3 And Target.Row > 6 Then 
    With Sheet1.Range("AA2:AD" & Sheet1.[AA10000].End(xlUp).Row)
    ......