Příspěvky uživatele
< návrat zpět
nosekpav napsal/a:
TO JE SUPER MÁM VÁNOCE
radost jak malej kluk
děkuji moc
To jsem rád, tak ať slouží.
Takhle?
Takhle?
Takže v první tabulce máš data (která si mám vymyslet 
) a ty chceš např. do F3 napsat výrobek a k tomu dohledat zbytek nebo podle čeho to má vyhledávat?
Zkoušel jsem tento kód a je to v pohodě.
Dim wsZDROJ As Worksheet
Dim wsCIL As Worksheet
Set wsZDROJ = Worksheets("List1")
Set wsCIL = Worksheets("List2")
Application.ScreenUpdating = False
wsZDROJ.Range("D1:Z200").Copy
wsCIL.Range("J5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Application.ScreenUpdating = True
Takhle?
Já to blbě napsal, místo 27 mělo být POCET
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
Já to nemyslel špatně.
Jen nevím, jak to spočítáme, až si zadavatel udělá ovocný salát.
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)
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