Code VBA Báo Lỗi Run-time error "13": Tybe mímatch (1 người xem)

[vuongtoituonglai]

Chào các anh chị và các bạn!
Tôi có 1 file excel không biết code bị lỗi như thế nào mà mỗi lần tôi chọn 2 cell trở lên, từ bòng B10 trở xuống để xóa dữ liệu hoặc copy dữ liệu Paste vào vùng này code báo lỗi.
Anh chị và các bạn xem file và chỉ tôi cách khắc phục.
Chân thành cảm ơn

 

[SA_DQ]

Bạn thêm dòng lệnh này sẽ không báo lỗi; Nhưng còn macro này có hoạt động đúng í đồ của bạn hay không lại là chuyện khác:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Union([B10:B100], [C10:C100], [E10:E100]), Target) Is Nothing Then
    If Target.Cells.Count > 1 Then Exit Sub     '<=|'
   Application.EnableEvents = False
   Target.Value = UCase(Target)
   Application.EnableEvents = True
End If
End Sub

 

[doveandrose]

nếu làm biếng thì có thể sửa đại như vầy

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Union([B10:B100], [C10:C100], [E10:E100]), Target) Is Nothing Then
   Application.EnableEvents = False
   For r = 1 To Target.Rows.Count
       Target(r).Value = UCase(Target(r))
   Next
   Application.EnableEvents = True
End If
End Sub

 

[vuongtoituonglai]

nếu làm biếng thì có thể sửa đại như vầy

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Union([B10:B100], [C10:C100], [E10:E100]), Target) Is Nothing Then
   Application.EnableEvents = False
   For r = 1 To Target.Rows.Count
       Target(r).Value = UCase(Target(r))
   Next
   Application.EnableEvents = True
End If
End Sub

Cảm ơn bạn, tôi thấy code báo lỗi tại dòng For r = 1 To Target.Rows.Count

 

[vuongtoituonglai]

Bạn thêm dòng lệnh này sẽ không báo lỗi; Nhưng còn macro này có hoạt động đúng í đồ của bạn hay không lại là chuyện khác:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Union([B10:B100], [C10:C100], [E10:E100]), Target) Is Nothing Then
    If Target.Cells.Count > 1 Then Exit Sub     '<=|'
   Application.EnableEvents = False
   Target.Value = UCase(Target)
   Application.EnableEvents = True
End If
End Sub

Cảm ơn HYen17 mọi chuyện đã ổn rồi.