Private Sub CommandButton1_Click()
Dim son As Long, i As Byte, say As Byte, x As Long
With ThisWorkbook.Sheets("Sayfa1")
son = .Cells(Rows.Count, 1).End(3).Row
If son < 2 Then Exit Sub
.Range("H2:H" & Rows.Count).Clear
.Range("B2:F" & son).Interior.ColorIndex = xlColorIndexNone
For x = 2 To son
say = 0
If Trim(.Cells(x, 1).Value) <> "" Then
For i = 2 To 6
If .Cells(x, i).Value >= 6 And .Cells(x, i).Value < 11 Then
.Cells(x, i).Interior.Color = vbGreen: say = say + 1
End If
Next
.Cells(x, "H").Value = say
End If
Next
End With
End Sub
Excel'de Hücre Değerine Göre Renklendirmek
Bu Konudaki Yorumlar |
Excel'de Hücre Değerine Göre Renklendirmek - Yazar: Registered - 27/10/2021, 16:02
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: atoykan - 29/10/2021, 00:55
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: Registered - 29/10/2021, 02:26
Re: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: hegu - 29/10/2021, 17:06
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: Registered - 30/10/2021, 03:01
Re: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: feraz - 29/10/2021, 20:43
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: hegu - 29/10/2021, 21:50
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: feraz - 29/10/2021, 21:54
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: hegu - 29/10/2021, 22:01
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: feraz - 29/10/2021, 22:04
RE: Excel'de Hücre Değerine Göre Renklendirmek - Yazar: feraz - 29/10/2021, 22:26
|
Konuyu Okuyanlar: 1 Ziyaretçi