Příspěvky uživatele
< návrat zpět
Je nutné mít sloučené buňky? Nešlo by to udělat bez nich? Protože bez makra to nepůjde. Pokud vím, tak excel nemá možnost "vložit pouze sloučené buňky bez dalšího formátování". A evidentně je nás takových víc co si to myslí.
Anonym napsal/a:
Co to je, prosím, za funkci "IFNA"? Děkuji
Viz. např.: https://office.lasakovi.com/excel/funkce-logicke/IFNA-funkce-pokud-chyba-Excel/
vymažte nějaká data. Pro příklad to stačí.
Tak si dejte tlačítko Import XML do panelu nástrojů "Rychlý přístup"
MilaF napsal/a:
(A já to dnes poctivě všechno vypisoval a kopíroval :) )
Něco na tento způsob:Sub pokus()
Text = "abc text 1 další text"
If Mid(Text, 1, 3) = "abc" Then
pozice = InStr(1, Text, "1")
vysledek = Mid(Text, 1, 3) & Mid(Text, pozice, 1)
MsgBox vysledek
End If
End Sub
záleží, jestli je to číslo známé nebo ne
Asi poslední úpravy. Ještě jsem makro trochu pročistil.
1. Bylo tam zbytečně několikrát If pomoc = True Then
With Worksheets("Database"), které fakticky na sebe navazovaly, tak jsem to nechal jen jednou přes skoro celé makro.
2. Proměnné "kontrolaVyzvy", "kontrolaProdlouzeni"... jsem nahradil jen jednou proměnnou "kontrola"
3. Doplnil jsem vymazání všech TextBoxů a ComboBoxů, když není nalezena SpZn. Je to v cyklu For Each, aby se nemusely vypisovat všechny prvky.
Ještě je potřeba naformátovat všechny datumy (pokud to je potřebné). Některé jsou již udělané, tak podle toho to zvládnete sám. Tento příkaz:
.Range("AW" & kontrola.Row).Valuedoplnit o Format$:
Format$(.Range("AW" & kontrola.Row).Value, "dd.mm.yyyy")
Podle mě to nejde.
Skutečně chcete 3 sloučené buňky zkopírovat do 2 sloučených buňek?
"..např. 3 řádky (v prvním sloupci) ... do 4+5.."
Až teď jsem si všiml, že jsem včera nepřiložil soubor. Tak tedy až teď.
Teda @MePExG, nevěřil bych, že z tohoto půjde něco rozumného vytáhnout, bez nějaké transformace. Já se PQ snad nakonec budu muset začít učit :)
Co třeba použít toto:
http://wall.cz/excel-sablony/evidence-dochazky-a-planovani-smen
http://wall.cz/excel-sablony/evidence-dochazky-ii
Nevím, jestli je vhodné mít na každý den jeden list.
Záleží, jestli to co vidíme slouží jen jako úložiště dat nebo to má i nějaký vizuální smysl.
Pokud jde jen o to uložit data, tak bych udělal tabuku se sloupci: datum, jméno, příchod, odchod a psal všechno pod sebe. Třeba přes nějaký formulář, kdy zapíši jeden den a uložím.
Podstatné je, jak s tím @notas přesně pracuje.
- U některého jména je linka u jiného ne
- Má nějaký význam číslování (1 - 40)?
- Někde jsou 2 jména na jednom řádku. Je to nutné?
Tady je i Prodloužení a Žádost
Problém je v "Exit For". Tmto příkazem opustíte cyklus hned po načtení první výzvy a další se tudíž nenačtou.
Je zde rozdíl oproti Kontrole, kdy se načítala jen jedna (poslední) Kontrola. Výzvy se načítají všechny.
Pak ještě nějaké drobnosti, které nemají na načítání vliv.
Vložil jsem do makra nějaký komentář. Třeba to pomůže při luštění.
Tady je úprava:
Nejdříve kontroluje, jestli existuje "Uzavření kontroly". Pokud existuje vloží data do formuláře. Pokud neexistuje, kontroluje, zda je "Protokol o kontrole". Pokud je, do formuláře vloží data. Pokud neexistuje "Protokol" hledá "Oznámení o kontrole".
Toto dělá zvlášť pro kontrolu 1 a 2.
Barevné odlišení jsem chtěl jen pro sebe, abych pochopil, co vlastně chcete. Makro s barvičkama nepočítá.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články