Příspěvky uživatele
< návrat zpět
Vyskúšajte toto.
Nepotrebujete ani makro, stačil by maticový vzorec s tabuľkou hodnôt.
PS: Sem nejde vložiť príloha, tak príklad na uložto... Maticový výber položiek.xlsx
S tou "0" to nieje problém, stačí obaliť to čo je za ":&" do TEXT(blabla...;"00"), Ale s tým prepočítavaním máte pravdu. Vzniká to tým, že tam nevychádzajú (tak nejako logicky očakávané) čísla, ale čísla napr. s chýbajúcou 1 miliontinou, a už je vzorec v háji. Nemám absolútne čas. Neviem, kedy sa Vám na to mrknem... Teraz som tu len náhodou...
Iba doplním k čomu sme sa dopracovali v súkromných správach po pár úpravách. Problém bol s nefunkčnosťou podmieneného formátovania na danom Excel2007 a iné drobnosti. Tak keby niekoho zaujímalo niečo podobné ...
A odkiaľ sa tie čísla berú, keď tam postrádam stĺpec Sklad ? Či ... ?
Napr. niečo takéto ?
Tak aby bola ešte väčšia sranda, dnes som sa venoval prevážne Vám 
"Trochu" som Vám to prerobil - prekopané je úplne všetko.
-podmienené aj normálne formátovanie
-vzorce
-dátumy
-nezáleží na mutácii SK či CZ
-všetok neporiadok okolo tabuliek preč
-správne upravovanie februáru aj s formátovaním, zlúčenými bunkami ...
-úprava nesprávnych areas v range v kopírovanej oblasti
-automatické skoky na zvolený mesiac (overenie dát)
-zbytočné riadky a stĺpce preč
-schovávanie a odkrývanie iba prázdnych riadkov a iba v tabuľkách
Ja vlastne už ani neviem čo všetko...
Mrknite, a povedzte, čo ste to tam ešte chceli formátovať tým
MOD(D5;7)<2
v podmienenom formátovaní ? Majú byť pracovné dni až po 2 týždňoch po novom roku, či čo ?
EDIT: upravené jedno zlé číslo stĺpca v makre.
Skontrolujte si, či máte v roku 2016 v bunke AK163 hodnotu True (potom si tú bunku zmažte). Ak áno tak Vám to formátovanie sviatkov fungovať musí.
Rýchlo som to testol. Vaše riešenie je určo elegantnejšie. Moje nemá ešte ošetrené vloženie 2 des. čiarok, takže Vaše je aj správnejšie. Nech si ho len dotyčný ak chce doplní o ENTER pre opustenie TextBoxu.
PS: Tiež Vám nejde Editovať predošlý príspevok v ktorom je CODE ? Moje staršie príspevky v ktorých nieje CODE majú voľbu "upravit", tie s CODE nie. Iba jeden krát som zazrel "upravit" na prisp. s CODE, opravil, dal Uložit zmeny, a namiesto opravy mi dalo nový príspevok s vlastnou citáciou. Rovnako na všetkých prehliadačoch. Win aktuálny, skúsim ešte Javu updatnúť...
@eLCHa: "vknullstring" ... samozrejme vbNullString 
Aj by som to opravil, ale zmizla mi na tablete možnosť Edit.
A formát ešte checknem niekedy.
Ten Váš kód snáď dnes vyskúšam tiež.
A tem KeyCode : Ja som si to tiež neskôr uvedomil, že to nieje kód znaku ale klávesy. Človeka všetko nenapadne hneď, ale zrovna tie kódy som mal zistené pokusným stlačením ďaleko skôr ako z nápovedy.
3:26 Poďme už spať...
=IF(B2>C2;IF(B2-C2<D2;B2-C2;D2);0)
???
Tie kódy sú fakt divné, svätá pravda. Musel som si pre istotu každý vyčítať za behu. Ale snáď to bude fachať.
Ja som to tiež skúšal spracovať v jednom vzorci, cez SUBSTITUTE/DOSADIT v matici, no to sa mi nepodarilo. Ono totiž ten vzorček dáva pole už upravených znakov, a napadlo ma ho indexovať v SUBSTITUTE v matici a nahradiť nimi pôvodné, žiaľ neúspešne.
Riešenie je to zaujímavé.
No obaľte ten vzorec do IFERROR()
=IFERROR(VLOOKUP(Tabuľka2[@Tovar];Tabuľka2;2;FALSE);"")
=IFERROR(SVYHLEDAT(Tabuľka2[@Tovar];Tabuľka2;2;NEPRAVDA);"")
Napr.
Ešte by stálo za to poukázať na možný problém s EnableEvents. Ak totiž volané makro skončí chybou, debuguje, užívateľ to následne Stopne, lebo si nebude vedieť rady, tak udalosti ostanú vypnuté. V tomto prípade je pravdepodobnosť dosť malá, že pri kopírovaní nastane chyba, ale ak by sa jednalo o zložitejšie makro, tak by som odporúčal procedúry zmeniť na funkcie, obaliť ich On Error kontrolou, a riadiacej procedúre poslať info o prípadnej chybe. Aby užívateľ vedel o chybe (to by zistil aj bez toho), ale aby EnableEvents ostalo zapnuté.
Teda napr.:
Function Makro1() As Boolean
'
'Nepřestupný
On Error GoTo KONIEC
Range("BB45:BE61").Copy Destination:=Range("AF45:AI45")
Exit Function
KONIEC:
Makro1 = True
End Function
Function Makro2() As Boolean
'
' Přestupný
On Error GoTo KONIEC
Range("AU45:AX61").Copy Destination:=Range("AF45:AI45")
Exit Function
KONIEC:
Makro2 = True
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chyba As Boolean
If Not Intersect(Target, Cells(2, 3)) Is Nothing Then
Application.EnableEvents = False
If Cells(2, 3) Mod 4 = 0 Then Chyba = Makro2 Else Chyba = Makro1
If Chyba Then MsgBox ("Nastala chyba.")
Application.EnableEvents = True
End If
End Sub
Zmenil som Vám tam kopírovanie na oveľa jednoduchšie, ak už ten február/únor chcete riešiť takto.
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