Ara Bul Renklendirme

Ara Bul Renklendirme

Ara Bul Renklendirme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.









Hazır Kod​

VBA:
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

Açıklama​


[*]Kullanıcıdan Girdi Alma: Kullanıcıdan InputBox ile aranacak terim alınır.
[*]Arama Alanını Ayarlama: UsedRange, aktif sayfanın kullanılan kısmını ifade eder, böylece arama tüm kullanılan alan içerisinde yapılır.
[*]Arama İşlemi: Find metodu, belirtilen arama terimini searchRange içinde arar. Bulunan her hücre FindNext metodu ile döngü içinde gezilir.
[*]Renklendirme: Eşleşen her hücre sarı renkle boyanır. Eğer aranan terim bulunamazsa, kullanıcıya bir mesaj gösterilir.

Nasıl Kullanılır​

  • Bu kodu kullanmak için, Excel'de Alt + F11 tuşlarına basarak VBA editörünü açın.
  • "Insert" menüsünden "Module" seçeneğini tıklayarak yeni bir modül oluşturun.
  • Yukarıda verilen SearchAndHighlight subrutinini bu modüle yapıştırın.
  • VBA editörünü kapattıktan sonra, Excel'de "Developer" sekmesi altında yer alan "Macros" butonuna tıklayarak "SearchAndHighlight" makrosunu seçin ve "Run" butonuna tıklayın.
  • İstenilen arama terimini girin ve sonuçları gözlemleyin.

    Bu makro, büyük veri setlerinde belirli verileri hızlıca bulup görsel olarak işaretlemek için kullanışlıdır. Özellikle veri analizi, veri temizleme veya belirli kriterlere göre verileri revize etme işlemlerinde etkilidir.

    Faydalanılması temennisiyle.
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst