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

Příspěvky uživatele

Upravil jsem kod na smazani obsahu z radku a upravil jsem taky kod pro export listu.

Odstranil jsem moznost aktivni list, protoze aktivni list je vzdycky list 'Faktura' (formular se spousti z listu Faktura). Pokud budete potrebovat upravit nazvy listu, musí být stejné popisky na userformu pro jednotlive listy.

Zkuste zadat do nazvu šablony celou cestu k ni...Workbooks.Add("c:\Documents and Settings\...\Data aplikací\Microsoft\Šablony\šablonaTEST").SaveAs _
Cesta & "\" & Nazev

No,
takhle napoprve me napada, ze nesmite mit spusteny ten sesit se sablonou (udela se to automaticky)!
Jestli to nepomuze, bude zalezet na tom, co presne rika ta chyba...

zkustelist1.UsedRange.copy

jak se rika "Lina huba..."
ale kazdopadne doporucuju, zkouset na to prijit sam, protoze tim se clovek nejvice nauci (az kdyz snaha presahne unosnout miru, zeptat se...)
Hodne stesti do dalsi prace

ano, kazdopadne - pokud pouzivate v kodu vice listu (typicky u .copy a .paste), je vyhodnejsi u cells() pouzivat i identifikaci listu, tedy worksheets("List1").cells() ...atd (tim se odstrani ten problem prepinani listu

problem je v aktivaci listu, na zacatku cyklu musite vstupovat s aktivnim listem1, tedy v podmince musite mit tento kod: Rows(i).Select
Selection.Copy
List2.Activate
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
List1.Activate

=INDEX(A:A;POZVYHLEDAT("points";A:A;0)+3;1)

nemate splnenu podminku Cells(i, 1) = "aa", protoze v prvnim sloupci je hodnota "ahoj" v tech radcich, ktere uvadite

podivejte se na funkci INDEX, ta by va mela pomoci...(i bez pouziti funce POSUN)

zkuste prilozit soubor, podivam se na to

staci opravit tento radek:
Workbooks.Add("Název šablony").SaveAs Cesta & "\" & Nazev

To zalezi na tom, jake prvky pouzivate.
Pokud jsou to prvky ActiveX, nastavte jejich vlastnost 'Placement' na 3.
Pokud jde o prvky formulare, nastavte ve vlastnostech 'Presun bunek bez objektu'

zkuste se podivat na tohle, jestli to vyhovuje:

pro upresneni: chcete projit radek po radku na listu 'Výpočet' a podle čísla Lomku nakopirovat cely radek do listu, ktery je urceny cislem Lomku.
A navic, v sesitu se nemuze stat, ze by neexistoval patricny list (tedy: pocet unikatnich cisel Lomku = pocet listu (kromě listu Vypocet))?
spravne?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje