EXCEL - změna barvy buňky na základě libovolné změny buňky

Programy pro práci s textem, tabulkami, prezentacemi

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod PPcko 8. 1. 2018 06:28

Dobrý den,

mohli byste mi prosím poradit, jak změnit barvu buňky, ve které došlo ke změně hodnoty?

Jde o rozeznání buňky, do kterých se importovaly nové hodnoty. Proto mi na to jednoduchým způsobem nepasuje standardní podmíněné formátování.

Zatím umím zjistit, ve které buňce došlo ke změně, ale nedaří se mi změnit barvu. viz:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:Z50")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

Call JAKÉ MAKRO???

End If
End Sub


Díky, PP
PPcko
Kolemjdoucí

Odeslat příspěvekod PPcko 8. 1. 2018 17:57

Nakonec vyřešeno takto:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

Set KeyCells = Range("A1:Z50")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

Range(Target.Address).Interior.Color = RGB(144, 234, 128)

End If
End Sub
PPcko
Kolemjdoucí


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 2 návštevníků