Merhabalar,
Aşağıdaki gibi renklendirme kodu var, fakat saat formatı 00:00 olduğu için 00:00 /01:30 dan önce işlem görmüş adetleri olumsuz ( kırmızı renklendiriyor) bunun normalde yeşil olarak renklendirilmesi gerekiyor. Bir türlü düzeltemedim yardımcı olabilir misniz?
Sub Renklendirme()
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("f2:l" & fcount).Interior.Color = xlNone
Range("f2:l" & fcount).Font.Color = 0
For i = 2 To fcount
For j = 6 To 12
If Cells(i, j).Value > Cells(i, 5).Value Then
Cells(i, j).Interior.Color = 255
Cells(i, j).Font.ThemeColor = xlThemeColorDark1
Else
Cells(i, j).Interior.Color = 5296274
Cells(i, j).Font.Color = -16777216
End If
Next j
Next i
Range("a1").Select
End Sub
Aşağıdaki gibi renklendirme kodu var, fakat saat formatı 00:00 olduğu için 00:00 /01:30 dan önce işlem görmüş adetleri olumsuz ( kırmızı renklendiriyor) bunun normalde yeşil olarak renklendirilmesi gerekiyor. Bir türlü düzeltemedim yardımcı olabilir misniz?
Sub Renklendirme()
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("f2:l" & fcount).Interior.Color = xlNone
Range("f2:l" & fcount).Font.Color = 0
For i = 2 To fcount
For j = 6 To 12
If Cells(i, j).Value > Cells(i, 5).Value Then
Cells(i, j).Interior.Color = 255
Cells(i, j).Font.ThemeColor = xlThemeColorDark1
Else
Cells(i, j).Interior.Color = 5296274
Cells(i, j).Font.Color = -16777216
End If
Next j
Next i
Range("a1").Select
End Sub
SonİşlemSaati | 20220308 | 20220309 | 20220310 | 20220311 | 20220313 |
00:30 | 22:04 | 21:12 | 21:34 | 22:08 | 20:53 |
00:00 | 20:33 | 21:24 | 20:42 | 19:43 | 20:38 |
01:30 | 23:01 | 21:59 | 17:42 | 13:00 | 22:13 |
01:30 | 19:53 | 20:37 | 19:52 | 21:07 | 19:46 |