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

Příspěvky uživatele

Run-time error '445'
Object doesn't support this action
Čím by to mohlo být ? Používám office 2010.

Jelikož od verze 2007 již VBA nepodporuje příkaz "Application.FileSearh" proto ta chybová hláška.
Makro jsem psal v práci na 2003 kde mi to fungovalo.

Nicméně makro jsme upravil s tím, že jsem na netu hledal možnosti čím to nahradit, takže jsem přidal
"Class Moduly" (což není můj výmysl jenom jsem ho upravil dle obrazu svého)

Doladil jsem ještě nějaké maličkosti v Userformu , takže snad poslouží
P.s. Teď to bohužel nebude fungovat ve verzi 2003

@ Dingo:
Tvoje makro jsem bohužel ani nespustil, jelikož běžím na 64bit OS, takže nemůžu posoudit či je lepší

edit: funkční příloha v #post-22271

nebo takhle? viz přílohu

přes tlačítko s možností výběru.

Jelikož nevím jaké přípony máš konkrétně namysli(kromě příkladu co jsi uvedl) tak jsem hodil do sloupce "A" pár přípon.

opraveno.

ja měl namysli jenom aktuální datum, moc se ve vzorcích nevyznám
zkus vzorec =NEBO(DENTÝDNE($B3)=6;DENTÝDNE($B3)=7)
nahradit vzorcem =NEBO(DENTÝDNE($B3)=1;DENTÝDNE($B3)=7)

Aktuální datum ti nemůže zvýraznit když ve sloupci "B" máš rok 2010

máš namysli komentář (červený trojúhelník v rohu bunky)
nebo jsi měl něco přes makro napsané?

Tohohle jsem se právě obával, že budeš rozšiřovat řádky. Jsem zvědavý až budeš mít 30 a víc druhů jak to budeš řešit bez rolovaní. Nevím jaké rozlišení má tvůj monitor, ale mně se poslední sešit vešel v pohodě do okna. (i ten první mimochodem, ale to je jedno)

Posílám ti finální verzi. Víc se s tím už zabývat fakt nechci a ni nebudu.

PS.ještě jedna věc proč řešíš jeden problém ve třech postech?? Zbytečně to tady jenom zahlcuješ

zde

tady to máš

zde

" při otvírání eventuálně ukládání větších souborů HLAVNÍ LIST z obrazovky zmizí a obrazovka je bílá"

předtím než se spustí příkaz pro otevírání a ukládání zase povol ScreenUpdating

upravil jsem trochu makro viz příloha

zase jsem to delal na barvu bunky
kdyby to nefungovalo tak překopíruj si makro do svého sešitu
já to dělal na MS office 2003 takže nevím či nebudou nějaké problémy s kompatibilitou

Formát buněk... => Vlastní =>
zadat: 0###
což znamená že 4 místní číslo začínajíc 0 se zobrazí jak byl vložen

takže když číslo bude 056238 formát bunky si nastavíš na 0#####

omlouvám se za neodborné vysvětlení

jo to by šlo taky, ale
1. co je to někde odečetlo (vedle z bunky nebo jiný list?) bylo lepší popsat požadavek podrobněji
2. jak chceš odlišit kde se má co připočítat a kde zas co odečítat?

to jsou věci, bez kterých se makro těžko napíše.
bud sem hod přílohu kterou chceš upravit, nebo podrobněji rozepiš svůj požadavek.

Ahoj.
procedura funguje zkoušel jsem
bud nemáš povolená makra nebo si makro nevložil do správného listu.
co se týče otázky "samou funkci pro deset hodnot." mas na mysli 10 různých buněk?
tak tam bych volil možnost zabarvení bunky třeba na žlutou colorindex = 6
a to by stacilo přepsat Hav-Ranovo makro první řádek.
takto:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Target.Interior.ColorIndex = 6 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
Target.Offset(0, 2).Value = _
Target.Offset(0, 2).Value + 1
ERRORHANDLER:
Application.EnableEvents = True
End Sub


pro ukázku viz přílohu

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje