làm sao để ngắt dòng lệnh làm việc lại

[Tường_Vi]

em test đoạn code sau

with target
  If .Address = "$C$5" Then
            If .Value <> "" Then

            .value = ucase$(.value)
            [A16] = .Value

            End If
 End If
end with

sau khỏ bỏ dòng code
.value = ucase$(.value)
thì nó hoạt động ok, nhưng khi thêm dòng này vào nó lại bị làm việc đi, làm việc lại ko nghỉ

Chỉ giúp em nhé

 

[Hoàng Trọng Nghĩa]

em test đoạn code sau

with target
  If .Address = "$C$5" Then
            If .Value <> "" Then

            .value = ucase$(.value)
            [A16] = .Value

            End If
 End If
end with

sau khỏ bỏ dòng code
.value = ucase$(.value)
thì nó hoạt động ok, nhưng khi thêm dòng này vào nó lại bị làm việc đi, làm việc lại ko nghỉ

Chỉ giúp em nhé

Tôi không biết đoạn code trên trong thủ tục gốc của bạn như thế nào, qua kiểm tra tại code dưới đây, tôi thấy rất bình thường, không lặp đi lặp lại gì cả!

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        [COLOR=#ff0000][B]If .Address = "$C$5" And .Value <> "" Then[/B][/COLOR]
            .Value = UCase(.Value): [A16] = .Value
        End If
    End With
End Sub

Bạn không cần thêm 2 cái IF mà chỉ cần AND là OK.