dnes sa dari :( ... ospravedlnujem sa zas ste mali pravdu
dufam ze do tretice to uz bude dobre
prerobene aby to slo z profes_org.xls
treba si tam potom prepisat cestu k skratkam.xls
Ok hotovo
- mal som robotu preto opozdenie :P
Makro:
- selecneme bunku v tabulke (taku ktory stlpec chceme porovnavat)
- spustime makro (nazov: test)
- porovnava to s funkciou LCASE
potom dajte vediet ci vyhovuje
asi som zle udal priklad. Ide o to ze ked sa to bude porovnavat tak moze tam byt v nazve aj skratka ... ta sa moze vyskytnut v predu vzadu ... samozrejme ta skratka moze byt s zatvorku alebo pomlckou .... tych moznosti je mnohoo
... takze sa preto pytam ci presne alebo len vyrez z toho textu ... pri presnom texte by bola velka chybovost
ochvilu pridam prilohu neh je to hned jasne
s nakrom mozu vznikat duplicitt
priklad:
"Česká parodontologická společnost"
"Ceská parodontologicka spolecnost"
"Česká parodontologická společnost (CPS)"
aj tak to chcete?
tak si dajte vsade ten vzorec od f2 do f10000 ... len si tam este dopiste do vzorca, ked budu prazne A B C D ze ma zobrazit "" tj. nic
nechce sa mi to v tom v vasom vzorci hladat ale vypadalo by to asi takto
"=IF(x>10;"PRAVDA";"")"
potom druhe riesenie je cez Makro :P
- aha ja som to zle pochopil ja ze ta podmienka ma platit len pre sheet "5"
- dorobil som tam aby to bralo len sheets od 1 do 12
ot.1. ... dodal som tam select case pre viac moznosti ... viac makro
ot.2. umna to funguje bez problemou aj v subore co si poslal to ide
posli prilohu kde to nefunguje
na 1. otazku treba prilohu ... lebo makro pracuje len s A B C stlpcom
2. otazka: musi to fungovat aj slovne ... skontrolujte si ci nazov stlpca sa presne zhoduje s nazvom Sheetu
tu mas ukazku ako by to malo potom vypadat ked to odtial vyrezes
urobil by som to ale neviem co je upravit na "jednu stranku" :))) ... kedze ked si dam Tlacit tak mam moznosti len Area, Orientate, Typ papieru, Oramovanie a Scaling
hej staci urobit presnu kopiu toho isteho makra co tam mas a len prepises toto:
For i = 6 To Range("b65000").End(xlUp).Row
Workbooks.Open (Cesta & Cells(i, 2)) 'otevreni souboru
'''START''''' toto prepisat podla seba
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.PaperSize = xlPaperA4
''''END'''' toto prepisat podla seba
Workbooks(Workbooks.Count).Close savechanges:=True 'zavreni souboru
Next i
Tam doplnis to nahrate makro v style:
Workbooks(Workbooks.Count).ActiveSheet.MAKRO
takto:
ActiveCell.FormulaR1C1 = _
"='T:\Vyrobni technologie\Grafy\" & cells(1,1) & "\Týdenní\Week 22\[BT 3310 Week 22.xlsm]DATA'!R[-5]C[223]"
co si predstavujete pod pojmom externí odkaz ?
Edit: jaj uz som to pochopil :), takto tvorit vzorce sa nemoze a myslim ze ani mozne nieje ale kedze viete ze chcete udaj z tych buniek tak by naml byt problem ho zakomponovat do dalsieho vzorca
v VBA: cells(1,4) = cells(1,1) & cells(1,2) & cells(1,3)
urobil som to do makra ale tiez sa zastavam kontingencnej tabulky .) je lepsia
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.