Příspěvky uživatele

Aj najzlozitejsie riesenia su zalozene na znalosti elementarnych znalosti. Vdaka za vysvetlenie.

Uplne suhlasim s Vasim nazorom. Problem je len v tom, ze uzivatel sa nepohybuje len nad listom1 aj ked este nie je uplne vyplneny. Potom ked omylom alebo aj vedome klikne na list5, tak sa spusti procedura, spustenie ktorej je v takomto pripade neziaduce. Alebo sa mylim?
Podmienene formatovanie je super v exceli, ale v tomto pripade neviem najst podmienky, pretoze pri priebeznom vyplnovani tabulky nemusi byt vsetko systematicky vyplnene a neviem ci by dynamicky meniaca sa farba neposobila rusivo.
V MsgBox neviem najst vysvetlenie preco je tam & vbcrlf & vbcrlf (je to moja nevedomoct)

Je mi jasne, ze pochopit vsetky suvislosti bez znalosti komplexnej ulohy je tazke. Ale v kratkosti.
Na liste5 spustenie procedury ma zaistit zotriedenie udajov a nasledne nieco vykonat. Avsak zotriedenie je zmysluplne len vtedy, ak udaje na liste1 su vyplnene v pozadovanom rozsahu. Preto na zaciatku procedury na liste5 je kontrola, ci prislusne udaje su vyplnene - to je to, co som potreboval. Ak nie su vyplnene vrati uzivatela na list1 a ukaze mu, v ktorom riadku ich treba doplnit.
Teraz som to v procedure na liste5 poriesil tak, ze som pred MsgBox vlozil (podla mna nie celkom elegantne) prikaz: Worksheets("List1").Range("A" & Worksheets("List1").Range("B33")).Interior.ColorIndex = 3, ktorym farebne oznacim pozadovany riadok na liste1.
V kazdom pripade dakujem za cas venovany tomuto vlaknu a hlavne za vyriesenie bodu 1, s ktorym som mal problemy a stale konstrukcii tej spravy nie celkom rozumiem.

Do tej bunky moze vkladat roznym sposobom, priamo zapise, skopiruje, alebo mysou presunie z inej bunky. Takze neviem, ci by to bolo vhodne cez InputBox

To, aby sa zakazdym spustala pri aktivovani listu1 "nova procedura" nechcem. Potrebujem uzivatela len upozornit aby doplnil chybajucu informaciu na liste1, v C na riadku uvedenom v b26.
Neslo by miesto MsgBox v procedure s MsgBox na liste5 doplnit vyfarbenie prislusnej bunky v stlpci A na liste1 podla B26 a toto vyfarbenie zrusit zapisom dat do zodpovedajucej bunky v stlpci C?

Dakujem pekne za odpoved a za riesenie. Podla bodu 1 je to presne to co potrebujem, je to OK.
K bodu 2 este snad dovysvetlenie. Som na liste1 a kliknem mysou na list5. Na liste5 sa mi aktivuje procedura s uvedenym MsgBox. Po kliknuti na Ok v MsgBox, sa mi z uvedenej procedury znovu vyberie list1. A teraz by som potreboval, aby presne ta ista sprava ako bola v MsgBox sa zobrazila aj na tomto vybranom liste1. Snad je to jasnejsie

Aplikaciu pochopitelne nemozem prilozit. Je nieco nejasne v popise?
Snad este dodam, ze hodnota do B26 na liste1 je vlozena fciou:
=POZVYHLEDAT(PRAVDA;INDEX(JE.PRÁZDNÉ(J3:J34);0;0);0)

Po kliknuti mysou na prislusny list sa mi aktivuje nasledovne makro:
Private Sub Worksheet_Activate()
If Worksheets("List2").Range("B6") > Worksheets("List1").Range("B25") Then
Worksheets("List1").Activate
Worksheets("List1").Select
Response = MsgBox("Chyba na Liste1", vbExclamation)
Exit Sub
End If
Potreboval by som poradit:
1. Ako do MsgBox zaradi adresu chybnej bunky, ked viem, ze chyba je v stlpci C a cislo riadku mam na Liste1 v bunke B26 (Ak B26=5, potom v Msg Box sa vo vyssie uvedenom texte este zobrazi C5).
2. MsgBox sa zobrazi na danom liste, kde je vyssie uvedene makro. Potreboval by som, keby sa MsbBox po vybere listu1 (Worksheets("List1").Select) zobrazilo prave na tomto liste ( na List1) - neviem, ci to vobec ide
Dakujem

Vdaka, funguje.
Prajem prijemne prezitie vianocnych sviatkov a vsetko najlepsie v novom roku 2011

Este raz zdravim.Potreboval by pomoct s makrom. Mam jednoduche makro, ktore po zapise do bunky konvertuje male pismeno na velke:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D24,H3:H24")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
Potreboval by som upravit makro tak, aby sa tato zmena uskutocnila len vtedy, ak v stlpci B v riadku zodpovedajucemu Targetu nie je nulova hodnota (<>"") a zaroven ak tato hodnota ="" aby sa bunka do ktorej sa vlozila hodnota v "Target, Range("D3:D24,H3:H24") vynulovala (="") . Dakujem

Dakujem za odpovede.
Vyhodenie JE.CHYBHODN nefunguje, vracia #N/A.
Riesenie navrhnute Vaseyom funguje. Ja som to poriesil: =KDYŽ(JE.CHYBHODN(SVYHLEDAT(B3;$B$30:$G$51;6;0));KDYŽ(JE.CHYBHODN(SVYHLEDAT(B3;$E$30:$G$51;3;0));" ";SVYHLEDAT(B3;$E$30:$G$51;3;0));SVYHLEDAT(B3;$B$30:$G$51;6;0))

Moze mi niekto poradit, preco nasledovna funkcia nepracuje spravne? Stale vracia medzeru.
=KDYŽ(JE.CHYBHODN(NEBO(SVYHLEDAT(B3;$B$30:$G$51;6;0); SVYHLEDAT(B3;$E$30:$G$51;3;0)));" ";NEBO(SVYHLEDAT(B3;$B$30:$G$51;6;0);SVYHLEDAT(B3;$E$30:$G$51;6;0)))
Funkcia by mala vyhladat hodnotu danu z B3 bud v stlpci B30:B51 alebo v stlpci E30:E51 a mala by vratit hodnotu z najdeneho riadku zo stlpca G. Ak hodnotu =B3 nenajde, vrati medzeru. Ďakujem

Super, funguje to. Dokonca aj s textom - nerozlisuje vsak velke a male pismena.
Dakujem

S dvomi duplicitami (rovnake hodnoty) to funguje, ale ked je v stlpci viac duplicit, tak to nefunguje spravne. Napr v priklade B4=2

Dakujem, je zaujimave, ze s D4=2 to funguje, ale ked vlozim D4=3 (3 je tiez duplicita), tak to nie je ono. Hodnota 3 sa v stlpci C zobrazi v C6 a C8. Spravne ma byt len v C6. Nedari sa mi zistit preco s D4=2 je to OK, ale s D4=3 nie.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje