MS Excel

Dobrý den,
Potřebuji zkopírovat pomocí makra při otevření sešitu vše z listu1 do listu2 za podmínky:
V listu 1 je sloupec L a to je textové 40zn pole, kde jsou 4 datumy za sebou, které potřebuji rozhodit do Listu 2 postupně do sloupců L,M,N,O a aby to byl datumový formát. Pokud však bude vyplněn L,M,N,O na listu2 datumy, tak tento řádek smazat, nebo jej nekopírovat z listu1.Dokázal by nějaký borec takové makro vymyslet - já jsem v tomto směru bezradný?
Ukázka jak by to mělo vypadat, je v příloze.
List1 je zdrojový a pokaždé se tomu podsouvají jiná data. Děkuji za každou pomoc

Zaslat odpověď >

Strana: 1 2 další »

Vovka(3.9.2015 15:10)#026618

Všechno jde, když to má nějaká pravidla. Váš příklad není z hlediska svých pravidel moc šikovně vymyšlený. Řetězec 40 znaků, kde jsou bez separátorů vloženy čtyři termíny s časovým oddělovačem tečka, je klasická ukázka, jak se to dělat nemá. Ale rozluštit to jde. Jen to bude zbytečně složité.
Převod termínů v podobě data na List2, ale jen když na Listu2 žádné datumy nejsou, je už problematický. Ve vašem příkladu jsou buňky ve sloupcích L:O obsazeny, ovšem nikoliv datumy, ale špatně vyhodnocenými znakovými řetězci. Jde o obsazené buňky, nebo to jsou logicky prázdné buňky?citovat

bach1(3.9.2015 15:18)#026619

Zápis řetězce je jednoznačný a je to ošetřeno nějakou maskou. Pokud je tam prázdno, je to skutečně 10 mezer odpovídající 10 znakům pro datum.čili 1 datum znak 1-10 pak 11-20 , 21-30 a naposled 31-40. Je fakt, že pokud nebude datum na konci, nemusí tam být nic, ale v tomto případě to nevadí. můžu ještě maskou zabezpečit aby ten datum, který bude první se plnil až na konci řetězce, pak tam bude skutečně vždy 40 zn.citovat

Vovka(3.9.2015 16:04)#026620

Omlouvám se za moc drsný posudek, asi nemám nejlepší den. Na Listu2 jsou data ve sloupcích L:O v pořádku. Rozhoduje to, že ty sloupce mají uvedený dobrý formát.
Myslím, že chcete použít vzorce. Pak do druhého řádku sloupců L:O napište vzorce:
=ČÁST(List1!L2;1;10)
=ČÁST(List1!L2;11;10)
=ČÁST(List1!L2;21;10)
=ČÁST(List1!L2;31;10)
Takto vyplněný řádek zkopírujte do potřebného počtu dalších řádků. Není nutné řešit ani mezery místo dat, ani existenci datumu v poslední položce. Vzorce si s tím poradí samy. Důležité je, že texty ve sloupci L na Listu1 tvrdě dodržují rozdělení po 10 znacích.citovat

bach1(3.9.2015 16:43)#026621

ano to chápu vzorce nejsou problém to je OK.
Já to potřebuji jako sestavu a chci aby se mi pomocí makra při otevření sešitu provedlo to rozkopírování buněk a datumů z listu 1 do buněk v listu 2 a pokud budou vyplněny všechny 4 datumy, tak ten řádek buď v listu2 rovnou smazat, nebo jej do listu2 vůbec nekopírovat.Mám pokaždé jiný počet řádků. Chci to použít jako šablonu při spuštění sestavy, tak proto makrem.citovat

FrantaH(3.9.2015 22:23)#026624

Snad jsem dobře pochopil zadání - soubor je v příloze
Franta

Příloha: zip

26624_zdr1.zip (29kB, staženo 31x)

citovat

bach1(3.9.2015 22:29)#026625

bohužel tam chybí ty datumy.
Zmizet mají jen řádky, které mají vyplněny všechny 4 datumy.
Lze někde vidět to makro?
Ve správci maker jej nevidím.
Díky.citovat

FrantaH(4.9.2015 8:29)#026627

Makro je v ThisWorkbook, proto ho asi správce nevidí. Tvořil jsem to včera doma (Win Xp +Excel 2002) - datumy ve sloupcích jsou. Teď jsem zkusil i v práci (Win 7 + Excel 2010) a vidím je tam také. Mají být jinak nebo jinde?
Posímám screenshot.citovat

FrantaH(4.9.2015 8:34)#026629

Teď snad už doopravdy posílám screenshot - musel jsem zmenšit obrázek

Příloha: jpg

26629_kopiespodm.jpg (114kB, staženo 30x)

citovat

elninoslov(4.9.2015 11:47)#026646

Urobil som Vám jedno riešenie cez pole, rýchle, kompletné, s overovaním a vylúčením riadkov so 4 dátumami, orámovaním. Je to také rýchle, že sa to dá používať takmer OnTheFly :)

Příloha: rar

26646_zdr1.rar (29kB, staženo 28x)

citovat

bach1(4.9.2015 11:48)#026647

Zvláštní, sice to hlášku o spuštění makra hodí, ale nějak se to neprovede, mám Excel 2013

Otestuju to ještě v office 2003citovat

Strana: 1 2 další »

Téma: Zkopirovani buněk s pravidlem asi makro?

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje