• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Nomi: Tak povedzte, čo na tomto nefunguje.

JoKe: Zbežne na to pozerám, a pochybujem o funkčnosti podľa zadania. V bunke predsa bude názov aj s príponou. Ale hľadať má aj alternatívu, že bude mať súbor inú príponu. Musíte buď cez Left a InStrRev alebo Len+Split odstrániť príponu.

EDIT: Príklad:
Sub CheckExists()
Dim rngRed As Range, rngGreen As Range, Cell As Range, V, Pos As Integer
For Each Cell In Selection.Cells
V = Cell.Value
Pos = InStrRev(V, ".")
If Len(Dir(Left$(V, IIf(Pos = 0, Len(V), Pos - 1)) & "*")) = 0 Then AddColor rngRed, Cell Else AddColor rngGreen, Cell
Next Cell
If Not rngRed Is Nothing Then rngRed.Font.Color = vbRed
If Not rngGreen Is Nothing Then rngGreen.Font.Color = vbGreen
End Sub

Sub AddColor(ByRef rngDest As Range, Cell As Range)
If rngDest Is Nothing Then Set rngDest = Cell Else Set rngDest = Union(rngDest, Cell)
End Sub

=MIN(IF(C3:C8="";B3:B8;FALSE))
=MIN(KDYŽ(C3:C8="";B3:B8;NEPRAVDA))

Skúste do IF/KDYŽ pridať ešte tretí parameter FALSE/NEPRAVDA. To musí fungovať.

Prípadne nematicovo (zdroj YouTube):
=AGGREGATE(15;6;B3:B8/(C3:C8="");1)

A môže nastať, že systém v liste NC vypľuje menu, ktorá ešte v AC nieje, a bude ju treba pridať do listu AC? Ak áno, môže byť pridaný aj niekde medzi pôvodnými menami? Teda napr. medzi CZK a EUR by dalo novú menu USD? Ak áno, kam ju treba potom pridať? Na koniec za ostatné čo tam pôvodne boli, alebo ich posunúť?

Inak ak je v oboch listoch aj "Pôvodná cena" aj "Aktuálna cena" mi nepríde logické. Veď ak aktualizujem cenu, a je nejaká nová spĺňajúca podm., tak v AC predsa presuniem tú čo bola doteraz v "Aktuálna cena" do "Pôvodná cena", a namiesto "Aktuálna cena" vložím novú aktuálnu cenu z NC. Pretože tá čo bola pred aktualizáciou aktuálna sa stáva pôvodnou. A tu mi nesedí to, že v NC je položka "Pôvodná cena". Má sa naozaj aktualizovať aj pôvodná cena (nieje problém)?

Ešte to robiť nejdem, len si ujasňujem, či mi to zapadá do v hlave "načrtnutého" riešenia :)

Elnino chápe, ale Elnino tiež skoro vždy nájde nejaké nelogické či nevysvetlené zádrhely :)

- V nových cenách nieje pri artikli 1 cena 3, no v starom je. Znamená to, že sa táto cena u tohto artiklu v pôvodnom zozname zmaže, alebo sa jej precenenie len vynechá (ostane pôvodná)?

- Ak v nových bude artikel, ktorý v starých nieje, tak sa iba pridá na koniec?

- Ak daný artikel v starých neobsahuje druh ceny, ktorý je zadaný v nových, má sa táto cena k starému pridať na koniec vpravo, alebo vynechať ?

- Za identifikátor druhu ceny sa považuje nadpis v riadku 1 (B1, C1, D1 ...) teda "CENA 1", "CENA 2", "CENA 3" ... ? Alebo za identifikátor sa považuje číslo stĺpca ? Inak povedané, môžu byť nadpisy stĺpcov s novými cenami akokoľvek odlišné ako staré (pridané, ubrané, poprehadzované, ...) ?

...

Ani najväčším omylom to neodstráni všetku diakritiku. Ani len slovenskú nie (ŕ,ô,ľ,ĺ). O iných ani nehovorím (ń,ñ,ć...). Pozrite sa na Mapu znakov, koľko ich tam ešte je.

