Giúp mình về code tự cập nhật vào danh sách (Theo tuyệt chiêu No: 38)

[cazonda]

Mình đã làm theo hướng dẫn trong tuyệt chiêu số 38 rồi mà code này vẫn báo lỗi, các bạn sửa giúp mình nhé:

Private Sub worksheet_change(ByVal target As Range)
Dim lreply As Long
If target.Cells.Count > 1 Then Exit Sub
If target.Address = "$G:$G" Then
If IsEmpty(target) Then Exit Sub
If WorksheetFunction.CountIf(Range("Thang4"), target) = 0 Then _
lreply = MsgBox("Danh sach duoc cap nhat" & target & " vao nguon", vbYesNo + vbQuestion)
If lreply = vbYes Then _
Range("thang4").Cells(Range("Thang4").Rows.Count + 1, 1) = target
End If
End If
End If
End Sub

Cảm ơn cac bạn

 

[ndu96081631]

Mình đã làm theo hướng dẫn trong tuyệt chiêu số 38 rồi mà code này vẫn báo lỗi, các bạn sửa giúp mình nhé:


Cảm ơn cac bạn

Đâu mà End If nhiều thế... Có chăng thì vầy:

 Private Sub worksheet_change(ByVal target As Range)
  Dim lreply As Long
  If target.Cells.Count > 1 Then Exit Sub
  If target.Address = "$G:$G" Then
    If IsEmpty(target) Then Exit Sub
    If WorksheetFunction.CountIf(Range("Thang4"), target) = 0 Then _
      lreply = MsgBox("Danh sach duoc cap nhat" & target & " vao nguon", vbYesNo + vbQuestion)
    If lreply = vbYes Then _
      Range("thang4").Cells(Range("Thang4").Rows.Count + 1, 1) = target
  End If
End Sub

Tuy nhiên tôi hổng hiểu chổ If target.Address = "$G:$G" Then nghĩa là thế nào nữa ---> Chả lẽ nhập liệu 1 lần nguyên cột G à?
Nếu ý bạn muốn nói rằng "Khi nhập liệu gì đó tại cột G thì... " vậy phải sửa lại code như sau:

Private Sub worksheet_change(ByVal target As Range)
  Dim lreply As Long
  If target.Cells.Count > 1 Then Exit Sub
  If target.Column = 7 Then
    If IsEmpty(target) Then Exit Sub
    If WorksheetFunction.CountIf(Range("Thang4"), target) = 0 Then _
      lreply = MsgBox("Danh sach duoc cap nhat" & target & " vao nguon", vbYesNo + vbQuestion)
    If lreply = vbYes Then _
      Range("thang4").Cells(Range("Thang4").Rows.Count + 1, 1) = target
  End If
End Sub

Nói cho cùng, cứ đưa file lên là xong mọi chuyện