MS Excel

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

Zaslat odpověď >

Strana: 1 2 další »

elninoslov(14.5.2024 13:30)#056519

-Verzia Office?
-Zdroj je tabuľka/objekt Tabuľka?
-Cieľ je tabuľka/objekt Tabuľka?
-Po každom nájdení sa má vykonať doplnenie jedného riadku a nejaká ďalšia činnosť (iba s tým jedným riadkom)? A až potom pokračovať?
-Alebo všetky nájdené riadky spracovať naraz?
-Alebo len zápis všetkých nájdených naraz?
-Potrebujete vypísať hodnoty z akých stĺpcov? A kam?
-Potrebujete iba hodnoty? Alebo aj podfarbenie a pod? Nebodaj vzorce?
-Nestačí Vám Kontingenčná Tabuľka s filtrom?
-Reálna príloha ...citovat

matusup(14.5.2024 13:44)#056521

Z listu POzadavky_na..... potřebuji přenést data do listu tisk_stitku....List tisk štítku mám přeformátovaný na lepící štítky a potřebuji postupně do jednotlivých buněk dostat data z sloupců na jednotlivé štítky (např data ze sloupce A v listu pozadavky_na _.... příjdou do listu tisk_stitku.... bunky C4, F4, C11, F11 atd. dokud nezkopíruje všechny data z řádků, které obsahují datum, které zvolím).

Díky moccitovat

matusup(14.5.2024 13:45)#056522

zapomněl jsem přidat soubor

Příloha: zip

56522_pozadavky-na-odber-vzorku_auto.zip (89kB, staženo 1x)

citovat

elninoslov(14.5.2024 22:10)#056523

-Čo ide do položky "Lot:"?
-"Datum Odběru:" je iba na pravej strane? Nemá byť všade?
-Medzi štítkami nie sú rovnaké medzery (ani počet, ani výška, ani striedanie oddeľujúcich riadkov)?
-Čo tie čísla po riadok 2332 v stĺpci C na liste Tisk_stitku_vzorky?
-Ak bude menej riadkov ako štítkov, majú sa zmazať?
-Ak bude viac riadkov ako štítkov, majú sa prirobiť? Potom sú problém nerovnaké medzery.citovat

lubo(14.5.2024 23:12)#056524

Proč to neuděláte ve wordu? - Hromadný tisk, data z excelu...citovat

elninoslov(15.5.2024 0:19)#056525

Hókus-pókus...

Příloha: zip

56525_pozadavky-na-odber-vzorku_auto.zip (121kB, staženo 4x)

citovat

matusup(15.5.2024 7:25)#056527

Ahoj, vypadá to skvěle, ale jednou to funguje jednou to nefunguje... nevím, kde dělám chybu. Zkusil jsem nějaká data a i když v tabulce jsou, nelze je najít.
Každopádně děkuji moc...

Příloha: jpg

56527_vystrizek.jpg.jpg (11kB, staženo 5x)

citovat

elninoslov(15.5.2024 8:15)#056529

Určite spĺňajú podmienku
R = WorksheetFunction.CountIfs(.Columns(1), "<>", .Columns(5), HledanaHodnota, .Columns(9), "<>odebráno")
-neprázdny A
-dátum E
-<>"odebráno" Icitovat

matusup(15.5.2024 10:13)#056533

Rozumím. Ještě jeden problém. Změnilo se mi zadání :-(
Nemá se to kopírovat do dvou sloupců, ale do tří viz. tisk_stitku_vzorky_(2)
Jste na mě moc velký profesionál a vůbec netuším, jak změnit parametry, aby se kopírovaly data do tří sloupců.
každopádně jste moc hodný a děkuji za pomoc

Příloha: