Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Range
For Each i In Range("X35:BE35", "X56:BE56")
With Cells(i.Row, i.Column).Resize(1, 1)
Select Case i.Value
Case Is = Range("K25"): .Interior.ColorIndex = 36
Case Is = Range("C25"): .Interior.ColorIndex = 36
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
Next i
Set i = Nothing
End Sub
Yukarıdaki kod ile X35:BE35 arasında ve X56:BE56 arasında; hücrelerin değeri K25 veya C25 hücresinin değerine eşitse bu aralıkta eşit olan hücrelerin dolgu renginin açık sarı (renk kodu 36) olması, eşit değilse dolgu renginin olmaması sağlanmaktadır.
Soruma gelince; bu aralıkta hücrelerin değeri K25 veya C25 hücresinin değerine eşit değilse eşit olmayan hücrelerin dolgu renginin açık sarı (renk kodu 36) olması, eşitse dolgu renginin olmamasını nasıl sağlarım?
Kodun tersini yani yaptım fakat olmadı.
Tersi olarak aşağıdaki kodu uyguladım:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Range
For Each i In Range("X35:BE35", "X56:BE56")
With Cells(i.Row, i.Column).Resize(1, 1)
Select Case i.Value
Case Is = Range("K25"): .Interior.ColorIndex = xlNone
Case Is = Range("C25"): .Interior.ColorIndex = xlNone
Case Else: .Interior.ColorIndex = 36
End Select
End With
Next i
Set i = Nothing
End Sub
Yardımlarınızı bekliyorum...
Dim i As Range
For Each i In Range("X35:BE35", "X56:BE56")
With Cells(i.Row, i.Column).Resize(1, 1)
Select Case i.Value
Case Is = Range("K25"): .Interior.ColorIndex = 36
Case Is = Range("C25"): .Interior.ColorIndex = 36
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
Next i
Set i = Nothing
End Sub
Yukarıdaki kod ile X35:BE35 arasında ve X56:BE56 arasında; hücrelerin değeri K25 veya C25 hücresinin değerine eşitse bu aralıkta eşit olan hücrelerin dolgu renginin açık sarı (renk kodu 36) olması, eşit değilse dolgu renginin olmaması sağlanmaktadır.
Soruma gelince; bu aralıkta hücrelerin değeri K25 veya C25 hücresinin değerine eşit değilse eşit olmayan hücrelerin dolgu renginin açık sarı (renk kodu 36) olması, eşitse dolgu renginin olmamasını nasıl sağlarım?
Kodun tersini yani yaptım fakat olmadı.
Tersi olarak aşağıdaki kodu uyguladım:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Range
For Each i In Range("X35:BE35", "X56:BE56")
With Cells(i.Row, i.Column).Resize(1, 1)
Select Case i.Value
Case Is = Range("K25"): .Interior.ColorIndex = xlNone
Case Is = Range("C25"): .Interior.ColorIndex = xlNone
Case Else: .Interior.ColorIndex = 36
End Select
End With
Next i
Set i = Nothing
End Sub
Yardımlarınızı bekliyorum...