Thay hàm bằng Code cho đơn giản (1 người xem)

[hoahuongduong1986]

Em làm phiền các anh chị chút với ạ;
Em muốn thay hàm bằng COde cho nhẹ hơn thì làm sao ạ.

(1) Tại Sheet "Tình trạng" tại cột E, nếu em tích "x" thì sẽ tự cập nhật nội dung từ Cột C sang Cột D
(2) Sau đó Copy nội dung cột D này sang Cột E của Sheet "Cap nhạt"

Anh chị giúp em với ạ. Em cảm ơn ạ.

 

[leonguyenz]

Em làm phiền các anh chị chút với ạ;
Em muốn thay hàm bằng COde cho nhẹ hơn thì làm sao ạ.

(1) Tại Sheet "Tình trạng" tại cột E, nếu em tích "x" thì sẽ tự cập nhật nội dung từ Cột C sang Cột D
(2) Sau đó Copy nội dung cột D này sang Cột E của Sheet "Cap nhạt"

Anh chị giúp em với ạ. Em cảm ơn ạ.

Tham khảo code và file đính kèm:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E6:E13")) Is Nothing Then
    If Target.Count = 1 Then
        If Target.Value = "x" Then
            Target.Offset(, -1) = Target.Offset(, -2).Value
            Dim Tmp As Range, Rng As Range
            Set Rng = Sheet2.Range("B5:B12")
            Set Tmp = Rng.Find(Target.Offset(, -3), , , 2, , , False)
            If Not Tmp Is Nothing Then
                Tmp.Offset(, 3) = Target.Offset(, -1).Value
            Else
                MsgBox "Khong tim thay Ma Hang " & Target.Offset(, -3)
            End If
        Else
            Target.Offset(, -1) = Empty
        End If
    End If
End If
End Sub

 

[hoahuongduong1986]

Tham khảo code và file đính kèm:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E6:E13")) Is Nothing Then
    If Target.Count = 1 Then
        If Target.Value = "x" Then
            Target.Offset(, -1) = Target.Offset(, -2).Value
            Dim Tmp As Range, Rng As Range
            Set Rng = Sheet2.Range("B5:B12")
            Set Tmp = Rng.Find(Target.Offset(, -3), , , 2, , , False)
            If Not Tmp Is Nothing Then
                Tmp.Offset(, 3) = Target.Offset(, -1).Value
            Else
                MsgBox "Khong tim thay Ma Hang " & Target.Offset(, -3)
            End If
        Else
            Target.Offset(, -1) = Empty
        End If
    End If
End If
End Sub

Em cảm ơn Anh nhiều ạ !