Příspěvky uživatele

Napr takto:

Tools - VBA Project Properties - Protection

Nie, nezabudol, je to hneď druhé slovo...

Pred maskou Vám chýba úvodzovka "
V_*_2015_02_S.txt"
"V_*_2015_02_S.txt"

Robí to len na Vašom PC ? Skúsil by som iné PC, podľa možnosti s 32-bit Excelom (Win môže byť 64). Dávnejšie som riešil problém so 64-bit Office, kde mi hrozne sekalo maticové prepočítavanie rozsahov do cca 150 ComboBoxov. A priamo MS uvádzal, že to je problém 64-bit verzie, ak sa jedná o ovládacie prvky ActiveX, a sám MS túto verziu na svojich stránkach neodporúčal. To len na margo.

Dôležité budú typy vzorcov. To by ste sem museli ten súbor dať, aby sa Vám na to odborníci pozreli, či sa nedajú vzorce optimalizovať.

Podľa mňa to funguje. Musel som si pomeniť trochu dátumy a ŠPZ, aby som navodil požadovanú situácie pre testovanie, pretože Vaše dáta to neumožnili.
Oranžovou farbou som označil tie, ktoré síce spĺňajú podmienku že obsahujú bobo alebo triolo, ale tie ktoré sú iné ako bobo alebo triolo nemajú väčší dátum, čiže nespĺňajú druhú podmienkuk, preto "NE" (a "NE" je vypísané iba na tých kde je bobo alebo triolo).
Zelenou farbou som Vám vyfarbil prípad, keď je rovnaká ŠPZ aj v bobo aj v inom a zároveň je ten iný väčší dátum, tak v tom riadku kde je bobo nastaví "ANO".
Takto som pochopil, že to chcete.

Opravujem sa, ospravedlňujem sa, nemusíte mať ten index v A. Môžete ho mať v ktoromkoľvek stĺpci, ale musíte použiť toto
v Exceli
=INDEX('Z:\[Zošit1.xlsx]Hárok1'!$A$2:$D$4;MATCH($A2;'Z:\[Zošit1.xlsx]Hárok1'!$E$2:$E$4;0);COLUMN(A1))
v Googli
=index(jedna!$A$2:$D$4;match($A2;jedna!$E$2:$E$4;0);column(A1))

Formát netuším, ale posledné číslo IP zistíte vzorcom takto:
=RIGHT(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4));LEN(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)))-IFERROR(FIND(".";IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)));0))
Potom si na koniec vzorca dajte +1. Ale čo potom ak dôjdete na číslo 255 ? Pri IP adresách sa nemôžete "preliať" zo 4 úrovne a prirátať 1-ku k 3. úrovni, a 4. počítať od 0. To tak nejde, to by bola už úplne iná podsieť.

EIDT:
=LEFT(A1;LEN(A1)-LEN(RIGHT(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4));LEN(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)))-IFERROR(FIND(".";IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)));0))))&RIGHT(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4));LEN(IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)))-IFERROR(FIND(".";IF(LEFT(RIGHT(A1;4);1)=".";RIGHT(A1;3);RIGHT(A1;4)));0))+1

alebo oveľa kratšia verzia :
=LEFT(A1;FIND(".";A1;1+FIND(".";A1;1+FIND(".";A1))))&RIGHT(A1;LEN(A1)-FIND(".";A1;1+FIND(".";A1;1+FIND(".";A1))))+1

EDIT2: A ešte ma napadlo urobiť Vám extrakciu každého čísla:
1. úroveň
=LEFT(A1;FIND(".";A1)-1)
2. úroveň
=MID(A1;FIND(".";A1)+1;FIND(".";A1;FIND(".";A1)+1)-1-FIND(".";A1))
3. úroveň
=MID(A1;FIND(".";A1;FIND(".";A1)+1)+1;FIND(".";A1;FIND(".";A1;FIND(".";A1)+1)+1)-1-FIND(".";A1;FIND(".";A1)+1))
4. úroveň
=RIGHT(A1;LEN(A1)-FIND(".";A1;1+FIND(".";A1;1+FIND(".";A1))))

Skúste ešte na skúšku zameniť "\\" na začiatku sieťovej cesty za "//", alebo odinštalovať aktualizáciu KB2553073.

U mňa to funguje aj na sieti. Akurát je to podstatne pomalšie. Takže sa tu trápim(e) zbytočne. Problém je v obmedzeniach prístupu na sieťové úložisko. S tým Vám neporadím.

Týmto teda spoločne s Barnie prosím niekoho s väčšími sieťovými skúsenosťami o pomoc.

Táto matica by Vám mohla fungovať, tak ako chcete. Treba ale doriešiť rozsahy, lebo je jasné, že sa budú meniť.
=IF(I2="ANO";IF(SUM(ISERROR(SEARCH("bobo";$C$2:$C$8))*ISERROR(SEARCH("triolo";$C$2:$C$8))*($A$2:$A$8=A2)*($B$2:$B$8>B2))>0;"ANO";"NE");"")

No podľa mňa by mohlo stačiť aj toto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Worksheets("Hárok2").Cells(2, 3).Formula = "=Hárok1!" & Target.Cells(1, 1).Address
End Sub
-Keď bude označených viac buniek, reaguje len na prvú.
-Vkladá vzorec na aktuálnu bunku
-Keďže je to vzorec, tak reaguje aj na zmenu bunky, či už výpočtom alebo vložením.

Ten index 1,2,3 musíte mať v stĺpci A, nie na konci, a potom by to šlo
=VLOOKUP($A2;'Z:\[Zošit1.xlsx]Hárok1'!$A$2:$E$4;COLUMN(B$1);FALSE)
V tom Vašom Google dokumente
=VLOOKUP($A2;jedna!$A$2:$E$4;COLUMN(B$1);true)
V oboch prípadoch vložíte vzorec do E2, roztiahnete na vyšku a potom na šírku.

Urobte si pokusný adresár, kde budete mať iba 1 súbor a 1 jeho kópiu premenovanú (to aby sme eliminovali rozdielnosť). Zabezpečte, aby v oboch bolo hľadané číslo, a aby oba mali inú hodnotu v F2. Nastavte cestu k tomuto pokusnému adresáru v makre, a spustite. Opäť chyba ?
Ak áno makro opäť zastavte, tak ako predtým, pred tým riadkom, a vo Watches po rozkliknutí 2 x kliknite (nie dvojklik, ale 2 kliky po sebe) na niektorú hodnotu z poľa F2, a stlačte Ctrl+C. V tom liste potom do niektorej bunky na skúšku dajte v Editore vzorcov Ctrl+V a vymažte " na začiatku a na konci. Načíta to hodnotu zo súboru, alebo dá chybu ?
Nemáte náhodou otvorené aj iné Excel dokumenty počas toho makra ? Ak áno tak ešte pridajte do kódu pred všetky (3) "Worksheets(XYZ)..." toto "ThisWorkbook."
Ďalej ten inkriminovaný riadok presuňte pred predošlý so zápisom Súborov.
Ak sa nepodarí, skúste pravú stranu toho riadka obaliť 2x v Application.Transpose().
Nemáte náhodou obmedzený prístup k tým súborom ?
Ešte ma napadá, či nemáte Excel v režime R1C1.

To je všetko čo ma napadá. Snáď pomôže niekto skúsenejší...

Skúste či je toto to, čo si predstavujete.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje