Aranan Kelimelerin Yanına İsteneni Yazdırma

Aranan Kelimelerin Yanına İsteneni Yazdırma, VBA kullanarak belirtilen kelimeyi bulmakta ve hemen yanına istenen mesajı yazmaktadır.

Excel VBA ile Aranan Kelimelerin Yanına İsteneni 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 bilgi 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:

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

Yararlanılması temennisiyle.