Excel 2000 - přenos dat z několika buňek do jedné

popiš dále: co když bude v a1 i a2 nějaká hodnota, v c1 má být jejich součet, průměr, nebo jen ta poslední změna?

poslední změna. při změně hodnoty kterékoli buňky sloupce a1 bych chtěl mít právě tuto hodnotu v buňce c1.

Mám to:

Editor VBA (alt+F11) - přidat do modulu listu proceduru:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Set Target = Target.Resize(1, 1)
Me.Range("c1").Value = Target.Value
Set Target = Nothing
End Sub

..a je to.

výše uvedené ale funguje jenom na první sloupec, případně to jde aplikovat na první dva, třeba atd. zmněnou

If Target.Column > X Then Exit Sub

kde X znamená prvních X sloupců, které budou mít vliv na změnu "c1." Nevěděl by někdo, jak definovat konkrétní sloupec, třeba pouze D? A případně jak použít tři různé sloupce na tři různé buňky? Díky...

Tento kód premietne poslednú zmenu v stĺpci D do bunky C1:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Set aRange = Intersect(Target, Range("D:D"))
    If Not aRange Is Nothing Then
        Range("C1").Value = aRange.Value
    End If
    
    'Dim bRange As Range
    'Set bRange = Intersect(Target, Range("E:E"))
    'If Not bRange Is Nothing Then
    '    Range("C2").Value = bRange.Value
    'End If
End Sub

Odkomentovaná časť v kóde naznačuje, ako to rozšíriť tak, aby sa zmena v ďalšej oblasti premietla do inej bunky.

To je úžasný!!! Na to bych sám nikdy nepřišel. Díky moc, paráda.