Není za co.
Nebylo by toto lepší?
Sub VlookUp2()
Dim wsZDROJ As Worksheet
Dim wsCIL As Worksheet
Dim POCET As Long
Set wsZDROJ = Worksheets("data")
Set wsCIL = Worksheets("EXPORT")
POCET = wsCIL.Cells(Rows.Count, "D").End(xlUp).Row - 1
wsCIL.Range("A2").Resize(POCET).Formula = "=IFERROR(VLOOKUP(D2,data!A:B,2,0),"""")"
wsCIL.Range("A2").Resize(POCET).Value = wsCIL.Range("A2").Resize(POCET).Value
End Sub
Problém je v tom, že kódy na listě "data" máš naformátována jako text a na listě EXPORT naformátována jako obecný resp. číslo.
veny napsal/a:
To se bude muset kousek po kousku ochutnávat
Nenapadá mě jak to ošetřit tak, aby to bylo spolehlivé. Nicméně pokud vám to alespoň malinko pomůže, tak si přemístěte tlačítko na zdrojový list, aby bylo pro uživatele viditelné a nezapoměli na archivaci.
veny napsal/a:
@Lugr nezpochybňuji tvou odpověď jen si myslím že pokud napsal "v textovém řetězci" tak bylo myšleno pokud je hledané ovoce i mezi vícero druhy.
Na to by nám ale odpověděl je zadavatel
Jsou dvě možnosti. Buď se spustí makro při otevření souboru, ale to může nadělat chyby a nebo při změně buňky, ale tam taky vidím určitá rizika. nehledě na to, že jste psal(a), že "Soubor nemusí být otevřen vždy posledního v měsíci!"
@WB_1 Opravdu není za co, kéž by všechny problémy byly tak jednoduchý.
@veny, on napsal výskyt konkrétního ovoce.
Tak?
COUNTIFS($G$6:$G$15;C$5;$H$6:$H$15;$B6)
Mohl by jsi vložit i zdroj (CSV) a kód VBA?
Problém bude už při importu.
A nešlo by to jen takhle jednoduše?
Ve výkazu ne, mají ale seznam jmen s os. čísly.
Osobní číslo zde je (viz předchozí příloha).
Už to máš vyřešené, tak už je to asi jedno.
Seš hodný, ale já si myslím, že bych jen plýtval tvým časem, protože vedení nebude chtít měnit zadávání dat. Pokud by jsi to přeci jen chtěl vytvořit, rád se určitě přiučím něco nového.
Děkuji za tvůj čas.
Seš hodnej, děkuju. Já myslel, že to půjde nějak elegantně, třeba vytvořením vlastní funkce.
Nic nechme to otevřené, já si nějak poradím, ale kažkopádně moc děkuji za pomoc.
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.