• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Označení poslední aktivní buňky

Zaslal/a an_cek 7.8.2017 14:38

Zdravím. Potřeboval bych pomoct s tvorbou makra. Idea je taková, že po změně hodnoty buňky v oblasti B13:O199, se automaticky spustí makro, která změní výplň ve změněné buňce.

Makro vypadá takhle.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("b13:o199")
If Not Application.Intersect(KeyCells, Range("b13:o199")) _
Is Nothing Then
ActiveCell.Interior.ColorIndex = 5
End If
End Sub

Problém je, že díky použití ActiveCell, se mi vždy označi buňka do které z té měněné přejdu (např. změním F13 , klávesou ENTER přejdu do F14. V tu chvíli se mi označi F14) . Existuje něco jako LastActiveCell? Podařilo se mi vygooglit, že existuje PrevActiveCell, ale to mi prostě nefunguje?

Vím, že by to šlo řešit sledováním změn, ale tuto funkci bohužel nemůžu z různých důvodů použít.

Díky za odpověď.

Zaslat odpověď >

---

marjankaj(7.8.2017 14:47)#037182

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target,Range("b13:o199"))Is Nothing Then
Targetl.Interior.ColorIndex = 5
End If
End Subcitovat

Anonym(7.8.2017 14:53)#037183

marjankaj napsal/a:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 5
End Sub

Funguje to přesně jak jsem si představoval. Díky moc.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse