Jak stworzyć makro, które zmienia automatycznie zmienia kolor komórki po zmianie jej wartości z zewnętrznego linku?

Question

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. :)

Answer 1

do tego celu najlepiej wykorzystać : "formatowanie warunkowe"

http://naukaexcel.pl/podstawy/jak-dziala-formatowanie-warunkowe-w-excelu/

a jeśli koniecznie chcesz makro , które napisałeś to prawdopodobnie trzeba przypisać je do zdarzenia onchange arkusza..- jakiejkolwiek zmiany danych