VLOOKUP...automaticky posun o dalsi stlpec Vyřešeno

[marek26]

noooo vizera to pekne, pochopil si to spravne....aj popis si dal ukazkovy, aspon vidim podrobne co sa prave deje...asi tam je drobna chybicka
teraz to funguje tak ze poradie ico je nemenne ak presunem napr. ico 7 v obrate(ciel.sheet"obrat") na 1.ve miesto a v vynose na posledne nepriradi spravny vynos. Udeje sa vo vynose potom to, ze priraduje automaticky podla poradia ica v obrate.
Prosim je mozna uprava? chapeme sa?

[Reklama]

[d1amond]

Berou se oba listy jako stejne. Vecer to upravim tak, aby se zvlast prochazel list vynos a zvlast obrat.

[marek26]

dakujem d1amond
vies moze sa stat ze poradie ica moze byt o 1-2riadky posunute
v obrate moze byt ico 343434 na 4.mieste a vo vynos na 5.mieste to sa zial stane
na zaciatku prikazu mi zadefinuj prosiim otvorenie suborov. Ja som tam dal toto (dole vidis) a skoncilo to na dim wbk2 as zdroj. Nevedel som ze to neni jedno ked otvorim subory dopredu ja manualne, alebo si ich makro otvori sám.
Aby si ich program sam otvoril, mam urobeny 3-ti xls s tlacitkom. kde som zavesil proceduru
Otazka:
Prosiim vies mi este, a to uz bude vsetko, upravit makro na 1 slucku? (slucka= otvorenie zdroj a ciel, ukon makra, ulozenie a zatvorenie)
nasledovne:
Otvorit ciel.xls
otvorit zdroj.xls
ukon makra
ulozit a zatvorit ciel
zatvorit zdroj
....................

no a tu vidis ako som postal na dim wbk1 as zdroj

Sub VynosyObraty()
ChDir "C:\Users\marek\Desktop"
Workbooks.Open Filename:="C:\Users\marek\Desktop\ciel.xls"
Workbooks.Open Filename:="C:\Users\marek\Desktop\zdroj.xls"
Dim col As Byte 'radek pro doplneni
Dim mes As Byte 'mesic
Dim wbk1 As zdroj
Dim wbk2 As ciel
Dim wsh1 As Worksheet 'zdroj
Dim wsh2 As Worksheet 'obrat
Dim wsh3 As Worksheet 'vynos

dakujem

[d1amond]

Procedura je ve třetím sešitu, start.xls - pouští se na tlačítko. Stále zůstává datum v B2, pro testování.
Přidal jsem do procedury cyklus FOR, který se provádí pro všechny listy v ciel.xls, zbytek zůstal až na nahrazení konkrétních listů za wsh, stejný. Nakonec se uloží a zavřou sešity zdroj.xls a ciel.xls.

ObratVynos.zip

(26.8 KiB) Staženo 12 x