Snasui Excel Forum

Code: Select all

Private Sub cmdAdd_Click()
Dim rg As Range

Set rg = Range("P2")

rg.Activate
If rg.Value = "" Then Exit Sub

If IsDuplicate Then
  MsgBox "¢éÍÁÙÅ«éÓ", vbCritical

  Exit Sub
End If

With Worksheets("Data")
  With .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
      .Offset(0, 5).Value = rg.Offset(1, 0).Value
      .Offset(0, 6).Value = rg.Offset(2, 0).Value
      .Offset(0, 8).Value = rg.Offset(3, 0).Value
      .Offset(0, 10).Value = rg.Offset(4, 0).Value
      .Offset(0, 12).Value = rg.Offset(5, 0).Value
  End With
End With


End Sub

Private Function Isuplicate(p) As Boolean
Dim rg As Range
Set rg = Worksheets("Data").Range("A:A")
If rg.Find(p, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
  IsDuplicate = False
Else
  IsDuplicate = True
End If
End Function