Kopirování buňky s datem do komentáře

[George.K]

Zdravím
přečetl jsem několik témat a problém jsem skoro vyřešil
(přenést obsah buňky do komentáře jiné buňky, buněk je několik stovek a počet poroste).
Ale - obsahem buňky je datum - vnitřně 40148 naformátovan aby se zobrazoval jako 01.12.2009
Takže, když v cyklu přenesu obsah - v komentáři mám 40148
Jak tam dostat 01.12.2009?
Pro cyklus používám makro od
navštěvníka ( http://www.pc-help.cz/viewtopic.php?f=35&t=47005&p=321685&hilit=excel+koment%C3%A1%C5%99#p321685 ).

Pokud by někdo poradil - potřeboval bych spíš zadat sloupec A (kam se má komentář zkopírovat) a sloupec B (odkud se mají brát komentáře).
Počet řádku v obou sloupcích je vždy stejný.
Makro by zjistilo kolik řádku je zapsaných a po doplnění dalšího údaje (řádku) by se automaticky doplnil nový komentář.

Předem díky

[Reklama]

[d1amond]

Bohužel navstevnik toto fórum již nenavštěvuje a celkem tu chybí, nicméně se pokusíme to dát dohromady.

Před vložením do komentáře přetypuj proměnou "datum" (ja ji nazval datum, nevim jak v tom makru)

Kód: Vybrat vše

Format(CDate(datum), "dd/mm/yyyy")


[George.K]

Díky za rychlou reakci :-)
Pomohlo to.
Jo, jo navštěvník chybí ...

To bylo "rychle řešení", ale šlo by i to "stále řešení" (jiné makro) - viz druhá část původního dotazu.

[d1amond]

To by neměl být problém, kouknu na to večer.
Jestli to dobře chápu, tak je třeba aby když v buňce B1 bude číslo (jako datum), tak aby se vložilo automaticky do komentáře v buňce A1? Makro od navstevnika je uzpůsobené tak, aby se automaticky přizpůsobila velikost pole s komentářem - to je tam největší část kódu. V tomto případě by to šlo zjednodušit, pokud má být v komentáři pouze datum.

[George.K]

Laboroval jsem s makrem a
-převádí datum dobře
-k zarovnaní komentáře stačí AutoFit (nebude tam nic jiného)
- nedá se použít původní algoritmus, protože ve sloupci A se hodnoty (jména) opakují
- postačuje tedy proste --> komentář A1 = obsah buňky B1 :-)
- ale s auto zastavením na poslední buňce sloupce A
- to by mělo provést stávajících několik stovek zápisů a pak NĚJAK reagovat na nový zápis
Možná dvě makra? ...

Díky

[d1amond]

KontrolaKomentare.xlsm

(18.79 KiB) Staženo 16 x

Makro KontrolaKomentare() se pouští ručně. Projde všechny buňky v A až po poslední obsazenou buňku v B a pokud chybí komentář, doplní se.
(Šlo by to pouštět i automaticky, např. při otevření sešitu?)

Procedura Worksheet_Change kontroluje změnu jakékoliv! buňky ve sloupci B a pokud je hodnota číslo, doplní datum do komentáře v A.

//opravil jsem podmínku, kdy po výmazu buňky (=0), se doplnil komentář s datem počátku věků, které počítá Microsoft

[George.K]

Díky, ale asi jsem si vybral špatná písmenka (A, B)
Nemyslel jsem tím přímo sloupce ale proměnnou. V reálu je totiž "B" až někde u dvoupísmenných názvů (AO a může se u každé tabulky změnit). A je v realu D.
Nevejde se to ani na širokou obrazovku, proto jse si tenhle důležitý údaj chtěl "posunout" doleva aby byl na očích a nemuselo se stále přejíždět doprava.
A "ukotvení příčky" znám :-) ale tohle mi to neřeší

Dík

[d1amond]

KontrolaKomentare.xlsm

(19 KiB) Staženo 16 x

Předělal jsem to tedy parametricky.
V procedurách v Module1 a na Worksheet1 si akorát upravuj proměnné "zdroj" a "cil", což jsou čísla sloupců, ze kterých má hodnoty brát a kam kopírovat.

[George.K]

Zatím dík, jen jsem to v rychlosti projel.
Nefunguje aktualizace zápisů. Možná bude problém v tom, že ja mám datum naformátován a ty máš formát "obecný".
Pokud bunky přeformatuje na datum - nefunguje to

[d1amond]

KontrolaKomentare.xlsm

(18.66 KiB) Staženo 14 x

Tak snad už

[George.K]

Díky.
Už skoro jo :-)
problém je v tom, že nesmím udělat chybu. Pokud chci obsah buňky opravit hodí to chybu (Run-time error 1004). Obsah se sice opraví ale makro se zastaví a obsah komentáře se nezmění...

[d1amond]

No jasně. Nejdřív se musí starý smazat a nový přidat. Nebo jej pouze editovat. Mrknu na to.

//mažu komentář, pokud tam nějaký byl.

KontrolaKomentare.xlsm

(19.31 KiB) Staženo 19 x