Нямах много време да разгледам това което искаш, но пробвай това дали ще ти свърши някаква работа или поне насока на къде да гледаш, проблема е, че не винаги става, номера се получава само когато обоче се извърши някакво пресмятане


Private Sub Worksheet_Calculate()
Dim Cell As Range
Dim Rng As Range
Set Rng = Range("A1:G20")
Set Cell = Selection



If Not Intersect(Cell, Rng) Then

If Cell.Offset(-1, 0).Value <> "" Then Cell.Offset(-1, 0).Interior.ColorIndex = 6
Else
End If


End Sub

Съдържаниет е скрито
Влезте за да го видите