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

Příspěvky uživatele

fce FILTER

Jestli máš CZ Excel tak místo EVALUATE použij VYHODNOTIT

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
With Range("A3")
.Activate
.Value = .Value + 1
End With
Application.EnableEvents = True
End If
End Sub

Kopie celého listu do nového sešitu

Pokud by nebylo potřeba v msgboxu zobrazit "závadný znak", dal by se využít regulární výraz.

Něco k inspiraci: https://www.mrexcel.com/board/threads/date-input-mask-applying-a-watermark-to-textbox.1231537/

https://wall.cz/index.php?m=topic&id=54219#post-54244

Obávám se, že manuálnímu vykopírování dat do nového souboru se nevyhneš, pokud tedy není možné obnovit soubor ze zálohy.

Můj osobní tajný tip je, že ten soubor je poškozený.

Fce SVYHLEDAT

Problémem je to, že na některých PC se tisk z jednoho listu roztáhne do dvou a cca. 1,5 cm údajů je na druhém listu.

Předpokládám, že na těch "některých PC" je nainstalována jiná tiskárna.
Stačí si zvolit zobrazení "Zobrazit konce stránek" a myší potahat za okraje.

Prosím o vysvětlení, jak se vybrala oblast cílové tabulky (B4:D27) ?
Nijak, vše se řídí sloupcem B.

Proměnná MaxRadek ... ?
Ve sloupci B se najde první volný řádek, tedy proměnná MaxRadek obsahuje hodnotu např. 20

Při zápisu hodnot do tabulky se tedy vezme buňka B20 [Cells(MaxRadek, 2)], pomocí resize se výběr zvětší o počet zapisovaných výsledků (4) => výsledky se tedy zapíší do oblasti B20:E20

Asi by to makro nešlo ještě nějak zjednodušit.
Naopak pokud budeš přidávat další podmínky viz omezený počet řádků protokolu, bude kód přibývat.

Např.

Tak si ta makra odblokuj viz: https://wall.cz/index.php?m=topic&id=54219#post-54244

Povol makra!
Pravé tl. myši - > Vlastnosti- Zabezpečení -> odblokovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje