Sayfa içerisinde arama

[işsiz123]

1-) A1 hücresinde yazdığımız veriyi sayfa içerisinde arasın bulduğu sonucu da belirginleştirsin.
2-) sayfadaki hücreleri ensona kadar küçütmuşüm hücreye veri girdiğimde hücre boyutu degişmesin sabit kalsın

 

[Ömer BARAN]

Merhaba.

Yanlış anlamıyorsam A1 hücresine yazdığınız değerle aynı olan hücrelerin belirginleşmesini istiyorsunuz.

Bunu aşağıdaki iki yöntemle yapabilirsiniz;
-- KOŞULLU BİÇİMLENDİRME;
... İşlemin uygulanmasını istediğiniz alanı seçin (örneğin A1:K30 aralığı gibi)
... Alan seçiliyken, KOŞULLU BİÇİMLENDİRME menüsünden YENİ KURALı seçin ve
FORMÜL KULLAN seçeneğini seçip ve formül alanına =VE($A$1<>"";$A$1=A1) formülünü yapıştırın,
zemin rengi olarak KIRMIZIyı seçerek işlemi onaylayın.
-- MAKRO KULLANMAK (A1 hücresine elle veri yazıyorsanız);
Alt taraftan uygulama sitediğiniz sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi
seçtiğinizde açılaçak olan VBA ekranının sağ tarafındaki boş kısmına aşağıdaki kod'u yapıştırın.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Cells.Interior.Color = xlNone: Set alan = UsedRange
    For Each hücre In alan
        If Target <> "" And hücre = Target Then hücre.Interior.ColorIndex = 3
    Next hücre
End Sub[/FONT]

 

[işsiz123]

Aynen öyle teşekkürler

 

[işsiz123]

hücre dikkat çekmesi

hücreler küçük olduğundan tek hücre dolgusu dikkat çekmiyor bulduğu sonucu geliş çapta dikkat çektirsin

 

[Korhan Ayhan]

Biçimlendirmek istediğiniz alanı seçin. Örnek; A2:K30)
Koşullu biçimlendirme formül bölümüne aşağıdaki formülü uygulayın. Dilediğiniz rengi seçip işlemi tamamlayın.

=EĞERSAY($[COLOR="Red"]A[/COLOR]2:$[COLOR="red"]K[/COLOR]2;$A$1)>0

Seçtiğiniz alandaki sütun harfleri ile önerdiğim formüldeki kırmızı renkli alanlar aynı olmalıdır.