Ara Bul Renklendirme

Sub SearchAndHighlight()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstAddress As String
    Dim searchTerm As String

    ' Kullanıcıdan arama terimi al
    searchTerm = InputBox("Aranacak kelimeyi giriniz:", "Arama Terimi")

    ' Eğer kullanıcı bir şey girmeden iptal ederse, makroyu sonlandır
    If searchTerm = "" Then Exit Sub

    ' Aktif çalışma sayfasını ayarla
    Set ws = ActiveSheet
  
    ' Arama yapılacak alan (tüm sayfa varsayılan olarak)
    Set searchRange = ws.UsedRange
  
    ' Arama terimiyle ilk buluşu bul
    Set foundCell = searchRange.Find(What:=searchTerm, LookIn:=xlValues, LookAt:=xlPart)

    ' Eğer bir sonuç bulunursa
    If Not foundCell Is Nothing Then
  firstAddress = foundCell.Address
  Do
' Hücreyi sarıyla işaretle
foundCell.Interior.Color = RGB(255, 255, 0)
    
' Sonraki buluşu ara
Set foundCell = searchRange.FindNext(foundCell)
  Loop While Not foundCell Is Nothing And foundCell.Address <> firstAddress
    Else
  MsgBox "Aranan terim bulunamadı."
    End If
End Sub