Jiri-Harazim napsal/a:
Moc děkuji za pomoc. SVyhledat umím, ale dělám na makrech a chtěl jsem si to procvičit. Udělal jsem to nakonec tím SVyhledat, je to jednodušší.
Milý Stalkere. Poslechl jsem tě a v klidu jsem se nadechl. Jsi nejspíše velký znalec a jinými "pitomci" pohrdáš. Měj se hezky a zamysli se nad sebou.
Ak máš excel 2019 tak aj takto.
Aspoň vidíš rozdiel, keď priložíš súbor.
Akú máš verziu excelu?
"výskyt od každého slova, který se vyskytne ve sloupci oddělený ", " za sebou."
Toto znamená, že tie výskyty budú nasledovať za sebou alebo budú prehádzané?
A súbor by nebol k dispozícii alebo je tajný?
veny napsal/a:
Cítím lehkou ironii?
veny napsal/a:
vypadá to nadějně, zítra zkusím aplikovat do mojí tabulky a dám vědět, hlavně ten vzorec musím pořádně prozkoumat.
elninoslov napsal/a:
Tak za Close pridajte False
xlApp.Workbooks(poleNazvu(c)).Close False
neviem o čo ti ide. že by?
xlApp.Workbooks(poleNazvu(c)).Save
xlApp.Workbooks(poleNazvu(c)).Close
namiesto
$C$5:$C$29="L*"
daj
Zleva($C$5:$C$29;1)="L"
Úžasný návod. Ale máš to pekne vymaľované.
A čo tak najprv vytvoriť si kopiu toho súboru a ten môžeš potom upravovať?
No asi by som zvolil funkciu ON TIME.
Marw napsal/a:
Dobry den mepexg a marjankaj, děkuji za pomoc, funguje tak jak potřebuju. Omlouvám se za přílohu typu obrázek, neuvědomil jsem si, že je jednoduší poslat přímo xls soubor z důvodu přepisování. Příště bych Vás prosil o upozornění,rád přílohu upravím tak, aby byla co nejvýhodnější. Ještě jednou díky. M.
mepexg napsal/a:
Nedám xlsx, lebo ani zadávateľ nemá tú potrebu a núti nás pred riešením opisovať zadanie, tak nech si opisuje aj riešenie.
A prečo nedávaš súbor *.xlsx?
Máš pravdu S RESIZE je to kratšie. Mne išlo o tú chybu. Ak pred CELLS(alebo RANGE) nie je cesta, tak sa uvažuje s ACTIVESHEET.
RANGE je čitateľnejšie, CELLS sa viac hodí do cyklov. Ak robíš len na jednom liste tak nič neriešiš. Na viac listoch si musíš dávať pozor.
Malo by to ísť aj s WITH, ale už to nebudem ďalej rozoberať.
Ospravedlňujem sa, máš pravdu. Ja som sa sústredil na druhú časť(cieľ) a ty si zase hovoril o zdroji.
Dal som aj to s WITH len s hárkami.
Sub Makro1()
With Sheets("zdroj")
.Range(.Cells(1, 1), .Cells(10, 5)).Copy Sheets("ciel").Cells(1, 1)
End With
End Sub
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.