koşullu biçimlendirme

[acar6783]

Neyse ben anlayamadın sanırım.
Tek tek silecekseniz uğraşmayın Bul değiştir kullanın

 

[acar6783]

Peki sorunuz şu mu?

7 5 8 0 0,1 2

Sayıları var hücrelerde.Bunlardan 0 dan büyük ama 0 a yakın en küçük sayı renklensin istiyorsunuz.?
Doğrumudur:?

 

[acar6783]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E6:AI6")) Is Nothing Then Exit Sub
Range("E6:AI6").Interior.Pattern = xlNone
 say = WorksheetFunction.CountIf([E6:AI6], "<=0") + 1
enkucuk = WorksheetFunction.Small([E6:AI6], say)
For i = 5 To 35
If Cells(6, i) = enkucuk Then Cells(6, i).Interior.Color = vbRed

Next
End Sub

Kodu bu şekilde değiştirin . Sanırım bu şekilde.Yine yanlışanladıysam ben yokum bu konuda

 

[ibrahimy72]

tmm oldu tşkler oldu çok sağolaun

 

[acar6783]

Rica ederim kolay gelsin

 

[Emir Hüseyin Çoban]

. . .

Yardımcı bir hücre kullanılarak koşullu biçimlendirme ile yapılabilir.

. . .

 

[acar6783]

Evet
Mesela A1 hücresine =KÜÇÜK(E6:AI6;EĞERSAY(E6:AI6;"<=0")+1) Formülü yazılıp
Koşullu biçimlendirme >> yalnızca şunu içeren>>hücre değeri>> eşit>>=$A$1
yazın olacaktır