Příspěvky uživatele
< návrat zpět
Upraveno pro tisk bez "Titulku"
V předchozí odpovědi vyměněna příloha! Podařilo se mi vložit soubor, který obsahoval chybu v kódu 
Třeba takto:
Ber to jako pokus o řešení. Soubor do kterého se má "kopírovat" se sám otevře a proběhne přenos dat a uložení. Pokud doplníš hodnoty a znovu klikneš na tlačítko dojde a "aktualizaci" a opětovnému uložení.
Data se přenášejí přes pole, tedy jen hodnoty nikoliv formátování.
@Lubo
Osobně považuji za nejrychlejší, pokud netrvám na použití ClearContents, variaci na téma: Načíst do pole oba sloupce, příslušné pole nahradit prázdným řetězcem a pak celé pole vrátit zpět.
Dobrej tip, v jednoduchosti je síla.
To elnino
To ukládání oblastí do pole a opětovné spojení je zajímavá "fičura" 
Diky za to, ukládám do archivu.
I když celá věc byla na konec zbytečná, Celý sloupec vlastně znamená rozsah 1 až 500 
To elnino:
Ahoj, šel sem na to v podstatě stejně viz soubor, ale mám velkou oblast dat A1:A40200 viz tazatelův požadavek - aby mi to zkontrolovalo celý sloupec
Makro však zdechne, vlastně obě.
Přetečení rng ???
Máš nějaký elegantní tip, jak z toho ven?
Sheets("STATISTIKA").Cells(RNG.Row, 2).PasteSpecial xlPasteValues
A?
Pokud sem nevložíš vzorový soubor, tak se nikam nepohnem!
44101 = 27.9.2020
Možná tohle:?
oDokument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
Neměl by náhodou ten kód být takto:?
oDokument.PrintOut From:="1", To:="1"
nebo
oDokument.PrintOut From:=CStr(1), To:=CStr(1)
Ještě sem se pošťoural v kódu pro jednotlivé směny.
Jen tak v rychlosti, snad to bude stačit.
Tak využij pomocný sloupec, jak to máš ve svém souboru se vzorcem:
=DATUMHODN(ZLEVA(K14;NAJÍT(" ";K14;1)))
Ahoj, tohle by nestačilo?
=SUMIFS(N:N;O:O;Q13&"*")
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