HELP CODE GÁN TRẢ DỮ LIỆU

[quocbui48]

Hi mọi người
hiện tại mình đang vướng 1 vấn đề như sau, khi nhập giá trị sô "1" vào ô bất kỳ của range P6:AN6 thì giá trị P4 or Q4 or R4,.....AN4 sẽ trả về cho cột O6
note: O6 nhận giá trị là số "1" của công đoạn kế tiếp
mong mọi người chỉ giáo với ạ
cảm ơn all !

 

[bebo021999]

Dùng code này, đặt trong sheet module (Không đặt trong thẻ module)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ce As Range
If Intersect(Target, Columns("P:AN")) Is Nothing And Target.Row < 5 Then Exit Sub
For Each ce In Target
    If ce.Value = 1 Then Cells(ce.Row, "O").Value = Cells(4, ce.Column).Value
Next
End Sub

 

[HUONGHCKT]

Hi mọi người
hiện tại mình đang vướng 1 vấn đề như sau, khi nhập giá trị sô "1" vào ô bất kỳ của range P6:AN6 thì giá trị P4 or Q4 or R4,.....AN4 sẽ trả về cho cột O6
note: O6 nhận giá trị là số "1" của công đoạn kế tiếp
mong mọi người chỉ giáo với ạ
cảm ơn all !

Làm đại. Thử tham khảo code này xem sao.
Chép lại code này vào cửa sổ VBE của sheet(tiếng Tàu)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Intersect(Target, Range("P6:N6")) Is Nothing Then
    If Target = 1 Then
        Range("O" & Range("O1000").End(xlUp).Row + 1) = Target.Offset(-2, 0)
        Cells(Range("O1000").End(xlUp).Row, Target.Column) = Target
    End If
End If
Application.EnableEvents = True
End Sub

Xem file

 

[quocbui48]

Dùng code này, đặt trong sheet module (Không đặt trong thẻ module)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ce As Range
If Intersect(Target, Columns("P:AN")) Is Nothing And Target.Row < 5 Then Exit Sub
For Each ce In Target
    If ce.Value = 1 Then Cells(ce.Row, "O").Value = Cells(4, ce.Column).Value
Next
End Sub

hi bác vẫn không chạy được bác ơi hic

Bài đã được tự động gộp: 7/12/23

Làm đại. Thử tham khảo code này xem sao.
Chép lại code này vào cửa sổ VBE của sheet(tiếng Tàu)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Intersect(Target, Range("P6:N6")) Is Nothing Then
    If Target = 1 Then
        Range("O" & Range("O1000").End(xlUp).Row + 1) = Target.Offset(-2, 0)
        Cells(Range("O1000").End(xlUp).Row, Target.Column) = Target
    End If
End If
Application.EnableEvents = True
End Sub

Xem file

khi nhập số 1 thì nó không trả dữ liệu về cột O đâu bác hic

 

[SA_DQ]

@Chủ bài đăng: Tại vì trên trang tính thì tiếng Anh; nhưng tên trang tính là tiếng tào lao nào đó nên khó có thể xuôi chèo mát mái . . . .
→← →← →← →← →← →←

 

[HUONGHCKT]

hi bác vẫn không chạy được bác ơi hic

Bài đã được tự động gộp: 7/12/23

khi nhập số 1 thì nó không trả dữ liệu về cột O đâu bác hic

thế thì cái gì đây?

... khi nhập giá trị sô "1" vào ô bất kỳ của range P6:AN6 thì giá trị P4 or Q4 or R4,.....AN4 sẽ trả về cho cột O6

 

[quocbui48]

thế thì cái gì đây?

ok rồi bác
cảm ơn các bác nhiều, đa tạ