Vzorcom ? Stačí dať prepočítať list na karte Vzorce, a čísla sa zmenia. Alebo akákoľvek zmena v bunkách spôsobí prepočet čísel. Ak potrebujete presný opak, aby sa čísla neprepočítavali samé pri nejakej zmene, tak potom jedine makrom.

OT:

Darbujan: Presne s takýmito "popismi" sa často stretám, fantázia musí často len tak hučať, a tak som možno zvyknutý.

Alindros: Chvalabohu ste ani jedno netrafil. Tému som nezaložil ani nepamätám, Čaka zrovna nemusím, a ako Sheldon by som byť nechcel, ale mám ho rád

marjankaj: Hádať riešenie ? No, áno je to často lotéria :)

Tak toto sú prkotiny. Čo je horšie, že nemám elán/čas na komplikovanejšie veci čo som prisľúbil (a týmto sa aj ospravedlňujem tým čo som niečo rozpracoval/sľúbil a stále nič). Posledné 3-4 mesiace ... no bieda so mnou. Neviete zohnať pod rukou nejaký kryptonit ? Ten by bol asi v dnešnej dobe rozchytaný co-by-dup.

Áno, v tom prípade by to mohlo byť takto nejako:
=IF(ISERROR(SEARCH(","&A2&",";","&$C$1&","));"";B2)
=KDYŽ(JE.CHYBHODN(HLEDAT(","&A2&",";","&$C$1&","));"";B2)
a malo by to obsiahnuť všetky mysliteľné eventuality čo ma napadajú.

Si myslím, že som to uviedol správne, či nie ???

=IF(ISERROR(FIND(UPPER(A2);UPPER($C$1)));"";B2)
=KDYŽ(JE.CHYBHODN(NAJÍT(VELKÁ(A2);VELKÁ($C$1)));"";B2)

Vylúči chybu pri zadaní malého písmena, ale aj tak odporúčam výberový zoznam (Overenie dát) pre zápis mena.

Môže nastať exotický problém, ak v C1 bude Alfredo a A bude Edo. Nájde ho, aj keď tam je Alfredo.

EIDT: SEARCH/HLEDAT ošetruje malé/veľké:
=IF(ISERROR(SEARCH(A2;$C$1));"";B2)
=KDYŽ(JE.CHYBHODN(HLEDAT(A2;$C$1));"";B2)

Konkrétne SUMIF()
=SUMIF(A2:A7;"*"&D2&"*";B2:B7)
Dajme tomu, že v D2 máte to čo chcete hľadať a zrátať.

SUMIFS()
=SUMIFS(B2:B7;A2:A7;"*"&D2&"*";C2:C7;"a")
V stĺpci C je ďalšia podmienka pre SUMIFS.

Sub posun_radek_sloupec()
Dim RNG As Range, Bunka As Range, Pocet As Long

Application.ScreenUpdating = False

For Each Bunka In Columns("D:D").SpecialCells(xlCellTypeBlanks).Offset(0, -1).Cells
Bunka.Copy Bunka.Offset(-Pocet, -1)
Pocet = Pocet + 1
If Pocet = 1 Then Set RNG = Bunka.Resize(, 2) Else Set RNG = Union(RNG, Bunka.Resize(, 2))
Next Bunka

RNG.Delete Shift:=xlShiftUp

Application.ScreenUpdating = True
End Sub

A ešte je možnosť použiť aj na nájdenie poslednej jedničky nematicový vzorec:
=INDEX(ROZSAH_DATUM;;LOOKUP(2;1/(ROZSAH_DAT=1);COLUMN(ROZSAH_DATUM)-6))+6
=INDEX(ROZSAH_DATUM;;VYHLEDAT(2;1/(ROZSAH_DAT=1);SLOUPEC(ROZSAH_DATUM)-6))+6

Tú chybu Vám dá, ak použijete maticový vzorec obyčajným stlačením Enter. Maticový vzorec sa zadáva Ctrl+Shift+Enter. Je určený na to, aby našiel poslednú jedničku v prípade, že nejdú po sebe, ale že sú medzi nimi medzery.
Naopak ten druhý vzorec, je obyčajný (nematicový), a počíta s tým, že jedničky idú po sebe, v jednej jedinej skupine v riadku.
Máte si len vybrať, lebo nevieme, ako presne zapisujete dáta.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse