Mengenai pertanyaan sebelum ini (case #15345); apa kabarnya bung ?
misal tanggapan2 gak ada gunanya, juga konfirmlah ke penanggap
Lha wong yg lama belum "selesai" kok sudah tanya baru lagi ...
Sudah pernah dengar cerita "orang dan mesin ATM" kah ??
(..geleng-geleng-kepala...cara orang jawa mengexpressikan perasaan..)
'------------
Sub cFindID()
' coded by o'Seno / BeExcel Case #15396
'--------------------------------------
Dim SearchStr As String, FoundAt As Range
SearchStr = Sheets("dBASE").Range("E5").Value
With Sheets("dBASE").Range("T15:T5014")
*Set FoundAt* = .Find(What:=SearchStr)
End With
If FoundAt Is Nothing Then
MsgBox "Tidak ada data [ " & SearchStr & " ] di area tsb.", 48
Else
Sheets("F_INPUT").Range("AD5") = FoundAt.Value
MsgBox FoundAt.Value & " Ketemu di " & FoundAt.Address, 64
End If
End Sub
'--------------------
perhatikan cell tempat ketemunya string yg dicari kita set sebagai range
*o'Seno*
2012/1/25 Supriyanto S <[email protected]>
> **
>
> 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
>
>
