Alhamdulillah..,clear sdh permasalahannya...
Pak Zainul dan Pak Seno matursuwun atas bantuannya. hanya saja untuk vb
dari pak seno ada sedikit koreksi...
Nah skarang untuk case #15345 dan #15396 boleh kita clouse kan pak
seno/zainul...
Terima kasih saya ucapkan semoga kedepan jika ada pertanyaan ato mohon
bantuan dari saya bapak bapak tetep siap membantu saya.
supriy
'------------
Sub cFindID()
' coded by o'Seno / BeExcel Case #15396
'--------------------------------------
Dim SearchStr As String, FoundAt As Range
'SearchStr = Sheets("dBASE").Range("E5").Value
SearchStr = Sheets("F-INPUT").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
'--------------------
Pada 25 Januari 2012 20:07, Supriyanto S <[email protected]> menulis:
> heheheee coly em sory pak seno...., untuk yg kmarin belum memenuhi apa
> yang saya harapkan. karena yg saya inginkan sperti yg pertyan baru ini...
> but kulo inggih matursuwun pun pean bantu...
>
> lha sing niki kulo coba rumiyen nggihhhhh
>
>
> Pada 25 Januari 2012 19:41, o' Seno <[email protected]> menulis:
>
> **
>>
>>
>> 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
>>>
>>>
>>
>
>
