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

Příspěvky uživatele

jo to by šlo taky, ale
1. co je to někde odečetlo (vedle z bunky nebo jiný list?) bylo lepší popsat požadavek podrobněji
2. jak chceš odlišit kde se má co připočítat a kde zas co odečítat?

to jsou věci, bez kterých se makro těžko napíše.
bud sem hod přílohu kterou chceš upravit, nebo podrobněji rozepiš svůj požadavek.

Ahoj.
procedura funguje zkoušel jsem
bud nemáš povolená makra nebo si makro nevložil do správného listu.
co se týče otázky "samou funkci pro deset hodnot." mas na mysli 10 různých buněk?
tak tam bych volil možnost zabarvení bunky třeba na žlutou colorindex = 6
a to by stacilo přepsat Hav-Ranovo makro první řádek.
takto:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Target.Interior.ColorIndex = 6 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
Target.Offset(0, 2).Value = _
Target.Offset(0, 2).Value + 1
ERRORHANDLER:
Application.EnableEvents = True
End Sub


pro ukázku viz přílohu

co použít filtr?

Vlastní automatický filtr
Má na konci .com

Palooo:
díky užitečná rada určitě prostuduji

ale když tam bude mít víc slovíček (v řádcích), tak by se to muselo nadefinovat na víc sloupců kde by byly alternativy.

A pokud si to výslovně nebude žádat zadavatel, tak to zatím nebudu řešit.

Jaros:
Opraveno

Palooo:
-UCASE, TRIM jsem přidal
-LIKE a bez diakritiky jsem nepřidával. (ještě jsem se s těmi příkazy nikdy nepotkal)
Při učení slovíček je dobré se naučit je správně i psát *5

Co tohle?

Slovíčka můžeš přidávat dle libosti do sloupce "A" (ale nesmí být prázdný řádek mezi slovíčky)
Kliknutím na vlajku se spustí makro.
Máš na výber z EN do CZ, nebo z CZ do EN
viz přílohu

Tlačítko "delete" ti funguje, ale že to máš v Workbook_SheetChange tak při mazání se makro spustí ještě jednou a zas ti vyplní buňky

zkus makro spouštět jinším způsobem.

@marjankaj

stále nechápu v čem je problém.

Do souboru stav.xls musíš nakopírovat makro co jsem ti poslal(do souboru co používají skladníci),
který při ukládání ve skladu pošle do tvého souboru informaci kdy byl soubor stav.xls uložen.

Ještě by se mohlo upravit makro aby to do tvého souboru psalo pod sebe všechny záznamy o uložení.

Jinak už nevím mám asi krátké vedení

tady to máš.

počet listů jsem bral všechny listy v sešitu.

upravil jsem trochu msgbox, aby byl videt i název listu.

co tohle:
v makru si uprav cestu pro sesit pokus_1

Jako v jiném souboru?

Vba:
Vložit příkaz do "ThisWorkbook"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Range("A1") = Now()
End Sub

kde příklad:
do listu "List1" v buňce "A1" se při ukládání vloží datum a čas.

samotný excel neposleš, musíš nejdřív zabalit (rar,zip,...)

Upravil jsem řádek s "r_max" (vba), aby poslední řádek hledal v celém listu a ne ve sloupci "B".
Tohle by snad melo stačit.

Pokud ne, tak bych navrhoval upravit makro tak, aby se při otevírání zamkly již vyplněné buňky(řádky).
Tím by se předešlo nechtěnému mazaní již uložených dat.

Cyklovat by to šlo taky, ale je otázka či v těch ostatních listech budou povinné sloupce stejné.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje