Co takhle:
Sub secti()
'sečte hodnoty v buňkých A1 a B2
Soucet = Range("A1").Value + Range("B2").Value
'do buňky A1 zapíše součet buněk A1 a B2
Range("A1").Value = Soucet
'vymaže hodnotu v buňce B2
Range("B2").ClearContents
End Sub
Sub secti()
'sečte hodnoty v buňkých A1 a B2
Soucet = Range("A1").Value + Range("B2").Value
'do buňky A1 zapíše součet buněk A1 a B2
Range("A1").Value = Soucet
'vymaže hodnotu v buňce B2
Range("B2").ClearContents
End Sub
Příloha: 5997_soucet.rar (9kB, staženo 15x)
citovat