Find and FindNext for Excel VBA

by

You don’t need FindNext if you start each Find after the previous one:

Sub qwerty()
   Dim rFirst As Range, r As Range
   Dim A As Range
   Set A = Range("A:A")
   Do
      If rFirst Is Nothing Then
         Set rFirst = A.Find(What:=1, After:=A(1))
         Set r = rFirst
      Else
         Set r = A.Find(What:=1, After:=r)
         If r.Address = rFirst.Address Then Exit Do
      End If
         MyString = MyString & " " & r.Offset(0, 1)
   Loop

   MsgBox MyString
End Sub

enter image description here

More Related Contents:

  1. using for loop for vba
  2. Simple VBA code to open cells one after the other
  3. Open folder in new instance
  4. Copy data from cell in selected row
  5. Refer to sheet using codename
  6. VBA Macro On Timer style to run code every set number of seconds, i.e. 120 seconds
  7. Assign code to a button created dynamically
  8. Last not empty cell (column) in the given row; Excel VBA
  9. HTML Text with tags to formatted text in an Excel cell
  10. Split comma separated entries to new rows [closed]
  11. Get list of Excel files in a folder using VBA [duplicate]
  12. Select first empty cell in column F starting from row 1. (without using offset )
  13. How to count up text of a different font colour in excel
  14. Excel VBA – QueryTable AfterRefresh function not being called after Refresh completes
  15. Excel VBA: AutoFill Multiple Cells with Formulas
  16. VBA.Find and adding a value
  17. excel vba- extract text between 2 characters
  18. Round function in Excel, worksheet function vs VBA
  19. How to continue the code on the next line in VBA
  20. Excel VBA Userform – Execute Sub when something changes
  21. Count the number of rows in another sheet [duplicate]
  22. Getting Excel to refresh data on sheet from within VBA
  23. VBA Password Input with Cancel Function
  24. Finding first blank row, then writing to it
  25. Iterating through all the cells in Excel VBA or VSTO 2005
  26. How can I display my windows user name in excel spread sheet using macros? [closed]
  27. How does Excel’s worksheet password protection work
  28. Hiding active workbook programmatically in Excel
  29. Excel VBA Project has generated multiple Workbook objects
  30. How to find a value in an excel column by vba code Cells.Find

Leave a Comment