Zaslal/a matusup 14.5.2024 11:16
Ahojte, měl bych prosbu... Potřebuji v jednom listu vyhledat všechny řádky, které ve sloupci E obsahují zadanou hodnotu a zkopírovat je do druhého listu. Nějak se mi to pořád nedaří. Mohl by někdo zkusit pomoct, jak vyhledané řádky zkopíruju do listu2???
Pro vyhledání jsem použil:
HledanaHodnota = InputBox("Vypiš datum, které chceš připravit:")
Set Oblast = Range("E:E")
Set OblastNalezeno = Oblast.Find(HledanaHodnota)
PrvniNalez = OblastNalezeno.Address
Do
Set OblastNalezeno = Oblast.FindNext(OblastNalezeno)
Hodnota = OblastNalezeno.row
Loop While PrvniNalez <> OblastNalezeno.Address
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.