Příspěvky uživatele
< návrat zpět
Tak som to včera od rána rozpytvával, upravoval, aby to sedelo do môjho súboru a fungovalo a večer sa mi to konečne podarilo 
. Už dávno som chcel písať o pomoc, ale chcel som to zvládnuť sám, aby som to aj pochopil. Všetko teda ide, ako má len 1 vec neviem a to aby sa PoPup Menu nevzťahovalo namiesto 1 hárku na 2 ( mám tam 2 hárky údajov ). Jedná sa o rozšírenie tejto časti:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'Pravý klik
Dim rngOblast As Range
If Not Sh.Name = "udaje" Then 'Na všetkých listoch okrem "udaje" ( a "popis prace")
Set rngOblast = Intersect(Target, Sh.Columns(1).Resize(Rows.Count - 1048452).Offset(7, 3)) 'Bol klik v stĺpci D od bunky 8 po bunku 131
If Not rngOblast Is Nothing Then 'Ak áno
ZobrazMenu 'Zobraz menu
Cancel = True 'Originál menu zruš
Set rngOblast = Nothing
End If
End If
End Sub
Skúšal som všeličo, ale nešlo mi to.
Plíz, plíz
Trošku nechápem otázku - nikdy sa mi to nezdalo "iba", ale je fakt, že som myslel, že to bude jednoduchšie :-)
Je to perfektné. Nemám slov.
Len pri zadaní novej hodnoty to trošku "škrie".
Zadám do riadku novú hodnotu - napr. LOPATA.
Hneď sa mi pridá do rozbalovacieho pola na posledné miesto. Keď ju ale hneď pridám do ďalšej bunky ( kliknem na ňu ), zapíše sa mi údaj nad ňou - čiže posledný, ktorý tam bol.
Až keď otvorím hárok "údaje" a znovu hárok "rozbalovací zoznam", ide pridať.
Čiže, ak sa mám hrať na múdreho ( čo teda nie som :-) ), nejaká aktualizácia údajov nie je dostačujúca, najskôr asi údajov v hárku "údaje", ktorá nastane až po otvorení tohoto hárku. Mala by nastať vždy, keď bude údaj zadaný ručne, resp. po každej zmene. (?)
Môžem ešte poprosiť o opravu?
A ešte jedna prosba. Študoval som to trochu, aby som aspoň podstatu pochopil, ale nemôžem tam nikde nájsť podmienku nezapísania nového údaju, ak obsahuje "služobná cesta ". Kde to tam je? Lebo to funguje a neviem prísť na to ako.
Ďakujem
Alebo:
Na vrakovisku máme 100 áut. Plán je 10 zošrotovať, čiže -10. Ale nejaký chytrák aktívny vie z jedného spraviť 2 a tak vyrobí 100 nových... % = - 1000... - jedna blbosť väčšia ako druhá :-)
Môže to byť napr. v náväznosti na predchádzajúce obdobie:
Minulý rok začíname. Plán je vyrobiť aspoň 200 a nebudeme 1. rok v strate. Veľké oči. Vyrobených 80, výsledok -120 - čiže strata.
Tento rok sumárny plán dostať sa celkovo aspoň na -10, čiže vyrobiť 110, vyrobených 220, sumárny výsledok teda +100. A sme v zisku konečne! Asi nový riaditeľ :-)
Lenže v tom prípade % plnenie z -10 ( čo je 100 % ) na 100 = 200 % ( plán 110, vyrobených 220 ). Čiže vstupné údaje na výpočet sú niekde inde, výsledok sa odvíja od predchádzajúceho obdobia...
Ale asi som aj dobrú blbosť napísal :-)
Ďakujem elninoslov, presne tak som si to predstavoval. Potreboval som síce ako výslednú hodnotu konečný údaj z posledného zoznamu a nie celú cestu k nemu, ale to som zvládol zmeniť. Dalo mi trošku roboty, kým som to prehodil do môjho súboru tak, aby to fungovalo, ale podarilo sa.
Nemám slov. Ste tu proste borci!
A že som tak smelý - bolo by k tomu možné pridať ešte jednu vec?
Obsah v hárku "údaje" v stĺpcoch B,C a D bude konštantný, ale do stĺpca A bude možné dopĺňať údaje a zoznam tak bude narastať. Ideálnejšie by však bolo, keby to šlo nasledovne:
V hárku "rozbalovací zoznam", resp. v inom ( bude ich takých 12, čiže skôr by som mal napísať "v aktívnom hárku" ) budem zadávať, resp. vyberať zo zoznamu údaj. Ak sa tam však nebude nachádzať, vpíšem ho tam ručne. Tento vpísaný údaj by sa automaticky, pokiaľ sa nenachádza v hárku "údaje" a zároveň neobsahuje výraz "služobná cesta - " zapísal do prvej prázdnej bunky v hárku "údaje" v stĺpci "A" ( v tomto prípade teda do bunky "A5" ) a tým pádom by už bol súčasťou zoznamu. To by bolo úplne luxusné riešenie.
Každopádne to idem skúsiť spraviť aj sám. Len či sa mi to podarí? :-)
Ď A K U J E M!
Pre eLCHa:
Ďakujem. Presne tak som to potreboval.
Ďakujem aj Pavlusovi. Aj to riešenie je OK, len trošku náročnejšie na vysvetlenie pre iných používateľov.
Pekný večer
Super, ďakujem moc, večer vyskúšam, teraz musím makať rukami :-)
Hej, spraviť to do 2 zoznamov v 2 bunkách problém nie je, to by som hravo zvládol. Lenže to potrebujem z dôvodu úspory miesta ( pridanie každého ďalšieho stĺpca mi robí problém pri tlači pri napasovaní na šírku strany. Text je potom moc malý a nečitateľný. ) spraviť do jednej bunky, a na toto riešenie som zatiaľ neprišiel. Ide tam o zadanie práce, neprítomnosti v práci z fondu PČ, neprítomnisti mimo fondu PČ, náhradného voľna a pracovnej pohotovosti. Každá z týchto kategórií má niekoľko možností, napr. neprítomnosť z fondu PČ: dovolenka, lekár, ošetrovanie člena rodiny atď.... Do tej bunky v evidencii dochádzky teda potrebujem dostať, čo som v konkrétny deň vykonával. A o to, aby to bolo na zadávanie čo najjednoduchšie. Preto sú na to 2 bunky v tomto prípade veľa.
Gúgl prehľadávam stále ( ohľado tohoto včera 6 hodín :-) ) a až keď nič nenájdem, prosím o radu. Ale ďakujem aj tak za odpoveď.
A keď som dnes ( vlastne už včera ) už taký smelý :-), poprosím ešte o 1 radu:
Mám v bunke overenie údajov cez rozbalovací zoznam. Je možné výberom hodnoty v tomto zozname otvoriť iný zoznam, z ktorého si vyberiem hodnotu a tá sa mi zapíše do tejto ( aktívnej ) bunky? ( resp. prepíše aktuálnu hodnotu zadanú z toho rozbalovacieho zoznamu - bunka A2 až A10 )
Napr. Overenie údajov - hodnoty: farba, tvar, veľkosť
zoznamy: červená, zelená, modrá / kruh, štvorec, trojuholník / malý, stredný, veľký.
Na výsledné hodnoty v bunke sú naviazané ďalšie vzorce a položiek v zozname je viac, takže 1 rozbaľovací zoznam by bol moc veľký a neprehľadný.
Súbor so zoznamami a overením údajov som nachystal ( v prílohe )
Ďakujem
Už sa mi to podarilo spustiť.
Ďakujem, idem sa s tým pohrať :-)
Skúšam stiahnuť prílohu, ale akosi mi to nejde:-). Píše mi, že: Vámi požádovaná stránka nebyla nalezena.
Môžem poprosiť znovu o prílohu?
Ďakujem
Dobrý večer.
Poprosím o radu. Mám makro na doplnenie, resp. vymazanie časti textu v bunke, ktoré spúšťam tlačítkom formulára. Je pridelené konkrétnej bunke. Takýchto buniek však mám viac v ďalších riadkoch, v každom riadku je tlačítko. Dá sa upraviť to makro tak, aby som ho nemusel písať pre každé tlačítko, teda riadok zvlášť, ale aby fungovalo na konkrétny riadok podľa pozície tlačítka?
Sub Služobná_cesta_2()
If InStr(Range("A2").Value, "služobná cesta - ") > 0 Then
Range("A2").Value = Replace(Range("A2"), "služobná cesta - ", "")
Exit Sub
Else
Range("A2").Value = "služobná cesta - " & Range("A2").Value
End If
End Sub
Nejde to podľa aktívnej bunky, lebo má fungovať aj na bunky, ktoré aktívne nie sú.
Ďakujem vopred
Vďaka, vyskúšam
Ďakujem, pomohlo.
Po 2,5 roku reakcia ... ale našiel som to tu náhodou. To je super vec. A ako na to? Lebo skúmaním zošita som na nič neprišiel :-)
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