Příspěvky uživatele
< návrat zpět
je nutné mít koretní názvy?!
Ukaž kousek tabulky, kde to funguje?
Public Function SVYHLEDAT2(Table As Range, SearchColumnNum As Integer, _
SearchValue As Variant, Rank As Integer, ResultColumnNum As Integer)
Dim i As Integer
Dim iCount As Integer
Dim rCol As Range
Application.Volatile False
SVYHLEDAT2 = ""
For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
If iCount = Rank Then
SVYHLEDAT2 = Table.Cells(i, ResultColumnNum)
Exit For
End If
End If
Next i
End Function
Něco takového by vyhovovalo.
Do funkce přidat FALSE zbytek už tam je. to jen, aby se to false dalo na správné místo.
Zkuste ve funkci změnit na
Application.Volatile False
To by pomohlo
Možná by to šlo takto
Nevím, co jsou nová data dodal jsem součet za den a měsíc běžný.
Jede to na Excel 2002 SP 3, pro každý jiný soubor než ten co je v rar to bezpečně bez problémů funguje, je to také tiviálnost. Soubor why.xls vznikl, tak že v Mozile jsem zadal ctrl+A a ctrl+C a do sešitu "input" vložil ctrl+v pak jsem chtěl opravit "input" na "out" a k mému údivu Sheets("out").Select hlásil tuto chybu, vše co je jiné tak dole v sešitě "input" je takový šedý čtereček, který nejde smazat, odkud se vzal nevím.
jde to snadno podmíněnýn formatováním viz příklad pozor nefunguje 2007 ale ten má ještě lepší.
Proc nefunguje tak jednoduche makro, nahrane makrokamerou? Jak opravit?
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články