CTRL+F arama yapınca bulunan hücre renklensin

[meda58]

çok arama yaptım ama istediğim gibi bulamadım korumalı sayfada CTRL+F tuşuna basınca veya düğme ile farketmez arama yapınca bulunan renklensin ANCAK CTRL+F kapatılınca her şey eskisi gibi olsun yani renkler kalmasın şimdiden teşekkürler

 

[Korhan Ayhan]

Linkte benzer bir soru var.

Renklendirme

Excel sayfa 1 A sütununda A1 ile A50000 Arasında okuldaki öğrenci numarası bulunmaktadır. Benim amacım control f ile arama yaptığım zaman bulduğu öğrenci noyu kırmızıya otomatik boyaması. Örneğin : öğrenci no 97 ben control f ye 97 yazıp ara dediğim zaman A sütununda bulunan 97 sayısını...

www.excel.web.tr

 

[meda58]

Linkte benzer bir soru var.

Renklendirme

Excel sayfa 1 A sütununda A1 ile A50000 Arasında okuldaki öğrenci numarası bulunmaktadır. Benim amacım control f ile arama yaptığım zaman bulduğu öğrenci noyu kırmızıya otomatik boyaması. Örneğin : öğrenci no 97 ben control f ye 97 yazıp ara dediğim zaman A sütununda bulunan 97 sayısını...

www.excel.web.tr

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect

If Intersect(Target, Range("H:J")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.Cells.Interior.Color = 255


ActiveSheet.Protect

End Sub


hocam kendime uygun hale getirdim gayet güzel çalışıyor yalnız şöyle bir sorun var
koşullu biçimlendirme ile yaptığım hücreleri renklendirmiyor bunu yapmamız mümkünmü

hocam birde rengi siyah yazıyı beyaz yapabilirmiyiz

 

[necati]

CTRL+F tuşuna basınca veya düğme ile farketmez arama yapınca bulunan renklensin ANCAK CTRL+F kapatılınca her şey eskisi gibi olsun yani renkler kalmasın şimdiden teşekkürler

Merhaba, alternatif olarak koşullu biçimlendirmenin change olayına uyarlanmış şekli size daha uygun olabilir.
Bir modülün en üst satırına şunu ekleyin:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal wClassName As Any, ByVal wWindowName As String) As Long

Sonra da ilgili sayfanın koduna şunu ekleyin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rng As Range
    
  
ActiveSheet.Unprotect
 On Error Resume Next
    
    Dim wHandle As Long
    Dim wName As String
If Intersect(Target, Range("H:J")) Is Nothing Then Exit Sub

    wName = "Bul ve Değiştir"
    'wName = "Find and Replace" 'İngilizce excel için...
    wHandle = FindWindow(0&, wName)
    If wHandle = 0 Then
        rng.FormatConditions.Delete
    Else
        rng.FormatConditions.Delete
    Target.FormatConditions.Add(Type:=xlExpression, Formula1:=True).Interior.ThemeColor = xlThemeColorLight1

    With Selection.FormatConditions(1)
        .Font.Color = vbWhite
    End With
    
    Set rng = Target
    End If

ActiveSheet.Protect

End Sub

 

[meda58]

Merhaba, alternatif olarak koşullu biçimlendirmenin change olayına uyarlanmış şekli size daha uygun olabilir.
Bir modülün en üst satırına şunu ekleyin:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal wClassName As Any, ByVal wWindowName As String) As Long

Sonra da ilgili sayfanın koduna şunu ekleyin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rng As Range
 

ActiveSheet.Unprotect
On Error Resume Next
 
    Dim wHandle As Long
    Dim wName As String
If Intersect(Target, Range("H:J")) Is Nothing Then Exit Sub

    wName = "Bul ve Değiştir"
    'wName = "Find and Replace" 'İngilizce excel için...
    wHandle = FindWindow(0&, wName)
    If wHandle = 0 Then
        rng.FormatConditions.Delete
    Else
        rng.FormatConditions.Delete
    Target.FormatConditions.Add(Type:=xlExpression, Formula1:=True).Interior.ThemeColor = xlThemeColorLight1

    With Selection.FormatConditions(1)
        .Font.Color = vbWhite
    End With
 
    Set rng = Target
    End If

ActiveSheet.Protect

End Sub

hocam gayet güzel çalışıyor fakat koşullu biçimlendirmeyi iptal ediyor koşullu biçimlendirmenin iptal olmaması lazım


ilginize çok çok teşekkürler

 

[necati]

Ctrl+F yapınca renk değişsin kapatınca eski haline dönsün demiştiniz, bu tam o şekilde.
Renklendirme devamlı kalsın istiyorsanız 2 nolu mesajı kulanmaya devam edebilirsiniz.
Sayfada başka koşullu biçimlendirmeler var galiba. Bu örnekte bir tane "FormatConditions(1)" olduğu varsayılmıştır.