ms excel

[usman_mohammad2]

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

[kakaasif]

yar app column ko range de kar select karen aur M.S Excel ka apna search box "Ctrl + F" daba kar search karsaktey hain

[usman_mohammad2]

ayesaa tu min bhee kar saktaa hoo likan min es min search bar create karna chahtaa hoon

[ammhai]

Sorry

[usman_mohammad2]

keya yahaan par koee bhee excel k bary min nahee jantaa ?

[syar]

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.

[usman_mohammad2]

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.

salam .

[arifraza]

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

[syar]

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

[usman_mohammad2]

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

ik he cell min hi English and Urdu

[usman_mohammad2]

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

bhai jaan min es ko zaroor share karoon ga likn es halat min nahee blka kuch achee halt min jis se koee word dondny min asaani hoo

[syar]

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.