code tạo item khi chỉnh sửa báo lỗi code

[VUDER]

xin chào cả nhà!
mình có 1 file tạo item sản phẩm, nhung khi mình muốn chỉnh sửa lại thì cose báo lỗi
"
Cells(Range("B2").Value, Cells(Target.Row, Target.Column + 12).Value).Value = Target.Value
End If" dòng này

 

[Hieu042]

bạn không đưa file lên cho mọi người dễ hiểu

 

[VUDER]

bạn không đưa file lên cho mọi người dễ hiểu

mình đưa file rồi, bạn xem giúp mình

 

[batman1]

Tung tập tin lên chưa phải là đủ.
Luôn phải mô tả mình cần làm gì, kết quả nhập ở đâu, theo qui tắc nào.

Nêu là đoán mò thì

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Me.Range("B4").Value = False And Me.Range("B3").Value = False Then
        If Not Intersect(Target, Me.Range("E5, H5, K5, N5, E7, H7, K7, N7, E9, H9, K9, N9")) Is Nothing Then
            Application.EnableEvents = False
            Me.Cells(Range("B2").Value, Target.Column + (Target.Row - 7) / 2).Value = Target.Value
            Application.EnableEvents = True
        End If
    End If
End Sub

Hoặc code sau dễ hiểu hơn nhiều.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Long
    If Target.Count = 1 And Me.Range("B4").Value = False And Me.Range("B3").Value = False Then
        If Not Intersect(Target, Me.Range("E5, H5, K5, N5, E7, H7, K7, N7, E9, H9, K9, N9")) Is Nothing Then
            Application.EnableEvents = False
            If Target.Row = 5 Then
                c = Target.Column - 1
            ElseIf Target.Row = 7 Then
                c = Target.Column
            Else
                c = Target.Column + 1
            End If
            Me.Cells(Range("B2").Value, c).Value = Target.Value
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[VUDER]

Tung tập tin lên chưa phải là đủ.
Luôn phải mô tả mình cần làm gì, kết quả nhập ở đâu, theo qui tắc nào.

Nêu là đoán mò thì

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Me.Range("B4").Value = False And Me.Range("B3").Value = False Then
        If Not Intersect(Target, Me.Range("E5, H5, K5, N5, E7, H7, K7, N7, E9, H9, K9, N9")) Is Nothing Then
            Application.EnableEvents = False
            Me.Cells(Range("B2").Value, Target.Column + (Target.Row - 7) / 2).Value = Target.Value
            Application.EnableEvents = True
        End If
    End If
End Sub

Hoặc code sau dễ hiểu hơn nhiều.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Long
    If Target.Count = 1 And Me.Range("B4").Value = False And Me.Range("B3").Value = False Then
        If Not Intersect(Target, Me.Range("E5, H5, K5, N5, E7, H7, K7, N7, E9, H9, K9, N9")) Is Nothing Then
            Application.EnableEvents = False
            If Target.Row = 5 Then
                c = Target.Column - 1
            ElseIf Target.Row = 7 Then
                c = Target.Column
            Else
                c = Target.Column + 1
            End If
            Me.Cells(Range("B2").Value, c).Value = Target.Value
            Application.EnableEvents = True
        End If
    End If
End Sub

5n

cám ơn bạn , mình sẻ rút kinh nghiệm
cho mình hỏi thêm, khi add new cell mình nhâp giá trị vào cell N5 , dể rỗng N7, N9 -> khi mình save lai cell N7, N9 thể hiện giống giá trị N5
bạn chỉ giúp dùm mình
cám ơn nhiều

 

[batman1]

Hãy mô tả kỹ vì tôi thuộc diện châm hiểu.
"add new cell" có nghĩa là gì? cell thì đã có sẵn trên trang tính rồi, sao lại "add cell"?

Bạn nhập vào N5 rồi làm gì?

khi mình save lai cell N7, N9 thể hiện giống giá trị N5

"Save lại" có nghĩa là làm gì? Đừng bắt người khác phải đoán. Hãy mô tả sao cho người ta không phải suy nghĩ thêm gì.

Bạn nhập vào N5 rồi làm gì? Mà cho vd. cụ thể. Vd. "Tôi nhập vào N5 giá trị 12345. Sau đó tôi làm "cái này, cái này" thì kết quả có N7 = 12345, N9 = 12345."

Nếu chỗ nào có thể dùng tiếng Việt thì dùng tiếng Việt, đừng cố tình nửa Tây nửa Ta.