Příspěvky uživatele

Ahoj, pěkný filtr:

Private Sub TextBox1_Change()

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

End Sub

Jak nastavím aby mi to hledalo ze sloupce A a C

děkuji za radu

Děkuji všem za radu a řešení, ale asi bude nejednoduší mít opravdu jednoznačný kod (vždy ojedinělý)....
Mám to pak trošku komplikovaný že ty "zásoby" mám v samostatném excelu který mi generuje program Pohoda a nelze do něj následně přidávat další sloupce atd...
Dále pokud mám dva excely tak nefunguje funkce - Ověření dat
Hledal jsem i na jiných forech a asi opravdu jiný fígl na funkci SVYHLEDAT není.
Zatím děkuji

Zdravím, potřebuji nějakou radu k vzorci SVYHLEDAT
=SVYHLEDAT(I3;zasoby!A:P;2;0) vezme napsanou hodnutu z I3 "F136" a prohledá první sloupec jiného listu tabulky a vloží hodnotu z druhého sloupce. To vše funguje správně.
Jenže já tam mám F136 třeba dvakrát ... a potřebuji aby mi to dalo nějak jednoduše na výběr kterou chci vložit.
Děkuji za nápad jak to udělat.
Tomáš Veselý

ale ta se potom "schová" potřebuji třeba celou oblast která by se pouze jenom nevytiskla ...

Zdravím, prosím o radu jak nejednodušeji zakážu tisk určié buňky? Nebo jak udělat něco jako komentář který bude vyditelný pořád? Taková nápověda.... třeba že ten list je potřeba vytisknout dvakrát, atd ...
děkuji za radu

Super děkuji za vše :-)

Děkuji za odpověd, možná jsem se špatně vyjádřil :-) radši to začnu od začátku, a třeba mi poradíte jak to udělat úplně jinak ...
viz příloha, mám v buňce B1 vždy aktuální datum a při změně textu v buňce A3 potřebuji překopírovat aktuální datum do buňky B3 (pouze hodnotu - aby následující den tam byl pořád stejný údaj)a to samé u A4, A5, A6, ....
Děkuji

Zdravím, potřebuji poradit jak v kodu makra zajistit aby si kopírovalo z jedné určité buňky třeba (B1) a zbytek byl opět (realitivní odkaz)

'
' Makro4 Makro
'

'
ActiveCell.Offset(0, -4).Range("A1").Select
Selection.Copy
ActiveCell.Offset(4, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False

děkuji za radu

zdravím, ověření bude vždy stejné ale bohužel kopírování nefunguje, jde ale kopírovat z vrchního řádku přetažením myší (musí být černý křížek) ale pořád to není ono ... nevím proč zrovna tuto funkci microsoft při sdílení zakázal .... ??

No právě když zapnu sdílení tak se mi v kontextovém menu zneaktivní hypertextový odkaz ....

Dobrý den, prosím o radu jak ve sdíleném sešitu opět zprovoznit možnost funkce hypertextový odkaz, a funkci ověření dat.
Děkuji za rady (zrušení sdílení, vytvoření odkazu, opět sdílení) mi příjde hloupé....
Děkuji

Super, díky! za radu

Potřebuji poradit, mám dvě tabulky které potřebuji propojit a doplnit ceny. V první je sloupec "A" s číslama 8cifer např.: "40005752"
Ve druhé tabulce je opět sloupec "A" s více řádkama a některé naopak chybí ....
V první tabulce zadám funkci vyhledat
=VYHLEDAT(A2;'[březen-bilymesic_web.xls]List1'!$A:$A;'[březen-bilymesic_web.xls]List1'!$B:$B)
správně mi to doplní údeje ze sloupce "B"
Ale když tam to číslo chybí tak si to prostě nějaké vymyslí ??
viz příloha řádek 217
Děkuji za jakoukoliv radu .... V jednoduché tabulce to funguje ale tady prostě ne

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje