• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Fórum

MS Excel

Téma: Makro - Excel 2010

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

Chyba bude asi někde jinde, chtělo by to přílohu.citovat

lnk(24.1.2014 15:35)#017462

Zasílám celé makro

Příloha: 17462_makro.txt (7kB, staženo 27x)

citovat

cmuch(24.1.2014 18:39)#017465

Chtělo by to nějaká data, takto nevím.citovat

lnk(27.1.2014 7:54)#017503

Zasílám potřebná data

Příloha: 17503_objednavky-s.txt (7kB, staženo 27x)

citovat

lnk(27.1.2014 12:33)#017508

Ještě jednou v lepším formátu.

Příloha: 17508_objednavky-s.zip (7kB, staženo 26x)

citovat

cmuch(27.1.2014 12:50)#017509

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: 17509_objednavky.jpg (143kB, staženo 29x)

citovat

cmuch(27.1.2014 12:54)#017510

Tak jsem to zkusil ještě na tvé příloze a taky dobrý.

Příloha: 17510_objednavky-s.zip (27kB, staženo 26x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje