Niečo takéto?

Ad 2.
If Range("A1").Value = "" Then Range("A1").Value = Range("X10").Value

Ahoj
Ďakujem pekne.
Dá sa to aj takto, aj keď pravda je, že som mal na mysli niečo ako MsgBox
ktorý by vyskočil po kliknutí na toho môjho smailíka a až tam by sa to zaznačovalo.
Ale aspoň si mi ukázal ako sa to robí a budem si to vedieť uspôsobiť.
Aspoň dúfam :)

Najprv použijem možnosť č.2 ktorú si mi napísal,upravím makro riadok po riadku,ja som to robil cez If <> 0 a podobne a nefungovalo to dobre.

Takto to už pôjde a nebudem potrebovať možnosť 1. s odklikávaním - bude to blbovzdornejšie pre užívateľa :)
Ale chcem vedieť urobiť aj možnosť 1 ! :)

Napíšem ako sa mi zadarilo

ĎĎĎ

Alebo takto?

Ááá tak to už áno.:)
Ale to je už vyššia liga..
Vlastne MsgBox nemá také možnosti ako som ja od neho chcel takže si to musel robiť cez UserForm.
Len neviem ako si to prispôsobím, kedže neviem ako to fachčí..
Ani len "pitvať" to zatiaľ neviem..iba som si to otvoril v dialog. okne UserForm..
Ale kde to ma kód a tak..no pomohla múdra kniha (pravé myšítko a ViewCode). reálne príklady sú na nezaplatenie..
Ja sa práve dostávam k UserForm v mojich múdrych knihách tak dúfam že sa naučím niečo..
Ďakujem skúsim to dokončiť :)

ALT+F11
vyber Userform1
V menu si zapni VIEW -> TOOLBOX
Vyber si checkbox a umiestni na formulár, potom si premenuj
Klikni naň pravým tlačítkom a vyber VIEW CODE
A môžeš programovať. MSGBOX nahraď volaním procedúry.

Tak Ty si rýchly !
Idem na to..Ďakujeemm
:) ...úplne jednoduchooo.. :)

ALT+F11
vyber Userform1
V menu si zapni VIEW -> TOOLBOX
Vyber si checkbox a umiestni na formulár, potom si premenuj
Klikni naň pravým tlačítkom a vyber VIEW CODE
A môžeš programovať. MSGBOX nahraď volaním procedúry.

Ahojte.
Konečne dozrel čas na túto úpravu našej tabuľky.
Pracoval som na tom dlhšie ako je zdravé..
Niečo som ale zbabral.
Údaje sa mi aktualizujú hneď po "zafajknutí" v Toolboxe "SPUSTI" a nie až po odkliknutí na tlačidlo O.K.
Dokonca, ak nechám "zafajknuté" okienka a vyjdem cez "ZRUŠIŤ" z Menu, pri ďaľšom otvorení sa to automaticky hneď spustí, lebo okienka zostanú "zafajknuté".
Prosím, viete mi pomôct s úpravou makierka?
Makierko prenáša hodnoty z listov srot Kopy, Tva Kopy, Sva Kopy, 102 a 202 do riadkov 65 až 84 - stĺpček sa určuje podla hodnoty v bunke L1 list SK ČB
Ďakujem veľmi pekne za všetky odpovede.
Zošit som musel upraviť a okresať, nechal som tam len to najnutnejšie.
Ak to bude nezrozumiteľné, celú tab. môžem zaslať na e-mail.
Ešte raz vďaka, a pekný večer všetkým poraďákom.

Pridávam ešte jednu tabulečku, hádam z nej bude jasnejšie o čo mi ide:
1. Z MsgBox mi to funguje - makro prebehne až po odkliknutí na tlačidlo O.K.
2. Makro "Jablká" - kde som už vložil vlasný kód sa spustí hneď po zafajknutí - a to nechcem. Až po odkliknutí na O.K.
3. Potreboval by som, že ak vyjdem z menu cez Zrušiť, formulár sa "vyčistí" a nezostanú zaznačené okienka.

Neviem s tým viac pohnúť, skúšal som to s Call aj bez, výsledok je rovnaký, neviem prečo je to tak :(

Ďakujem všetkým

Neviem, čo presne chceš. Teraz nemám veľa času to študovať.
Možno toto postačí.

PS. Ešte si tam doplň toto. (bod. 3)



Private Sub Zrusit_Click()
Jablka.Value = False
Banany.Value = False
Jahody.Value = False
Súčet.Value = False
Všetko.Value = False
Me.Hide
End Sub

Ďakujem veľmi pekne.
Teraz som došiel domov, hneď idem na to.
ĎĎĎ

Áno, to je presne ono..

Ďakujemmm
ešte raz veľmi pekne, funguje to perfekne, idem to preštudovať a dať do ozajstnej tabulečky.

nakopíroval som tam aj to makierko pre zrušiť, je to perfektné! Dík

Edit:
Prikladám súborik, kde som si dovolil aplikovať Tvoje vedomosti :)
Možno to pomôže aj ostatným.
Ja niečo podobné používam hlavne na prenos a uchovanie dát z webových reportov, podľa potreby si ich natiahnem na niektorý "pracovný" list a vyselektujem si vybrané údaje na "Údajový" list do podoby kde už môžem s dátami pracovať podľa svojich potrieb - grafy.. Taktiež, kedže sa často jedná o denné web reporty, mi takto zostanú čísla za každý deň v mesiaci pekne uchované podľa dátumov.

Ďakujem

Zdar priatelia
Urobil som si ďalšiu tabulečku po vzore makierok ktoré ste ma tu naučili.
Akosi som ale zle napísal príkazy pre UserForm1.
Chcel som užívateľom uľahčiť tlač dokumentov.
Spravil tom teda "okienka" kde by si navolili koľko strán z ktorého listu chcú vytlačiť a po kliknutí na OK by makierko zariadilo všetko ostatné. Akosi mi to ale nefunguje :(
Viete pomôcť?
Ďakujem veľmi pekne

No po kliknutí na OK sa spustí tento kód.


Private Sub CommandButton1_Click()


End Sub

Teda neurobí to nič.:eek:

Opravené ďakujem..

Neviem čo som si myslel..ako sa to má spúšťať keď ten základný príkaz tam nebol..

Private Sub CommandButton1_Click()


' TLAC_HRM_1_STRANA()


If Tlac_HRM_1.Value Then


Sheets("HRM").Select
Range("A1:R60").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$R$60"
Application.ActivePrinter = "HP Color LaserJet 2840 PCL 6 na Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"HP Color LaserJet 2840 PCL 6 na Ne04:", Collate:=True


End If


End Sub

Nefunguje mi ešte to odoslanie na tlačiareň.
Zvolenie tlačiarne, a oblasti ktorá má byť vytlačená, som robil cez záznam makra.
VBa sa to ale nepáči a zastane tam.
Skúsim ešte zajtra pošpekulovať ak práca dovolí.. :)

EDIT:

No už som voľačo vygoogloval.
Problém bude asi v tom, že chcem tlačiť na inej ako predvolenej tlačiarni.

Uvidíme či budem vedieť použiť čo som tu našiel :

http://www.erlandsendata.no/english/index.php?d=envbaprintchangeprinter

http://www.exceltip.com/st/Change_the_default_printer_using_VBA_in_Microsoft_ Excel/453.html

či už Ste to riešili niekto?

EDIT 2: Tak napísané som to mal dobre, počítač na ktorý som bol napojený cez VPN mal nejaký problém zo sieťou. Tlačí mi to bez problémov.
Pekný deň poraďákom prajem.