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

Příspěvky uživatele

Vážení,
potřebuji vyhledat nejbližší nižší datum, které je přiřazeno k určitému textu. SVYHLEDAT mi na toto samozřejmě nefunguje.
Sloupce A a B jsou vstupní data. Ve sloupci C chci výsledek. Sloupce E a F jsou "databáze" údajů, ze kterých má být hledáno.
Pro toto zatání se má vyhledat 1. 1. 2023.
Prosím existuje nějaká funkce, která by byla vhodná?
Díky.

Díky. A ještě jak přetvořit kopírovací funkci, která kopíruje vzorečky?

Worksheets("Vstupní data").Select
Range("A6:B6").Select
Selection.Copy
Range("A7:A99").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

To je odpověď, kterou jsem čekal.

Takže co místo toho mám používat, aby z jednoho souboru do druhého to z buňky, kde je vzorec, vzalo jen hodnotu?

Vážení,

používám VBA, kde kopíruji data z jednoho sešitu do druhého.

Na začátku procedury mám kód:
Application.ScreenUpdating = False

Pro kopírování používám trochu humpolácký kód:
Windows(stary).Activate
Sheets("pomocný").Select
Range("C6:D6").Select
Selection.Copy
Windows(novy).Activate
Sheets("pomocný").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

V jedná části kopírování potřebuju nechat uživatele vybrat, zda něco chce kopírovat či nikoliv.

i = MsgBox("Zkopírovat data na listu Počet obyvatel?", vbYesNo)
If i = vbYes Then
atd...

Ovšem od této chvíle se další kopírování chová, jako by byla hodnota Application.ScreenUpdating = True
Dokonce i když znovu do kódu za MsgBox přidám příkaz Application.ScreenUpdating = False, tak stejně při kopírování se viditelně přepínají okna (prostě to bliká).

Neměli byste nějaký nápad, jak to vyřešit?

Díky.

Díky. Funguje.

Přidal jsem sloupec úroveň. Podle něj se to má řídit.

Vážení,

mám seznam, který potřebuji označit:
a) číslem
b) některé řádky číslem a písmenem
viz příloha.

Umím to samozřejmě udělat ručně, ale problém je pokud chci vložit řádek a přidat jeden bod. Ručně bych musel vše přečíslovat. Například pokud chci mezi body 1 a 2 přidat nový bod 2 a současné body přečíslovat o číslo větší.

Nenašel by se někdo, kdo by mě nakopl správným směrem?
Nebráním se ani buňce, ve které bude uvedeno, která je to úroveň seznamu, ani se nebráním jinému způsobu víceúrovňového seznamu.

Díky.

Vážení,

používám ve VBA funkci pro otevření jiného sešitu. Rozhodl jsem se, že funkce bude blbuvzdorná.

Můžete mi prosím poradit, jak ošetřit situaci, kdy uživatel klikne na nepodporovaný formát (např. na doc) a vyskočí na něj hláška Run-time error '1004' Formát souboru není platný?

Děkuji.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse