ara-bul, bulunan hücre renkli olsun

[tguldan]

Dprt. içerisinde yaklaşık olarak 2000 adet ürün sayımı sırasında arama (Ctrl+F) yapmak için pencere açtığımızda barkod ile okuttuğumuz yada el ile girmiş olduğumuz numaranın bulunması sonrasında bu numaranın yer aldığı hücrenin renginin sarı olabilmesi konusunda yardımcı olabilecek kimse var mı?

 

[Necdet]

Merhaba,

"Dprt." ne demek bilmiyorum ama basit bir örnek hazırladım. Keşke örnek dosyayı siz hazırlamış olsaydınız. O zaman daha çabuk yanıt alırdınız.


Koşullu Biçimlendirme ile yapılmıştır. Aranan Sözcük B1 hücresine yazılır.

Koşullu Biçimlendirilmiş hücreleri

1. F5
2. Özel
3. Tamam
4. Koşullu Biçimlendirme
5. Tamam

işlemleri ile görebilirsiniz.

 

[tguldan]

Merhaba,

Öncelikle dönüş için teşekkür ederim. Biraz daha net izah etmeye çalışayım. Dprt. (Departman) bünyemizde bulunan ürünlerin sayımını sistemden rapor alarak excel üzerinde gerçekleştiriyoruz. Referans numarasını okuttuğumuzda ilgili referans numarasının bulunduğu hücrenin sarı (yada başka renk) olmasına ihtiyacımız var. Sırayla numara okuttuğumuzda yada yazdığımızda ise bir önceki sarı renkle işaretlemenin kalkmaması gerekiyor. Umarım biraz daha net bilgi vermişimdir. Birde koşullu biçimlendirmenin nasıl yapılacağına dair daha açıklayıcı bilgi yazabilirseniz çok sevinirim. Şimdiden teşekkürler...

 

[Necdet]

Sorunuzu tam olarak anlamadım.

KOŞULLU BİÇİMLENDİRME (CONDITIONAL FORMATTING) için tıklayabilirsiniz.


Ekteki dosyada olduğu gibi olabilir mi? Eğer olursa aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Dim Alan As Range
Set Alan = Range("A2:D" & [A65536].End(3).Row)
Range("C1").ClearContents
With Range("A2:A" & [A65536].End(3).Row)
    Set c = .Find(Target.Value, LookAt:=xlWhole)
    If Not c Is Nothing Then
        İlkAddress = c.Address
        Do
            [C1] = [C1] & " " & c.Address
            Range("A" & c.Row & ":D" & c.Row).Interior.ColorIndex = 19
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> İlkAddress
    End If
End With