Find with Inputbox Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub FindExactMatch() 
    Dim MyStr As String, InfoMsg As String 
    Dim Rng1 As String, LookupValue As String 
    Dim MyQ As VbMsgBoxResult 
    Dim FoundRng As Variant 
    MyStr = Trim(Application.InputBox("Aranacak metni girin !", _ 
                                     "Find exact match ...")) 
    If Not MyStr = "False" Then 
        Set FoundRng = Cells.Find(MyStr, LookIn:=xlValues, LookAt:=xlPart) 
            If Not FoundRng Is Nothing Then 
                Rng1 = FoundRng.Address 
                FoundRng.Activate 
ResumeSub2: 
            If Right(FoundRng.Value, 1)  " " Then LookupValue = FoundRng.Value & " " 
            MyData = Split(LookupValue, " ", , vbTextCompare) 
            For i = LBound(MyData) To UBound(MyData) 
                If MyData(i) = MyStr Then 
                    InfoMsg = "Aranan metin " & FoundRng.Address(False, False) _ 
                    & " hücresinde bulundu." _ 
                    & vbCrLf & vbCrLf & "Bulunan hücrenin içeriği :" _ 
                    & vbCrLf & vbCrLf & FoundRng.Value & vbCrLf _ 
                    & vbCrLf & "Aramaya devam etmek istiyormusunuz ?" 
                    MyQ = MsgBox(InfoMsg, vbInformation + vbYesNo, _ 
                                 "Arama sonucu...") 
                    If MyQ = vbYes Then GoTo ResumeSub1: 
                    Exit Sub 
                End If 
            Next 
    Else 
            MsgBox "Aranan değer bulunamadı !", vbInformation, "Arama sonucu..." 
            Exit Sub 
    End If 
ResumeSub1: 
    Set FoundRng = Cells.FindNext(FoundRng) 
        If Rng1 = FoundRng.Address Then 
            MsgBox "Aranan değerden başka bulunamadı !", vbInformation, _ 
                   "Arama sonucu..." 
            Exit Sub 
        End If 
        FoundRng.Activate 
        GoTo ResumeSub2: 
    End If 
    Set FoundRng = Nothing 
End Sub 
 -

No	Macro Name
1	Find with Inputbox
2	Protect All Worksheets Now: This is a code for you if you want to protect all your worksheets at once. & Nbsp; When you run this macro, you will find an input box to enter a password. After entering your password, click All. And be careful with CAPS.
3	Hide or show pivot table fields according to a specific criterion
4	Finding sheet / pages with Inputbox
5	fonts in word
6	excel fonts 2
7	excel operators hk
8	rename the additem in the listbox
9	Write your name with file backup message box
10	sheet / page copy (with macro)
11	entering formula with message box
12	Highlight Specific Text: Suppose you have a large data set and want to control a specific value. You can use this code for this. When you run, you receive an input box to enter the value to search for.
13	backup
14	still inputbox
15	specify the number of copies to print from the printer
16	Can the characters typed in the inputbox appear as "*****" (password or password characters)?
17	Inputbox add year as summer
18	summer adds months to sheet / pages
19	inserts months as sheet / pages Specifies days in detail
20	Search for a text / text in all open Excel files

Excel Free Macros (VBA)

Find With Inputbox

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords