Aktif hücrenin sağındaki hücreyi boyama

[xerorxa]

arkadaşlar ve üstadlar merhaba
şöyle bir kod a ihtiyacım var
açık bir excel dosyasında (3 000 satır büyüklüğünde ) ctrl + f basarak bir değer giriyorum . istediğim şu değeri girip entere bastığımda bulduğu hücrenin sağındaki hücreyi boyasın ve imleç tekrar ctrl+f de hazır bulunsun.
yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarına Uymayan Başlıklar

.

 

[Ömer]

Module kopyalayıp çalıştırın.

Kodları çalışınca bir sorgu kutusu gelir buraya yazdığınız değere göre A sütunun da arama yaparak karşına denk gelen B sütunun daki veri renklenir.

Sub Bul_Renklendir()
 
    Dim c As Range, Adr As Variant, sor As Variant
    sor = InputBox("Bul Renklendir", "Aranan Değer")
    
    If sor = "" Then Exit Sub
    Range("B:B").Interior.ColorIndex = 0
 
    With Range("A:A")
        Set c = .Find(sor, , xlValues, xlWhole)
          If Not c Is Nothing Then
            Adr = c.Address
              Do
                Cells(c.Row, "B").Interior.ColorIndex = 36
                Set c = .FindNext(c)
              Loop While Not c Is Nothing And c.Address <> Adr
          End If
    End With
    
    Bul_Renklendir
    
End Sub

.