[belajar-excel] Mohon disempurnakan

[Supriyanto S]

Yth
Para Guru Excel

Saya mohon bantuannya, untuk vb di bawah ini disempurnakan sesuai keinginan
saya.
Yang saya inginkan bahwa hasil dari pencarian (*=Search*) disini bisa
diterjemahkan ke dalam Range atau alamat (=*("T508")* shingga bisa
dilakukan copypaste.

Demikian dan sebelumnya terima kasih atas bantuannya

supriy



Sub cFindID()
Dim Search As String
On Error GoTo ErrorCatch

Search = Range("E5").Value
Sheets("dBASE").Select
Range("T15:T5014").Select
    Selection.Find(What:*=Search*, After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

    Range*("T508")*.Select
    Selection.Copy
    Sheets("F-INPUT").Select
    Range("AD5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Exit Sub

ErrorCatch:
MsgBox "ga nemuken..?!"

End Sub