Coba dirubah menjadi:
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
Set c = .Find(Search, LookIn:=xlValues, SearchOrder:=xlByColumns)
If Not c Is Nothing Then exit sub
c.copy
'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
From: [email protected] [mailto:[email protected]]
On Behalf Of Supriyanto S
Sent: Wednesday, January 25, 2012 12:34 PM
To: [email protected]
Subject: [belajar-excel] Mohon disempurnakan
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
Set c = .Find(Search, LookIn:=xlValues, SearchOrder:=xlByColumns)
If Not c Is Nothing Then exit sub
c.copy
'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
