Petre dekuji za radu, funguje. A dekuji take "Jeza.m" za nakopnuti.
Automaticky filtr je dobra vec, ale tahle je to vyrazne rychlejsi .. skoda ze to u cisel nefunguje stejne jako u textu ... pokud se pred cislo vlozi znak ' tak to funguje .. ale takhle jsem to moc resit nechtel :( kazdopadne dekuji za snahu!!!
Dobry den,
mam udelany jednoduchy automaticky filtr na jednom listu. Jedna se o tri sloupce. Prvni poradi, druhy cislo, treti popis.
Pomoci udalosti TextBox_Change automaticky vyplnuji automaticky filtr kde kriterium je hledane *slovo* (obsahuje).
U bunek ve kterych je text vse funguje jak ma. A u bunek kde je cislo ne. Zkousel jsem zmenit format bunky na text, ale porad nic :( uz si nevim rady.
Dokazal by me nekdo nakopnout spravnym smerem?
Diky moc za pomoc
Prikladam kod a soubor ke stazeni:
http://okj.misto.cz/rychle_hledani_vba.xls
If TextBox1.Text <> "" Then
TextBox1.BackColor = RGB(255, 0, 0) 'cervena
Dim slovo As String
slovo = "*" & TextBox1.Text & "*"
Selection.AutoFilter Field:=2, Criteria1:=slovo, Operator:=xlAnd
Else
Selection.AutoFilter Field:=2
TextBox1.BackColor = RGB(255, 255, 255) 'bila
End If
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.