Snasui Excel Forum

Code: Select all

Sub Button2_Click()
Dim rFind As Range, rDataAll As Range
Dim r As Range, rTarget As Range
Set rFind = Sheets("Edit").Range("D2")
If Sheets("Edit").Range("D2") = "" Then Exit Sub
With Sheets("DataStore")
    Set rDataAll = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
    If .Columns("b:b").Find(rFind, LookIn:=xlValues) Is Nothing Then
        MsgBox "äÁèÁÕàÅ¢·Õè¹Õé!"
        Exit Sub
    End If
End With
For Each r In rDataAll
    If r = rFind Then
        Set rTarget = Sheets("Edit").Range("C" & Rows.Count).End(xlUp) _
            .Offset(1, 0)
        r.Resize(1, 8).Copy
        rTarget.PasteSpecial xlPasteValues
        rTarget.Offset(0, -1) = Date
    End If
Next r
Application.CutCopyMode = False
MsgBox "Get data has finished."
End Sub