Lọc và kết chuyển phiếu bằng VBA (1 người xem)

[congtutapyeu]

Em muốn kết chuyển phiếu như trong file đính kém, mong các anh giúp đỡ.

 

[Quang_Hải]

Em muốn kết chuyển phiếu như trong file đính kém, mong các anh giúp đỡ.

Thử thế này xem sao

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Count = 1 Then
   If Target.Column = 5 And UCase(Target) = "X" Then
      Target.Offset(, -3).Resize(, 3).Copy
      With Sheets(Target.Offset(, -3).Value)
         .[B65536].End(3).Offset(1).PasteSpecial 3
         .[A65536].End(3).Offset(1) = Target.Offset(, -3) _
         & Right(Val(Right(.[A65536].End(3), 3)) + 1001, 3)
      End With
   Application.CutCopyMode = False
   End If
End If
Application.ScreenUpdating = True
End Sub