Příspěvky uživatele


< návrat zpět

Strana:  1 2 3 4 5 6 7 8 9   další » ... 147

Dnes v každej vete čo prečítam vidím nelogickosť.
"odoslalo na gmail bez outloku" ??? Každý mail predsa odosiela maily na akýkoľvek mail, nie len na gmail. Asi myslíte "odoslalo z gmailu bez outloku". A to je povedané niečo úplne iné. Na to sa používa metóda CDO, ale pri nej musia byť v makre uložené prihlasovacie údaje do mailu (hocikto ich môže vidieť, heslo tomu príliš nezabráni). Zadajte si tu na fóre hľadať výraz "CDO", je tu príkladov hafo. Marí sa mi tuším dokonca, že niekto spomínal, že cez vlastný poštový server heslo netreba. Neverím, že to tu za 20 min nenájdete.

Skutočne nejde použiť Worksheet_Change a chcete použiť Worksheet_Calculate ? Skúste z týchto 2 príkladov prísť na to aké to môže prinášať komplikácie (iba napoviem, že v Calculate sa nedozviete, čo spôsobilo prepočet, ani či vôbec došlo k zmene danej bunky ...).
A Vy máte dať prílohu + presný popis čo sa má diať, nie ja.

Toto bude fungovať aj pri prepočítaní vzorcov, nielen pri zmene nejakej bunky (pri nej tiež).

Do VBA listu:
Private Sub Worksheet_Calculate()
If Cells(1, 1).Value > 0.5 Then MojeMakro
End Sub


Do VBA listu alebo modulu:
Sub MojeMakro()
...
End Sub

A to je konštatovanie, či otázka ?
V oboch prípadoch - áno, funguje to na každý mail, ktorý je nastavený v Outlooku.

"Palooo" je užívateľ, ktorý pridal v prvom príspevku odkaz na riešenie, a v treťom príspevku odkaz na súbor s príkladom v prílohe. A potom nasleduje ďalší príklad od užívateľa "dream2003" formou zobrazeného textu. Všetky tieto menované príspevky obsahujú nejaký kód. Nenapísal ste, na ktorý príklad sa pýtate. Preto som písal, či chcete aby som pozrel aj na ten príklad od užívateľa "Palooo".

Bez skúšania....
.to = ""
-->>
.to = ThisWorkbook.Worksheets("meno listu s mailom").Range("adresa bunky s mailom").Value

Mám Vám pozrieť, kde to nastaviť aj vo verzii od Palooo ?

=IF(COUNTIF(Svátky!$C$3:$C$28;J3)>0;1;"")
=KDYŽ(COUNTIF(Svátky!$C$3:$C$28;J3)>0;1;"")

alebo
=IF(ISERROR(MATCH(J3;Svátky!$C$3:$C$28;0));"";1)
=KDYŽ(JE.CHYBHODN(POZVYHLEDAT(J3;Svátky!$C$3:$C$28;0));"";1)

=IF(A2<>"";IF(ROW(A2)=2;TEXT(A2;"d.m.")&YEAR(A2);IF(B1<>"";B1&",";B1)&TEXT(A2;"d.m.")&YEAR(A2));IF(ROW(A2)=2;"";B1))

=KDYŽ(A2<>"";KDYŽ(ŘÁDEK(A2)=2;HODNOTA.NA.TEXT(A2;"d.m.")&ROK(A2);IF(B1<>"";B1&",";B1)&HODNOTA.NA.TEXT(A2;"d.m.")&ROK(A2));KDYŽ(ŘÁDEK(A2)=2;"";B1))


TEXT(A2;"d.m.")&YEAR(A2)
som použil namiesto
TEXT(A2;"d.m.yyyy")
lebo by to pri prechode SK(EN) -> CZ nefachalo, kvôli tomu ž v CZ je to
TEXT(A2;"d.m.rrrr")
ale automaticky sa to nemení.

Nedobré riešenie dizajnu. Tabuľka zdrojových dát by mohla byť spojitá, dáta na jednom liste, výstupy na inom. Dátumy majú byť dátumy a nie text, čísla majú byť čísla. Identifikácia roku by mohla byť jednoznačnejšia (takto treba zisťovať každý 7-mi riadok v O:O), v samostatnom stĺpci a nie v stĺpci spolu s dátami. Počítať "predd" a "rozdiel" v inom roku ako v tom, ktorý má v "Plány ročné" vstupné údaje, je nezmysel. Predpokladám, že to chcete používať tak, že skopírujete jeden rok, a vložíte za posledný a pred výstup - viď 2. veta.

Na požiadanie úprava/oprava verzie 30965_kopirovanie-listov-subor-subor.zip z 1.4.2016 14:26 (končilo chybou pri nevybratí súboru).

Označte bunky - Údaje - Text na stĺpce - Ďalej - Tabulátor, Ďalej - Všeobecné, Spresniť - Znamienko mínus za záporným číslom - OK - Dokončiť.

Označte bunky - Údaje - Text na stĺpce - Ďalej - Tabulátor, Ďalej - Všeobecné, Spresniť - Znamienko mínus za záporným číslom - OK - Dokončiť.

Netreba toľko stĺpcov. Procedúru by som volal s parametrom. Pr.

2 rôzne príklady. Každý CheckBox zvlášť, a skupina OptionButton. Záleží na tom, čo chcete potom robiť. Každopádne nachystajte si makro a pridelte ho danému prvku. Ja som tam len pridal každému prvku nejaký názov a jeho vypísanie. Prvky v každom príklade majú rovnaké makro, ale to záleží ako som písal, na tom, čo plánujete robiť...

No tak snáď je to ono. Je to dynamické pre F2:I50. Podľa pravidla, ak je označenie v F alebo H, bez označenia nasledujúceho, tak nasledujúci maže, inak ho zapíše. To už také elegantné, pekné a krátke nieje. Vysporiada sa to snáď aj s presahmi, viacoblastnými výbermi, s meniacim sa počtom riadkov a pod.


Strana:  1 2 3 4 5 6 7 8 9   další » ... 147

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Excel Formulář

pisbo • 19.10. 12:03

Prepínanie údajov po rokoch

Denis • 18.10. 22:37

Excel Formulář

pisbo • 18.10. 17:57

Odeslání dat do souboru v síti a zápis do něj

xlnc • 18.10. 12:09

Excel Formulář

xlnc • 18.10. 11:56

Odeslání dat do souboru v síti a zápis do něj

Pavel-Krivanek • 18.10. 11:17

Excel Formulář

pisbo • 18.10. 8:30