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

Příspěvky uživatele

Může být?

Není za co.

Ještě oprava zbarvení buněk.

číselníky nefundují dokud nejsou splněny podmínky.

Tvl já vůbec nerozumím co chceš.

Co se skrytí a zviditelnění číselníku týče.

skrýt:
Sheets("List1").Shapes("Spinner 1").Visible = False

zobrazit:
Sheets("List1").Shapes("Spinner 1").Visible = True

Jojo já už jsem si poradil, děkuji.

Ono to nebude tak jednoduché.

No je to pěkný hokej.

Na první pohled bych řekl, že máš chybu ve funkci "AND".

Funkce "A" neboli "AND" funguje takto:

=IF(AND(H10="";I10="");1;2)

Ale výsledek má být ze všech sloupců.

Hoď jsem konkrétní příklad, mrkneme na to.

Ahoj kluci (případně holky ),

mám na vás prosbu o pomoc s vyhledáváním.

Tvořím si formulář na skladové hospodářství. Zasekl jsem se u vyhledávání. Představa je taková, že když začnu psát do jednoho z textboxů (1-5), začne to automaticky vyhledávat v příslušných sloupcích databáze a zobrazovat v TextBox6.

Děkuji za pomoc

A kdyby jste mi to popsali pro debily, abych pochopil jak jste to udělali, tak to by byl už velký level. Moc Děkuji

To samé to rozhodně není. Ty máš číslo posledního obsazeného řádku ve sloupci "A" mínus 3, ale já jsem ti poslal počet obsazených řádků ve sloupci "A".

Pošli pořádnou přílohu s kompletním kódem, část kódu je k ničemu!

POCET = Application.WorksheetFunction.Counta(wsIdata.Range("A:A"))

MsgBox "Zapsáno " & POCET & " nových položek do Sestavy.", vbInformation

Tak hoď přílohu, upravíme to.

A proč to neuděláš takhle?

Sub uloz()

ActiveWorkbook.SaveCopyAs Filename:=Sheets("tisk").Range("A1")

End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje