Příspěvky uživatele
< návrat zpě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
A nebo si pro každý sloupec zvol jinné formátování. Bez přílohy se to těžko řeší.
Uživatelské menu
\nMenu
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.
RSS nejnovější články