Excel, makro - pro ruzny zdrojovy soubor Vyřešeno

[valtr81]

Ahoj, měl bych dotaz k makru v excelu. Mam dva soubory a z jednoho (pok_dat) tahám vzor vzorce pro ten druhý soubor (do kterého si každý týden vkládám jiné data). Takto mi to funguje pro jeden daný soubor.
Potřeboval bych, ale aby to fungovalo i pro jiná data (jiný počet řádků, na jiném místě, nebo aby to makro přeskočilo, protože se tam např. "BGA" nebude vyskytovat). Nějaký nápad? Předem děkuji.

Selection.AutoFilter Field:=2, Criteria1:="BGA"
Range("B1").Select
Cells.Find(What:="bga", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("F3991").Select
Windows("pok_dat.xls").Activate
Cells.Find(What:="bga", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("F26").Select
Selection.Copy
Windows("pok_file.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Range("A65536").Select
Selection.End(xlUp).Select
Range("F4323").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents

[Reklama]

[navstevnik]

Z prilozeneho utrzku procedury poskladane nejspis ze zanamu maker a ne prilis explicitni definice pozadavku ( nejaky nekde umisteny vzorec kopirovat nekam) tezko navrhnout upravu.
V http://www.excelvba.estranky.cz/clanky/ ... ad-uvahou_
autor uvazuje nad zasadami psani programu.
Myslim, ze kdybys dodrzel alespon zakladni zasady, bylo by vse jednodussi. Takze nezbyva, nez pozadat o prilozeni obou vzorovych souboru (staci minumum restovacich dat) s upresnenim co, odkud, kam.

[mike007]

V http://www.excelvba.estranky.cz/clanky/ ... ad-uvahou_
autor uvazuje nad zasadami psani programu.

Hezký článek. Přemek je dobrej, klobouk dolů. Několik věcí jsem se od něho kdysi naučil.

[valtr81]

Uznávám, měl jsem to formulovat hned přesněji. Jinak nejsem žádnej programátor a ani se o to "nesnažim". Ano makro je nahráno. Pouze se snažím ulehčit si práci. Jeden soubor byl velkej, tak přikládám odkaz.

http://leteckaposta.cz/889136459

V souboru "pok_file" potřebuju mít v sloupci F (Active number) data ve formátu ze souboru "pok_dat" ze sloupce F.

[navstevnik]

Pro upresneni:
Vsem zaznamum v sesitu pok_file.xls - napr "PLS" - priradit stejnou hodnotu ze sesitu pok_dat.xls - zaznam "PLS" ?

[valtr81]

Přesně tak.
Vsem zaznamum v sesitu pok_file.xls - napr "BGA" - priradit stejnou hodnotu ze sesitu pok_dat.xls - zaznam "BGA"
atd. (v současné době cca 100 záznamů - bude jich ale víc jak 300)
Problém je, že někdy se tam vyskytovat nemusí a někdy může a to pokaždé v jiném počtu.

[navstevnik]

A jeste jedno upresneni: priradit odpovidajici hodnotu vsem zaznamum v sesitu pok_file.xls, tj. zaznamy B5 az Bxx nebo jen vybranym napr.: PLS?

[valtr81]

Pokud se v sesitě pok_file vyskytuje 5 záznamů PLS tak 5x, pokud bude 1000 záznamů, tak 1000x atd, pokud žádný záznam PLS, tak nic.
Pokud se v sesitě pok_file vyskytuje 5 záznamů BGA tak 5x, pokud bude 1000 záznamů, tak 1000x atd, pokud žádný záznam BGA, tak nic.
atd. jestli si rozumíme.

Jinak ano všem záznamům.

Plus pak tam budou samozřejmě nějaký vyjímky např jako: XGE který má dva formáty:
1. normální
2. začíná SD (pro čísla který mají na konci 090).

Takže to je potřeba taky ošetřit "nějakou podmínkou nebo funkcí".

// Příspěvky sloučeny.
// Pokud chceš něco dodat a ještě nikdo po tobě nepřispěl, použij tlačítko >> Upravit << a svůj příspěvek doplň. Tady nejsi na chatu. Díky.
//mike007

[navstevnik]

Pokud potrebujes neco pripojit k drive napsane odpovedi, pouzij moznost "Upravy".
Budou jeste nejake vyjimky, je zadouci vsechny pozadavky zadat najednou, nikoliv je postupne prilepovat, zbytecne se protahuje reseni.

Zatim pozadovane vyjimky se vztahuji na cisla (sloupec D:D nebo E:E - ktery je rozhodujici?) koncici na "090" v sesitu pok_file.xls? Tato cisla vsak maji o 3 znaky vice, muze nastat situace, ze bude i kratsi cislo koncit na "090"?
Soubor pok_dat.xls bude vzdy setrideny podle sloupce B:B a dale podle sloupce E:E ci nikoliv?

[valtr81]

Sorry, příště budu vědět :-)
Nějaké vyjímky asi ještě budou, nic méně teď nevím jaké a kolik jich bude (nevím o tom že by se někdy podařil vytvořit bezchybný a kompletní program na poprvé ... ale možná se mýlim...)

Oba sešity mají konečný tvar. Pouze do sešitu pok_dat.xls přibude časem až cca 400 řádků.
V sešitu pok_dat.xls je rozhodující sloupec B:B (vyhledání) a F:F (vzorec).
V sešitu pok_file.xls je rozhodující sloupec B:B (vyhledání), D:D (data pro vzorce (*)) a F:F (výsledek).

(*) - vyjímka: asi to nevysvětlim moc pochopitelně, ale zkusim viz např: "ABF": pok_file má data pro vzorec ve sloupci E:E, ale v vzorec v pok_dat je ve sloupci F:F (označeno světležlutou barvou).

Vyjímka na číslo 090 (např XGE):
Pokud má číslo na konci 090 má vždy 13 znaků a bude mít předponu SD + 10 znaků a poslední 3 znaky (090) již posléze nebudou figurovat.
Pokud má číslo 10 znaků, bude mít 10 znaků.
Mezery dle vzorce.
Sloupce D:D a E:E by se měly vždy shodovat.

Obecně:
Sloupce D:D a E:E by se měly shodovat (ale někdy nemusí (jinak tečka, mezera, ve sloupci E:E nemusí být číslo, atd)).

Jinak by asi byla rozumná podmínka, pokud v sešitu pok_file.xls má sloupec D:D jiný počet znaků než je v pok_dat.xls, tak přeskočit.

[navstevnik]

Pokud jsou k dispozici jasne podminky a kompletni datove soubory, tak v danem pripade je mozne i naporve udelat fungujici program.

Protoze v souboru pok_file.xls nejsou zaznamy obsahujici cisla s koncovkou 090, tak z vysvetleni nejsem nijak chytry. Pripoj ukazkovy sesit pok_file.xls obsahujici i tyto vyjimkove zaznamy, staci do noveho sesitu nakopirovat vhodny pocet zaznamu s temito vyjimkami.
Je predpoklad, ze sesit pok_dat.xls bude slouzit pro pridelovani hodnoty Active number vice souborum?
Pises:

V sešitu pok_file.xls je rozhodující sloupec B:B (vyhledání), D:D (data pro vzorce (*)) a F:F (výsledek).

Lze tomu rozumet tak, ze napr pro "LGO" z pok_dat.xls lze priradit Active number pouze zaznamu, u ktereho se shoduje obsah sloupcu D:D? tedy dve podminky?
No a z tohoto jsem na vetvi:

(*) - vyjímka: asi to nevysvětlim moc pochopitelně, ale zkusim viz např: "ABF": pok_file má data pro vzorec ve sloupci E:E, ale v vzorec v pok_dat je ve sloupci F:F (označeno světležlutou barvou).

A co s timto:

Obecně:
Sloupce D:D a E:E by se měly shodovat (ale někdy nemusí (jinak tečka, mezera, ve sloupci E:E nemusí být číslo, atd)).

Jinak by asi byla rozumná podmínka, pokud v sešitu pok_file.xls má sloupec D:D jiný počet znaků než je v pok_dat.xls, tak přeskočit.

to se bude hazet minci?
Za tohoto stavu neuplnych a nejednoznacnych podminek lze tezko navrhnout nejake reseni.
Dopracuj zadani do pouzitelneho stavu a pak bude mozno pokrocit dale.
Drive jsi uvedl:

Jinak nejsem žádnej programátor a ani se o to "nesnažim"

Tak se snaz alespon tak myslet, jinak nebudes schopen ani zadat pozadavek na reseni.

[valtr81]

OK, kašli na vyjímky. 30.7. jsem vkládal 4 soubory a a jednu větu co chci aby to dělalo. Líp to už nevysvětlim ...

Uznávám, měl jsem to formulovat hned přesněji. Jinak nejsem žádnej programátor a ani se o to "nesnažim". Ano makro je nahráno. Pouze se snažím ulehčit si práci. Jeden soubor byl velkej, tak přikládám odkaz.

http://leteckaposta.cz/889136459

V souboru "pok_file" potřebuju mít v sloupci F (Active number) data ve formátu ze souboru "pok_dat" ze sloupce F.

Poslední věc: soubor pok_file.xls obsahuje dvě makra.
Pokud v Makro1 zaktivníš řádek " ' Windows("pok_newITems_0715.xls").Activate " nahraje se ti druhý vzorový datový soubor (který např obsahuje položku s 090), tam už nefunguje Makro2 - což by mělo vysvětlovat můj problém.

Pokud to stále nedokážu vysvětlit ... i tak díky za tvůj čas.