Sub KPInajutro()
If ThisWorkbook.Sheets("Arkusz3").Cells(15, 10).Value > 0.5 Then
Cells(15, 10).Interior.Color = vbRed
Cells(14, 10).Interior.Color = vbRed
Else
Cells(15, 10).Interior.Color = vbGreen
Cells(14, 10).Interior.Color = vbGreen
End If
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.column = 10 Then
Call Module14.KPInajutro
End If
End Sub
Stworzyłem makro, którego funkcja jest opisana w pytaniu. Użyłem do tego funkcji Worksheet_Change, aby komórka w zależności od wartości zmieniała kolor z zielonego na czerwony i odwrotnie. Problem w tym, że makro działa tylko wtedy kiedy, wartość zostanie wpisana ręcznie przez użytkownika. Komórki, które mają uzyskać odpowiedni kolor pobierają wartości z dwóch innych komórek - jednak makro nie potrafi odczytać zmiany wartości, ponieważ zmiana dokonała się poza ręczną ingerencją użytkownika. Co jest nie tak?
Z góry dziękuję za pomoc. :)