VBA.Find and adding a value

by

Take a look at this : 

Sub test_IngaB()
Dim FirstAddress As String, cF As Range, LookForString As String
LookForString = "Cat"

With ThisWorkBook.Sheets("Sheet's name").Range("F:F")
    .Cells(1,1).Activate
    'First, define properly the Find method
    Set cF = .Find(What:=LookForString, _
                After:=ActiveCell, _
                LookIn:=xlFormulas, _
                LookAt:=xlPart, _
                SearchOrder:=xlByColumns, _
                SearchDirection:=xlNext, _
                MatchCase:=False, _
                SearchFormat:=False)

    'If there is a result, keep looking with FindNext method
    If Not cF Is Nothing Then
        FirstAddress = cF.Address
        Do
            cF.Offset(0, 3).Value = 1
            Set cF = .FindNext(cF)
        'Look until you find again the first result
        Loop While Not cF Is Nothing And cF.Address <> FirstAddress
    End If
End With

End Sub

More Related Contents:

  1. Somehow it’s not copying [closed]
  2. VBA macro that search for file in multiple subfolders
  3. So, I have 6 “master” files to then divide into 40 separate files
  4. Getting ScriptControl to work with Excel 2010 x64
  5. Count and Highlight keywords within phrases
  6. Transpose a range in VBA
  7. Protecting cells in Excel but allow these to be modified by VBA script
  8. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  9. Detect merged cells in VBA Excel with MergeArea
  10. Parse HTML content in VBA
  11. How do I name a spreadsheet automatically, by referencing two cells?
  12. Excel VBA Delete Rows
  13. VBA EXCEL To Prompt User Response to Select Folder and Return the Path as String Variable [duplicate]
  14. Should I turn .CutCopyMode back on before exiting my sub procedure?
  15. VBA: How to delete filtered rows in Excel?
  16. Determine whether user is adding or deleting rows
  17. How to use VBA SaveAs without closing calling workbook?
  18. excel vba- extract text between 2 characters
  19. Round function in Excel, worksheet function vs 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. Calling regasm without administrative rights for COM interop in Excel VBA
  25. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  26. How do I activate a specific workbook and a specific sheet?
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment