Příspěvky uživatele

@ Tom12345 :
Dajte si do pomocnej bunky
=B2&CHAR(10)&B3&CHAR(10)&B4&CHAR(10)&B5&CHAR(10)&B6&CHAR(10)&B7&CHAR(10)&B8&CHAR(10)&B9&CHAR(10)&B10
=B2&ZNAK(10)&B3&ZNAK(10)&B4&ZNAK(10)&B5&ZNAK(10)&B6&ZNAK(10)&B7&ZNAK(10)&B8&ZNAK(10)&B9&ZNAK(10)&B10
alebo v nových Office 2019
=TEXTJOIN(CHAR(10);TRUE;B2:B10)
=TEXTJOIN(CHAR(10);PRAVDA;B2:B10)
a v textovom poli sa odkazujte na túto pomocnú bunku. S pomocou CHAR(10) budú pod sebou, s pomocou napr. "," budú oddelené čiarkou za sebou.

=INDEX(D20:O20;;LOOKUP(2;1/(D33:O33<>0);COLUMN(D33:O33)-3))
=INDEX(D20:O20;;VYHLEDAT(2;1/(D33:O33<>0);SLOUPEC(D33:O33)-3))
alebo
=INDEX(D20:O20;;LOOKUP(2;1/(D33:O33<>0);{1\2\3\4\5\6\7\8\9\10\11\12}))
=INDEX(D20:O20;;VYHLEDAT(2;1/(D33:O33<>0);{1\2\3\4\5\6\7\8\9\10\11\12}))
analogicky urobíte aj ten vertikálny:
=INDEX(C21:C32;LOOKUP(2;1/(P21:P32<>0);{1;2;3;4;5;6;7;8;9;10;11;12}))
=INDEX(C21:C32;VYHLEDAT(2;1/(P21:P32<>0);{1;2;3;4;5;6;7;8;9;10;11;12}))

To je predsa pre to, že to makro, ako som napísal, je robené na data, ktoré UŽ MAJÚ PRIDANÝ STĹPEC "N" "Inštrumentárka". Teda pri preformátovaní sa odoberie všetkému formát pomocou ClearFormats, a následne sa nastaví pre potrebné stĺpce formát času. Tak ste to aj mala, len som to posunul, lebo je tam pridaný stĺpec "N". Teda na čas sa preformátuje O:W. Nie N.
Tak aké je teda rozloženie stĺpcov?

"Karásková Zuzana" ??? Nič také tam nieje.
"odstranit 5. prázdný řádek" ??? Opäť nič také v prílohe neexistuje.
Rozumiem iba jedinej veci, chcete pridať ďalšieho manipulanta. Čo vymazať netuším. No a mazanie prázdnych riadkov v plánoch, je bez makra nerealizovateľné, lebo tabuľky sa vzorcami posúvať nedajú.
Treba lepší popis s korešpondujúcou prílohou.

No kým som to urobil, dala ste novšiu prílohu. Pozrite či to sedí aj na tú novšiu. Robil som to na tú o 9:11. Je to aj s tým pridaným stĺpcom, ktorý má byť podľa Vás za M->O, ale za M je N :)
Tiež sa dátum neťahá z A2 do J2, ale z A3 do J1.

To je moje makro, pamätám si na to. Píšete, že sa Vám zmenili podmienky. No dobré by bolo vysvetliť čo sa všetko zmenilo, a hlavne z čoho sa zmenilo (pôvodné). Ja keď sa pozriem na makro, čo robí, tak mi to nesedí s týmito dátami hneď z kraja. Testuje sa buka A1 na hodnotu "Cas", a vkladá sa riadok, prepočíta sa počet dátových riadkov. V týchto dátach je ale bunka A1 "Názov". Skrývanie stĺpcov tam je do kódu evidentne doplnené, rovnako ako formátovanie dátumočas na konci. Priložte aj pôvodné. Ja to niekde medzi tisíckami súborov, ale kto to bude hľadať :)
Podľa mňa to po lepšom popise a pochopení sa, nebude prob.

Toto bude rýchlejšie ako GetObject. Vytvorí si to dočasne definovaný názov, vypočíta, zmaže:
Sub Test2()
Dim Subor As String, Cesta As String, List As String, Stlpec As String, Posledny As Long

Cesta = "Z:\"
Subor = "Dostupnost.xlsx"
List = "Ověření"
Stlpec = "$B:$B"

