< návrat zpět

MS Excel

Téma: Makro - Excel 2010 rss

Zaslal/a lnk 24.1.2014 13:57

Prosím o radu - makro bylo vytvoření v Excel 2003 a ve verzi 2010 místo nadefinovaných textů <14dnů, >14dnů, >30dnů atd. vypíše pouze 0Počet, 1Počet atd.

část makro:
ActiveSheet.Outline.ShowLevels RowLevels:=2

Range("A3").Select

Cells.Replace What:="počet z 5", Replacement:="<1.1.2010", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="počet z 4", Replacement:=">180dnů", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="počet z 3", Replacement:=">90dnů", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="počet z 2", Replacement:=">30dnů", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="počet z 1", Replacement:=">14dnů", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="počet z 0", Replacement:="<14dnů", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="Celkový počet", Replacement:="Celkově", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Columns("A:A").EntireColumn.AutoFit

Zaslat odpověď >
cmuch(24.1.2014 14:11)#017460
avatar
Chyba bude asi někde jinde, chtělo by to přílohu.citovat
lnk(24.1.2014 15:35)#017462
avatar
Zasílám celé makro
Příloha: txt17462_makro.txt (7kB, staženo 19x)
citovat
cmuch(24.1.2014 18:39)#017465
avatar
Chtělo by to nějaká data, takto nevím.citovat
lnk(27.1.2014 7:54)#017503
avatar
Zasílám potřebná data
Příloha: txt17503_objednavky-s.txt (7kB, staženo 19x)
citovat
lnk(27.1.2014 12:33)#017508
avatar
Ještě jednou v lepším formátu.
Příloha: zip17508_objednavky-s.zip (7kB, staženo 18x)
citovat
cmuch(27.1.2014 12:50)#017509
avatar
Tak jsem to zkoušel a chová se korektně.

Příloha je velká nemám jak přiložit.

Tak alespoň prntscrn.

Tak nevím proč by to mělo dělat co ty děláš.
Příloha: jpg17509_objednavky.jpg (143kB, staženo 21x)
17509_objednavky.jpg
citovat
cmuch(27.1.2014 12:54)#017510
avatar
Tak jsem to zkusil ještě na tvé příloze a taky dobrý.
Příloha: zip17510_objednavky-s.zip (27kB, staženo 18x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje