Příspěvky uživatele
< návrat zpět
"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?
A teraz úprimne, nepríde Vám to tak "trochu" zložité ?
Priložte reálnu tabuľku, bez dát, len pár vymyslených pôvodného typu. No zachovajte povahu názvov stĺpcov, rozsahy, formáty, a hlavne kde a ako má z ukážkových dát a parametrov vyzerať výsledok. Záleží na strašne veľa veciach. Toto je maticový vzorec, no musíte udržiavať výsledkovú tbl dostatočne vysokú.
Čo znamená "dotaz na vyhledávací fci"? V tejto tabuľke spĺňajú požiadavky 3 záznamy. Vyhľadávacia funkcia znamená, že nájde 1 záznam. Ak chcete všetky treba údaje filtrovať:
-normálny filter
-rozšírený filter
-filter na objekt Tabuľka
-SmartFilter na objekt Tabuľka
-kontingenčná tabuľka
-kontingenčná tabuľka s filtrovaním
-maticový výčet na iné miesto.
Ako má vyzerať výsledok? Použiť filter trvá rádovo pár sekúnd ...
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články