With ThisWorkbook
On Error Resume Next
.Names("POSLEDNY_R").Delete
On Error GoTo 0
.Names.Add "POSLEDNY_R", "=LOOKUP(2,1/('" & Cesta & "[" & Subor & "]" & List & "'!" & Stlpec & "<>""""),ROW($A:$A))"
Posledny = ExecuteExcel4Macro("'" & .FullName & "'!" & "POSLEDNY_R")
.Names("POSLEDNY_R").Delete
End With

MsgBox Posledny
End Sub

a nemôžem zabudnúť na moje obľúbené "dolovanie dát" cez vzorec vložený do určenej bunky, prečítaný a zmazaný (to bude asi ešte rýchlejšie):
Sub Test3()
Dim Subor As String, Cesta As String, List As String, Stlpec As String, Posledny As Long

Cesta = "Z:\"
Subor = "Dostupnost.xlsx"
List = "Ověření"
Stlpec = "$B:$B"

With ThisWorkbook.ActiveSheet.Range("A1")
.Formula = "=LOOKUP(2,1/('" & Cesta & "[" & Subor & "]" & List & "'!" & Stlpec & "<>""""),ROW($A:$A))"
Posledny = .Value
.Clear
End With

MsgBox Posledny
End Sub

Možno by bolo lepšie použiť iba jeden skrytý maticový stĺpec na výpočet indexu, a ostatné už normálne vzorce.

Neviem, aké presne použitie máte na mysli. Ak vzorcom s pevným umiestnením súboru, tak normálne predsa funguje VLOOKUP/SVYHLEDAT. Ak počas behu iného makra chcete vo VBA dohľadať z iného variabilného zošitu hodnotu funguje toto dole. Upresnite.

Matica? KT?

To musíte dať do modulu v súbore osobných makier PERSONAL.XLSB

Sub MenaEUR()
If TypeName(Selection) = "Range" Then Selection.NumberFormat = "#,##0.00 [$€]"
End Sub

Buď použite 2x podmienku
=IF(W14<>"";IF(VLOOKUP(W14;Tabulka1;5;FALSE)="";"";VLOOKUP(W14;Tabulka1;5;FALSE));"")
=KDYŽ(W14<>"";KDYŽ(SVYHLEDAT(W14;Tabulka1;5;NEPRAVDA)="";"";SVYHLEDAT(W14;Tabulka1;5;NEPRAVDA));"")
alebo použite na skrytie 0 vlastný formát bunky, ale ten skryje aj 0 nielen ""
General;General;
ak sú tam textové hodnoty, možete použiť
=IF(W14<>"";REPT(VLOOKUP(W14;Tabulka1;5;FALSE);1);"")
=KDYŽ(W14<>"";SVYHLEDAT(SVYHLEDAT(W14;Tabulka1;5;NEPRAVDA);1);"")

EDIT: Doplnený zabudnutý posledný parameter funkcie VLOOKUP aj príloha.

To je zase iba polodotaz.
Každé zatvorenie súboru má uložiť celú oblasť? Aj keď nič nezmením a iba otvorím a zatvorím súbor? Ak nie, tak ako identifikujem, že tam už tie isté dáta niesú?

Čo spôsobí podnet, že sa má ukladať? Nejaká zmena. Čoho? Musí to byť zmena I20:I40? Alebo inej oblasti? To sa mení vzorcom, či manuálne?
Ak vzorcom, treba sledovať zmenu toho, čo spôsobuje prepočet tohto vzorca. A to je?

Príloha?
...

Fuha !?
No ja si myslím, že ak nedáte poriadny popis problému, neoznačíte čo sa má kde za akých okolností a s čím sčítať, a neukážete nejaký konkrétny čiastkový manuálne a správne vypočítaný výsledok, tak pomôže jedine zohnať Ch.N.

Nie sú rovnaké rozostupy (2-3 riadky), dáta nie sú konzistentné (Iso243!A2:A7...), nie sú použité rovnaké stĺpce na rovnaký druh dát, nevedno čo sa mení a čo sa zrátava, odkazy výberových zoznamov ActiveX smerujú od brucha či ako (Iso243!C18->A2, E18->C2, C2->B2...)

Akože Vážne ?

Teda jedine makro pri udalosti požiadavky na zatvorenie zošitu.
Ale, buď to má byť do nového hárku, alebo do druhého konkrétneho hárku. Veď predsa keď to bude nový hárok, tak bude automaticky prázdny, nedá sa vložiť pod poslednú hodnotu, žiadna nieje. Tak ako?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje