Vždyť ten vzorec pracuje správně. Požadoval si vyhledání pomocí dvou parametrů - data a podle přílohy předpokládám objektu. U data 5.10.2014 máš na listě chlornan uvedeny dva objekty - "VDJ Karkulka" a "Jedlová". Na listě spotřeby chemikálií se však tyto objekty v tabulce NEVYSKYTUJÍ. Tudíž vzorec nemá shodu dvou parametrů a proto nevrátí žádný výsledek.
Pokud požaduješ něco jiného, budeš muset znovu a podrobněji popsat svůj záměr.
Takto?
Tady to máš v souboru.
Použít funkce MAX a KDYŽ?
Sice už máš "problém" vyřešen, ale když už sem se s tím drbal tak to sem plácnu. Zvolil se jiné řešení než Palooo, tak to ber jako inspiraci.
Jen taková poznámka, ty buňky co si tu vypsal jsou opravdu prázdné nebo obsahují vzorec, který vrací prázdnou hodnotu?
Nebo pomocí matic. vzorce.
Není to z mí hlavy. Někde sem na to našel na netu a uložil.
Nastavení otevření sešitu aplikace excel na určitém listu docílíme pomocí scriptu:
Set objExcel = CreateObject("Excel.Application")
objExcel.visible = true
objExcel.workbooks.open("CESTA K SOUBORU")
objExcel.ActiveWorkbook.Sheets("NÁZEV LISTU KTERÝ BUDE AKTIVNÍ").Select
Tento text zkopírujeme do textového souboru a uložíme s koncovkou .vbs
=KDYŽ(NEBO(A1=4;A2=4);"souhlasí";"nesouhlasí")
Tady máš můj pokus o řešení.
V jednom souboru je vzorec (není to moc sťastný řešení - vzorec je nepřehledný)
V druhým souboru je použita vlastní funkce (makro) podle:
http://support.microsoft.com/kb/213449
V případě záporné hodnoty vrací vlastní funkce rozdílné hodnoty oproti vzorci. Netuším jestli je to správně.
Zkus pohledat relevantnost výsledků.
=NEPŘÍMÝ.ODKAZ("List1!E"&G13)
Nejjednodušším řešením Tvého problému by bylo primitivní makro na dva řádky uložené ve vlastním modulu. Makro by sloužilo k tisku DL a zvýšení hodnoty (čísla dodacího listu) v určené buňce. Na jednotlivé listy by se vložily tlačítka spouštějící makro. Po stisku by se provedl tisk dodacího listu a zároveň o 1 zvýšilo číslo dodacího listu v určené buňce. Do jednotlivých dodacích listů by se číslo vložilo odkazem na určenou buňku např. buňka A1 na prvním listu.
Jednoduché a blbuvzdorné
edit:
Sub TISK()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
List1.Range("A1").FormulaR1C1 = List1.Range("A1").Value + 1
End Sub
Jeden maticový.
Koukni do souboru.
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.