Stránka 1 z 1
Excel 2003-aktualizace databáze Vyřešeno
Napsal: 11 kvě 2009 21:23
od 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.
Re: Excel 2003-aktualizace databáze
Napsal: 11 kvě 2009 22:27
od 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 ...
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 16:12
od 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
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 17:23
od 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
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 18:26
od 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
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 19:00
od mike007
V příloze.
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 19:39
od 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
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 20:07
od 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.
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 20:16
od 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)
Re: Excel 2003-aktualizace databáze
Napsal: 12 kvě 2009 20:26
od 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é.