Excel - historizace dat

[bloom]

Ahoj, měl bych dotaz na vytvoření makra v excelu. Chtěl bych vytvořit makro, které by po změně hodnot v konkrétní buňce zkopírovalo původní hodnoty v dané buňce do jiné buňky - tedy nějakou historizaci. Nejsem ve VBA ještě kovaný, tak bych rád někoho požádal o radu, pomocí jakých funkcí bych měl historizaci provést. Mnohokrát děkuji za jakokoliv odpověď. bloom

[Reklama]

[d1amond]

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Value <> Target Then
    Range("B1") = Target
    Else
        Set Target = Nothing
        Exit Sub
End If

End Sub

Pokud se změní hodnota jakékoliv aktivní buňky, zkopíruje se její původní obsah do B1, jinak se končí procedura.
Je to narychlo uplácané (cca 2 minuty), je to spíš vodítko jak na věc.

[bloom]

Díky, ale bohužel se mi do B1 kopíruje vždy jen nová hodnota v konkrétní buňce.

[d1amond]

Pravda, to by bylo moc jednoduché.
Možná bych volil metodu dvou listů, záleží o jaká data se jedná a kolik by se jich kopírovalo. Nebylo by to řešení?

VBA nemá fci before_update, která by si pamatovala hodnotu buňky před její změnou.

[bloom]

Nakonec jsem to vyřešil tak, že jsem zkopíroval původní data na nový list a pod ně se kopírují změny.

[d1amond]

To je celkem rozumné, pokud nejde o rozsáhlá data.