Aranan Kelimelerin Yanına Bulundu Yazdırma, VBA kullanarak belirtilen kelimeyi bularak hemen yanına "Bulundu" yazmaktadır.
Excel VBA ile Aranan Kelimelerin Yanına Bulundu Yazdırma
Bu VBA kodu, belirlenen bir kelimeyi B sütununda aramaktadır. Daha sonra, eğer eşleşen bir hücre bulursa, onun yanındaki hücreye "Bulundu" ifadesini eklemektedir. Bu yöntem, uzun listelerde belirli verileri işaretlemek için oldukça kullanışlıdır.Hazır Kodlar
Dosyadaki bu işlemi yapan VBA kodları aşağıdaki gibidir:
VBA:
Sub bul()
Dim hucre As Range, kelime As String
kelime = Sayfa1.Range("B3").Value
i = 0
For Each hucre In Sayfa1.Range("B6:B" & Range("B" & Sayfa1.Rows.Count).End(xlUp).Row)
i = i + 1
If hucre = kelime Then
hucre.Offset(0, 1) = "Bulundu"
End If
Next hucre
End Sub
Büyük Küçük Harf Fonksiyonlarını Kullanma
2025-03-15
Hücre Değerine Göre Otomatik Bilgi Girme
2025-03-15