Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 69

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

Přikládám svůj pokus, není to kompletní. Chybí řazení na listě reklamace a vymazání listu souhrn. Nevím zda odstranit celý list, nebo jen data bez hlavičky, nebo i hlavičku.

No pokud nebudu brát sloučené řádky v potaz, tak je makro smaže.
Každopádně něco sem zkusil, výsledek v příloze. Netuším jak bude ovšem probíhat další zpracování. Jednotlivá data jsou "rozházená" do několika sloupců.


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 69

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09