maaf salah dikit, kurang syntax selection didepan .find
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 = Selection.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
> 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
>
