salaam u aleykum
min ms excel min ik search box create karna chahtaa hoon jo k mere data min se jo k Column E min hi ous min se jo word min tyipe kroon ous ko finde kery
koee expert help kary ga ?
thnx
salaam u aleykum
min ms excel min ik search box create karna chahtaa hoon jo k mere data min se jo k Column E min hi ous min se jo word min tyipe kroon ous ko finde kery
koee expert help kary ga ?
thnx
yar app column ko range de kar select karen aur M.S Excel ka apna search box "Ctrl + F" daba kar search karsaktey hain
ayesaa tu min bhee kar saktaa hoo likan min es min search bar create karna chahtaa hoon
Sorry
keya yahaan par koee bhee excel k bary min nahee jantaa ?
salam::
Kia aap thoda sa screen shot dainge aur apna expected result.
Kia aap ko macro approach darkar ha k apna text lekhain aur button click karna par aap ka search result aa jae.If it is one time excersie why not try with the help of function.
regards.
Wese aghr Seach Engine ban jaye tu bohat acha hia .
--------------------
Bhai jaan aghr app yeh Dictionary Share kar den tu haimen bhi Fiyada ho jaye ga
[IMG]http://i919.***********.com/albums/ad33/arifraza/Denguevirus.jpg[/IMG]
salam::
Search Engine banane ki leye thoda sa time dain. Main try karta hon Jaise k excel ka apna hota hia. Kia english auruski translation aik he cell main ha ya alag cell main.
Dosra aap search ki jagha filter bhe istimal kar sakte hain.
regards
Aik code deta hon ye excel ki search engine ki he tarah kam karai ga.
lekan us se fast ho ga. aap ki requirement ka mutabiq search box par thoda kam rehta ha
jo k agar aap intizar kar sako tu wednesday ko de sakon ga. Kiyon k mujhe do din k leye kahen jana ha.
Filhal is se kam chalain. Aap aur dosre dost is main tarmim ke leye mushwara zaror dain.
code ko lekhne ke leye follow karain.
Alt+F11 press karain.
Open hone wale New window main Insert====>Module select karain.
aur ye code paste kar dain.
-------------------------------------------------------------------------------
Public Sub FindText_test()
'Run from standard module, like: Module1.
Dim SheetsToSearch As Variant
Dim ws As Worksheet, Found As Range, rngNm As String
Dim myText As String, FirstAddress As String, thisLoc As String
Dim AddressStr As String, foundNum As Integer
SheetsToSearch = Array("sheet1") '<- place anywhere you like, but before the following, just change/add as many as you need
myText = InputBox("Enter the text that you want to search for:", "Start Search!")
If myText = "" Then Exit Sub
For Each sTs In SheetsToSearch
Set ws = Worksheets(sTs)
With ws
Set Found = .UsedRange.Find(what:=myText, LookIn:=xlValues, MatchCase:=False)
If Not Found Is Nothing Then
FirstAddress = Found.Address
Do
foundNum = foundNum + 1
rngNm = .Name
AddressStr = AddressStr & .Name & " " & Found.Address & vbCrLf
thisLoc = rngNm & " " & Found.Address
Sheets(rngNm).Select
Range(Found.Address(RowAbsolute:=False, _
ColumnAbsolute:=False)).Select
myFind = MsgBox("I have located your text """ & myText & """ in cell!" & vbCr & vbCr & _
thisLoc, vbInformation + vbOKCancel + vbDefaultButton1, "Search Result!")
If myFind = 2 Then Exit Sub
Set Found = .UsedRange.FindNext(Found)
Loop While Not Found Is Nothing And Found.Address <> FirstAddress
End If
End With
Next sTs
If Len(AddressStr) Then
MsgBox "Found: """ & myText & """ " & foundNum & " times." & vbCr & _
AddressStr, vbOKOnly, myText & " - was found in these cells only"
Else:
MsgBox "Unable to find your text '" & myText & "' in this workbook.", vbExclamation, "Search Completed!"
End If
End Sub
---------------------------------------------------------------------------------------------------------
Is ko run karne k leye shorcut bana lain ya run macro ki command par clik karain (agar aap ko maloom na hu tu excel
k course main class nine dekhain)
Thanks and regards.
Bookmarks