Příspěvky uživatele
< návrat zpět
Sice už sem Elninoslov vložil řešení pomocí pole, ale když už sem se s tím drbal...
Přikládám svůj soubor, defacto je to to samé jako má elninoslov akorát jiný styl zápisu.
Co píše Elninoslov o těch třech převodových stupních je pravda. Při nastavení hodnot zuby - 9, 12 a 3 převodové stupně excel přestal odpovídat (možná je to slabým železem), po přidání breakpointu a krokování sem se dostal na hodnotu přes 250 000 řádků, pak mě to přestalo bavit.
Nebo řešení pomocí pole.
Aby nedocházelo k problikávání obrazovky, stačí odstanit apostrof (') před řádkem Application...
Řádek jsem zakomentoval aby bylo vidět, že se vinka mění.
Do editoru se dostaneš ALT+F11
EDIT: Ještě by to chtělo pohrát si s formátem buněk. Předposlední vin je "delší" a dochází k "vytištění" prázdné stránky.
Radek-Klepacek napsal/a:
Nevím proč, ale vždy to havaruje na
Radku = .Cells(Rows.Count, 1).End(xlUp).Row - 1Příloha: 40640_test.zip (376kB, staženo 1x)
Problém je v předchozím řádku
With wsUrgence
CodeName tvého listu je List1
Má tedy být
With List1
ale to ti elninoslov psal hned ve svém příspěvku
PS: wsUrgence a wsStrategickeDily som si pomenoval CodeName listov.
takto?
Edit:
Teď sem kouknul na první příspěvek a vzorec tam již máš. Stačí změnit hodnoty, které si přeješ zobrazit.
Petr1222 napsal/a:
Ano, ten řádek se má zkopírovat pouze pokud se objeví určité jméno, jinak ne. Ostatní data z jiného jména by se měli zkopírovat do jiného sešitu.
-Například když se objeví jméno Petr, zkopíruje se celý řádek se všemi hodnotami do sešitu "Petr hotovo"
Když jméno Lucie tak opět celý řádek se zkopíruje do sešitu "Lucie hotovo"
-Kopírují se pouze hodnoty, barvy, orámování ani formát ne.
Nejdůležitější je, aby se to kopírovalo do dalšího sešitu, ne pouze listu. Oba dva sešity využívají pouze List1 (nemají více listů jak 1)
-sloupce hlavičky nemají
Ty vole chlape tohle jako myslíš vážně?! Dyť to kompletně mění zadání! A opět vyvolává další otázky. A jako třešnička na dortu (co se stává standartem - bohužel 
) žádná příloha.Kolegovy výše přeji pevné nervy s tímto "úkolem". Mám takové tušení, že se v průběhu času zadání opět změní.
Napadla mě ještě jedna věc, a to automatický zápis hodnoty "ano" do tabulky po odeslání emailu a hlavně kontrola proměnné TEXT zda není prázdná, aby nedocházelo k odesílání prázdné zprávy pokud bude u všech materiálů uvedena hodnota "ano".
Ahoj, tak přikládám svůj pokus. Vyzkoušej jestli Ti bude vyhovovat
Sub Vymaz_nezamcene_bunky_v_listech()
Dim c As Range
Dim List As Worksheet
For Each List In ThisWorkbook.Worksheets
For Each c In List.UsedRange
If c.Locked = False Then c.Value = ""
Next c
Next List
End Sub
Nevím, jestli to jde vůbec vyřešit
Nejde
Pavlus napsal/a:
@Stalker: V rámci jednoho sešitu je to OK. Jenom mě zarazilo, že ve stejném PC se v odlišných excelových souborech to rozložení barev může zobrazit jinak... Téma jsem poslal, protože nechápu ten důvod, mám jen jednu verzi Excelu.
Důvodem jsou rozdílné styly v jednotlivých souborech.
Nějak sem nepochopil otázku. To se rozhodily barvy ve sloupcích v rámci jednoho souboru? Nebo se barvy mění pokud je totožný soubor otevřen na jiném PC?
Být tebou kouknul bych, jak jsou nastavené motivy (karta - rozložení stránky, pole - motivy -> barvy). Obrázek Paleta1 vypadá jako nastavení "kancelář".
Pokud je mi známo motiv je platný pro celý sešit.
To Elcha
Ano opravdu se jedná o (jeden) soubor ke knize Microsoft Office Excel 2007 Programování ve VBA. S Walkenbachem jsem osobně nemluvil, a opravdu si nebudu zakládat web kvůli jednomu souboru. Soubory ke knize VŠECHNY (to je všech 30 kapitol v zip archivu) jsou volně k dispozici na stránce nakladatelství (i po těch letech).
Vše je o to, že sem v dobré víře uvedl autora kódu. Když bych se na to vys...l mělo by to opačný efekt.
Pro tazatele pokud budeš chtít napiš SZ pošlu ti odkaz na nakladatelství. Abych tu zase někoho nedráždil.
Schválně sem to nepsal, jestli si toho všimneš. Je to opravdu ptákovina.
Chybějící lomítko v cestě k cílovému adresáři.
Taky mi trvalo než sem si toho všimnul.
Vyzkoušej.
S úpravou funkce neporadím, ale napadla mě jistá klička.
Vodorovnou matici dat převést někde na listu (skryté sloupce, nebo jiný list) pomocí funkce TRANSPOZICE na matici svislou a na tu použít vlastní funkci MEDIANIFS.
Uživatelské menu
\nMenu
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.
RSS nejnovější články