• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Hm . Blbý no.
A co se takhle s námi podělit o informace, jakým způsobem má tenhle "test" vlastně fungovat?!

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)))

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje