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.
[*]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.
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.