Příspěvky uživatele
< návrat zpět
*Příloha
Zdravím, vyzvoril jsem jeste snazsi makro ktere je krasne prehledne a funguje presne jak potrebuju (kontroluje jen nazev bez ohledu na cestu atd) ale jakmile nazev sešitu přejmenuju na TEST5 - a.xlsm (proste kdykoli dam do nazvu sesitu mezeru s pomlckou tak prestane fungovat..) Neslo by to nejak osetrit?
Děkuji za rady
lubo:
pravý klik a vožit hodnoty. Je vidět že jsi hodně najivní a s běžnýma uživatelama nepracuješ 
elninoslov
První postup funguje parádně, použiju,
DĚKUJI MOC pomohlo
mepexg
COM AddIns - Inquire.
Koukám na nějaký videa a vypadá to zajímavě (neznal jsem) dalo by se také použít ne jenom na toto díky za nápad více to prostuduji.
DÍKY
Zdarvím,
potřeboval bych poradit jak upravit makro tak aby dokazalo vyhodnotit jestli se bunka B5 v Listu1 a sešitu TEST1.xlsm rovná bunce B5 Listu1 ale sešitu TEST2.xlsm.
Předpoklad otevřeného sešitu TEST2.xlsm je ošetřen.
Viz příklad, Děkuji za rady...
Setkávám se s tím neustále že uživatelé kopírováním sem a tam zničí každý soubor co vidí. (roste roste až nejde ani otevřít).
TOTO je prevence ne řešení problému:
Řešení jsem tady jednou také řešil a osvěčilo se skvěle viz odkaz.
http://wall.cz/index.php?m=topic&id=42847&page=1#post-42868
V každém souboru kde je to možné tak dávám:
(Makro je nutné přiřadit pak klávesové zkratce ctll+V)
Sub JakoHodnoty()
' Klávesová zkratka: Ctrl+V (cokoli co jsi zkopiroval vlozi jako hodnoty)
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Pokud ti nevadi pridavat sloupce s mezi vypocty tak takto. Urcite by to slo najednou za pomoci nejake maticove funkce ale ty mi moc nejdou :D
elninoslov
DĚKUJI moc už to funguje dokonale
DÍKY 
elninoslov
Děkuji za pomoc, nicméně tomu moc nerozumím protože asi něco delam spatne a netusim co. viz pokus tveho reseni na dalsim prikladu abych to pochopil ale vraci to chyby.
Škoda že se nepovedlo aby makro mohlo obsahovat lokalni funkci. Slozity megavzorce se snadneji delaji za pomoci lokalnich funkcích(ty se pak jen vlozi) nez to lustit ve VBA. Treba se to nekomu povede doladit k dokonalosti jeste.
Stalker:
makro FILTR2 je presne onooo a funguje dokonale, použuju.
DĚKUJI mooc za pomoc
Zdravim,
Chci se zeptat jestli nekdo dokaze upravit toto makro tak aby prepocitalo jen zafiltrovanou oblats nic jineho. Nyni se vypocet znici..
viz priloha:
Sub FILTR()
Dim MaxRadek As Long
Dim OblastA As Range
Application.ScreenUpdating = False
MaxRadek = List1.Cells(Rows.Count, 4).End(xlUp).Row
Set OblastA = Range("E7:E" & MaxRadek)
With OblastA
.FormulaLocal = "=D7+$E$5"
.Value = .Value
End With
Application.ScreenUpdating = True
Set OblastA = Nothing
End Sub
Ajoooo, říkal jsem si že nebudu daleko.
Děkuji moooc pomohlo
Zdravim,
potreboval bych poradit jak upravir userform tak abych nemusel vzdy klikat na tlacitko OK ale aby se ihned po kliknuti na dany datum hodnota prenesla do bunky B3.
viz priloha.
Nic nemuzu najit dekuji za radu.
marjankaj
Palooo
SUPER pánové fungujou obě řešení, použiji.
Díky MOC
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články