Excel - zaznamenání času změny hodnoty buňky - II. díl Vyřešeno

[VHody]

ahoj,
narazil jsem na téma, ve kterém byl vyřešen požadavek o zaznámenání času při změně hodnoty buňky pomocí "zobrazit kód". Funguje to n1, nicméně se snažím marně vztáhnout tuhle možnost na tabulku.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Cells(1, 3) = Now
End If
End Sub

nebo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(2, 7) = Now
End If
End Sub

tyhle dva vzorce zohlední změnu buď v konkrétní buňce nebo sloupci........boha ale nemůžu příjít na zahrnutí tabulky. Přišel jsem pouze na řádek:)
Potřeboval bych návod, jak se mi ukáže čas v určené buňce (A1), když v tabulce (např. 14R x 7C) někdo změní hodnotu.

a) v tabulce celé jako takové
b) v tabulce lze měnit hodnoty pouze každého druhé řádku;)

Chtěl jsem to obejít pomocí fnc. suma, kdy jsem součet každého řádku zahrnul do sloupce (a na sloupec vzorec už mám:)), ale změnu hodnoty pomocí vzorce to nebere.....

díky, ahoj Venca

[Reklama]

[navstevnik]

Pro zaznamenani zmeny v bloku bunek napr.: B1:F6 pouzij nasledujici udalostni proceduru v modulu prislusneho listu:

Kód: Vybrat vše

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Me.Range("b1:f6"), Target) Is Nothing Then Exit Sub
  Me.Range("a1").Value = Now
End Sub

[VHody]

Díky

// Označuji za vyřešené
// mike007