find and list them in a message Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub FindItAll()
    Dim oSheet As Object
    Dim Firstcell As Range
    Dim NextCell As Range
    Dim WhatToFind As Variant
    WhatToFind = Application.InputBox("What are you looking for ?", "Search", , 100, 100, , , 2)
        If WhatToFind  "" And Not WhatToFind = False Then
            For Each oSheet In ActiveWorkbook.Worksheets
            oSheet.Activate
            oSheet.[a1].Activate
            Set Firstcell = Cells.Find(What:=WhatToFind, LookIn:=xlValues, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
                If Not Firstcell Is Nothing Then
                Firstcell.Activate
                MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & Firstcell.Address)
                On Error Resume Next
                    While (Not NextCell Is Nothing) And (Not NextCell.Address = Firstcell.Address)
                    Set NextCell = Cells.FindNext(After:=ActiveCell)
                        If Not NextCell.Address = Firstcell.Address Then
                        NextCell.Activate
                        MsgBox ("Found " & Chr(34) & WhatToFind & Chr(34) & " in " & oSheet.Name & "!" & NextCell.Address)
                        End If
                    Wend
                End If
            Set NextCell = Nothing
            Set Firstcell = Nothing
            Next oSheet
        End If
End Sub

No	Macro Name
1	find and list them in a message
2	change the message text written in macro
3	excel operators hk
4	visual and beautiful userform
5	Find a message
6	find and copy and paste in macro
7	find and list
8	find macro
9	calculator on / off
10	Find the last cell and address it as a message
11	writes the names of all sheet / pages from the active sheet / page and cell and adds a link to the sheet / pages
12	records detailed formatted cells on the records sheet / page
13	a1: a50 search names in textbox list in listbox
14	Finding the Number of Each Item in the List Using the VBA and Pivot Table
15	I want to throw the full cells in row with text between a1: an1000 into listbox
16	find-delete-change-save codes2
17	sorts data and finds name
18	sorts data and finds name
19	Codes that prevent and open the vba window and access codes
20	specify partition, list how many files you have

Excel Free Macros (VBA)

Find And List Them İn A Message

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords