Excel 2003-aktualizace databáze Vyřešeno

[Vítek]

Dobrý večer,
potřeboval bych vzorec nebo nějáký způsob jak aktualizovat databázi.
Příklad je v příloze a potřebuji to, že když zjistím, že mám aut 7, tak abych do buňky napsal "2" a ono se to hned zaktualizovalo (to bych ještě zvládl =B1+C1), ale když zjistim, že za týden jsem dostal zase 3 auta (bude tam z minula už 7 a ted potřebuji, aby tam bylo 10) a napíšu to tam, tak to zase nezapočítá ty 2.
Samozřejmě uvítám i jiné nápady.

[Reklama]

[mike007]

Vítej na Pc-help!

Nevím, zda jsem dobře pochopil zadání. Po celodenním sezení u počítače mi to už nemyslí.

Mrkni do přílohy jestli je to ono co myslíš. Hodnota, kterou vložíš do buňky C1 se ti automaticky přičte k celkové hodnotě v buňce B1. Podobné je to u C2, C3 ...

[Vítek]

Tak to je úplně super!!!
Jen ještě jestli by to šlo bez těch maker a jestli ne tak jestli se do dá nějákým efektivnějším způsobem rozkopírovat na více buněk. Já to udělal asi do 31 a pak mě to už nebavilo jelikož jsem musel zkopírovat příkaz a přepsat všechny čísla. Díky

[navstevnik]

Pouziti makra je jedine mozne reseni, nebot k obsahu bunky pricte vlozenou hodnotu a vysledek je do bunky vlozen.
V priloze je upravena procedura Worksheet_Change, nebot neni osetreno opakovane volani procedury zmenami, ktere vykonava sama procedura:

Kód: Vybrat vše

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address = "$C$1" Then
    Application.EnableEvents = False
    Range("b1") = Range("b1") + Range("c1")
    Range("c1").ClearContents
    Application.EnableEvents = True
  End If

  If Target.Address = "$C$2" Then
    Application.EnableEvents = False
    Range("b2") = Range("b2") + Range("c2")
    Range("c2").ClearContents
    Application.EnableEvents = True
  End If

  If Target.Address = "$C$3" Then
    Application.EnableEvents = False
    Range("b3") = Range("b3") + Range("c3")
    Range("c3").ClearContents
    Application.EnableEvents = True
  End If

End Sub

[Vítek]

A jak to prosím Vás mam udělat, aby to fungoval na buňkách C4 a dál aniž bych to musel kopírovat. Váš přrozený soubor u C3 končí. Díky

[mike007]

V příloze.

[Vítek]

Tak a úplně poslední dotaz. Jak mám přepsat hodnoty aby to sčítalo přesně v části kam jsem do dal v příloze? Díky moc

[mike007]

V příloze. Doufám, že to nemáš v plánu zase posunout. Nejdříve by ses měl pořádně rozmyslet jak to bude ve finále vypadat a pak teprve prosit o pomoc. Takhle akorát plýtváš mým časem.

[Vítek]

Strašně moc se omlouvám, ale jen jsem chtěl vědět jak to mám udělat. Nevěděl jsem, že je to tak složitý, ale přesto mockrát díky.(Stejně jsem to nepochopil ty si přepsal jen 3 na 6 a to je vše)

[mike007]

Opravil jsem po tvém "zásahu" trochu víc věcí než jen číslo sloupce, ale to je jedno. Jestli je to tedy vše, označ vlákno za vyřešené.