Příspěvky uživatele

Makro je vlastne takova mala procedura napsana v jazyce Visal Basic for Applications (VBA).
Je to jeden z nejlehcich programovacich jazyku, ale porad je to programovani (ikdyz tak jednoduche, ze se ho muze naucit temer kazdy).
Na webu najdes spoustu textu, ktere ti pomohou se to naucit a kdyz budes mit problem, porad se muzes zeptat lidi tady na foru...hodne stesti...

cau,
funkce umí jen vyhodnotit zadané vstupy v buňce, ve které je uložena. zapsat něco do úplně jiné buňky může jen vlastní funkce nebo makro (ale vlastní funkce je vlastně makro). Takže ne, funkce toto neumí...

Zkus prilozit soubor, takhle dokazu tezko odhadnout, co je obsahem bunky a jak ma byt definovana cesta...

...Vlákno bylo uzamčeno z důvodu odchýlení od původního problému...

čau,
zajimalo by me, jak to dopadlo s timhle problemem - v cem byl zakopany pes a jak se to podarilo vyresit, diky...

Neznam historii tohoto vlakna, nicmene, z UserFormu se do bunky musi hodnota (z toho Comboboxu) nejdriv ulozit, tzn, nekdy na Userformu musis spustit proceduru, ktera to bunky H3 ulozi hodnotu z comboboxu (nevim, jak to mas resene), pak to musi fungovat!

Neco podobneho jsem nedavno vytvarel, ale je zde problem velikosti (vysky a sirky) bunek, protoze obrazek nelze svazat napevno s bunkou...

V priloze je soubor Soupis.xlsm, tak adresar 'pics', kde jsou ulozeny obrazky...obrazky musi byt v jednom adresari, ktery je pevne dany (viz dale). Nazvy souboru s obrazky jsou totozne s kodem (sloupec A).
Je nutne dodrzet nasledujici:

1) v kodu zadat cestu k adresari, kde jsou ulozeny obrazky (cesta musi konci zpetnym lomitkem '\')
2) ovsechny obrazky museji mit stejnou priponu (v priloze je nastaveno .png)
3) v kodu se na zacatku smazou vsechny obrazky (nejen ty, co uz tam jsou, tak jestli tam mate dalsi, dejte na to pozor - odstrani se)
- je to kvuli tomu, ze kdyz spustite proceduru a uz mate v bunkach nejake obrazky, tak by se tam hromadily, coz neni vubec dobre...
4) Pak je tu problem velikosti obrazku a rozmer bunky - pokud budete schopna mit vsechny obrazky ve stejne velikosti, tak jednoduse nastavte velikost bunky podle toho a bude to OK; pokud obrazky nebudou stejne velikosti - bude problem
5) pokud obrazek s pozadovanym jmenem (kodem) v adresari s obrazky nebude, bude doplneno "no pic" do prislusne bunky.
.
.

...chapu, ze to nekdy nastve, kdyz neni mozne zodpovedet dotaz bez prilohy, ale na druhou stranu, tazatel to nemusi vedet, ze je nutne prilohu dat, protoze zkratka a dobre nevidi tu potrebu a nevidi potize pri reseni (proto se vlastne pta, ze jo...)
Takze se obrnte trpelivosti a napiste "Jestli chces pomoci, dej sem prilohu, jinak mas pech... :)"

Ja bych nic netestoval, staci najit posledni zaplneny radek a pricist 2.

Prvni_volny_radek = List2.Range("a1000000").End(xlUp).Row + 2

Posli vzorovy soubor!

ano a mam za to, že jsem to tak udělal, aby se při vyplnění nového řádku tento radek vzal v úvahu ve vzorcích nahoře. kontroloval jste přílohu?
Mohlo se stát, ze jsem připojil špatný soubor, ale doufám, že ne...

Samozrejme neznam cely smysl souboru ani to, jak se do nej dostavaji data, ale prijde mi to strasne (a zbytecne) slozity.

Napr. nevidim jediny duvod, proc pouzit SVYHLEDAT ve sloupci AZ, tam prece uplne normalne staci INDEX, s jasne danym radkem (1), protoze oblast je vzdy jen ten konkretni radek a s promennou pro sloupec - ale to je jen drobnost, kterou vidim pri zbeznym pohledu...

Uprimne - ten sesit se mi vubec nechce studovat - takze ani nebudu

co takto:
Sub ULOZ()
Dim Oblast As Range
Dim PlnaCesta As String

Set Oblast = Range("A2:H50")
PlnaCesta = ThisWorkbook.Path & "\archiv\" & Range("M10").Text

'vlozeni noveho sesitu
Workbooks.Add xlWBATWorksheet

'kopirovani oblasti
Oblast.Copy Destination:=Range("a2")

'ulozeni noveho sesitu
Workbooks(Workbooks.Count).SaveAs PlnaCesta

'zavreni noveho sesitu
Workbooks(Workbooks.Count).Close
End Sub

asi mi to nedochazi, ale jak mam definovat to, co chces extrahovat???
To musis udelat ty, jak mam ze vzorku, ktery ma dva zaznamy neco vylustit?

Tzn, bud mas nekde v radku nejakou informaci, ktera rekne, co se ma extrahovat (nebo treba jen, jakym textem ma ten extrahovany text zacinat) nebo nevidim zadnou moznost, jak to udelat...

asi bych to cely udelal nejak jinak, ale jen tak v rychlosti jsem udelal toto - snad to bude fungovat (netestoval jsem to) a vyhovovat...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje