< návrat zpět

MS Excel


Téma: Buňka pro všechno rss

Zaslal/a 14.8.2015 15:53

Potřebuji:
mám buňku třeba (A1) když do ní zadám datum potřebuji aby se datum zkopírovalo do buňky třeba (B1) jenže potřebuji když zadám jiné datum do buňky (A1) aby se zadalo nové datum do buňky (C1) a v buňce B1 zůstalo původní datum.shrnutí je takové že potřebuji vždy když zadám nové datum do buňky A1 aby se vyplňovalo do další a další buňky
díky za odpovědi

Zaslat odpověď >

#026270
elninoslov
Tento riadok kódu do makra listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(1, 1)) Is Nothing And Cells(1, 1) <> "" Then Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Value = Cells(1, 1)
End Sub
citovat
#026291
avatar
Ahoj.
děkuji za odpověd můžu poprosit o trošku podrobnější vysvětlení nějak mi to tam nelze vložit díky moc.citovat
#026292
avatar
Ten zápis je naprosto správný. Doporučuji ho neopisovat, ale přímo zkopírovat! Za jedinou jeho vadu lze pokládat strašidelnou délku a tím i špatnou čitelnost celého příkazu. Problém je v tom, že ověření použitelnosti provedené změny na listu ani zjištění první volné buňky v řádku není ve VBA úplně triviální úloha. Čitelnosti zápisu by možná prospělo rozepsání celé konstrukce do více příkazů.citovat
#026296
avatar
Mohu poprosit ještě v tom vzorci musím zadat ještě jaká to bude Buňka že ?. potřebuji to takhle do buňky K5 až Kx.. budu zadávat hodnoty a do buňky M5 až x5 se hodnoty budou zaznamenávat vždy když přepíšu hodnotu v buňce K5. Ještě mě napadlo že mohu do buňky přidat tlačítko a vždy když na něj kliknu se hodnota uloží do buňky definované od M5 až x5.
Takto to bude jednoduší pro ovládání.

děkuji za infocitovat
#026297
avatar
Pokud jsem správně pochopil Vaši potřebu, pak řešení najdete v příloze
Příloha: zip26297_udalostchange.zip (14kB, staženo 19x)
citovat
#026299
avatar
Ano ano je to přesně ono velice vám děkuji jste nejlepší.

kdybych potřeboval ještě něco doplnit ozval bych se ale tohle je supr..

ještě jednou díky.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje