Ahá, no jasné už viem. Keď niekedy poobede prídem, tak Vám na to mrknem.
Predpokladajme, že za splnené pokladáme ak je v stĺpci "splněno" napísané čokoľvek - teda bunka nieje prázdna. Lebo inak, ak by tam mohli byť aj iné texty popísané, ale neznamenali by, že je splnené, tak by zisťovania neznámeho dátumu v neznámom počte ks, neznámeho formátu, neznámo čím oddelených medzi neznámym iným textom, bolo takmer nemožné.
Je to Overenie dát
Čo myslíte pod "Import"? To akože karta Údaje - Získať externé údaje - Z Webu ? Tam nieje žiadne nastavenie kódovania textu. Alebo máte nejaký súbor ?
Príklad:
Inak povedané, nie je možné spoľahlivo určiť, v ktorom liste sa bude skúmať aká oblasť. Ak by ste mal tie oblasti vždy rovnaké, tak napr.:
Sub Kontrola()
Dim SH As Worksheet, Polozka As Range, Pocet As Byte
For Each SH In Worksheets
With SH
Pocet = 0
For Each Polozka In .Cells(2, 2).Resize(13, 1).Cells
Pocet = Pocet + ((Not IsEmpty(Polozka.Offset(0, 1).MergeArea.Cells(1))) And 1)
Next Polozka
Select Case Pocet
Case 13: .Tab.Color = vbGreen
Case 12: .Tab.Color = vbYellow
Case Else: .Tab.ColorIndex = xlColorIndexNone
End Select
End With
Next SH
Set Polozka = Nothing: Set SH = Nothing
End Sub
Ak tie oblasti rovnaké nemáte, dodajte, čo je smerodajné, pre určenie počtu riadkov. Napr. prvý vzorec v niektorom stĺpci ? Alebo niekde v liste je počet položiek ? ...
Chcete súčet alebo počet ?
Pod súčtom rozumiem, že máte dátumy a k nim priradené nejaké hodnoty, a chcete súčet hodnôt priradených k dátumom v prac. dňoch zadaného obdobia.
Pod počtom rozumiem, počet pracovných dní v zadanom období.
Vyskúšajte aj filter rušiť inak (viď príklad). Toto minimakro nebude asi jediné vzhľadom na neexistujúce makro na tlačítku.
A čo tých cca 1000 definovaných názvov a 200 prepojení (alebo koľko tam toho máte) ? To všetko je tam potrebné ?
Veľkosť bude narastať možno aj kvôli "prázdnym" riadkom a stĺpcom, ktoré často ostávajú v listoch, ale nie sú úplne dealokované. Ak máte napr posledný používaný riadok 50, vľavo-hore kde je názov bunky/oblasti napíšte 51:1048576, označia sa úplne všetky riadky dole, pklik na ušká (čísla) riadkov - Odstrániť. To isté stĺpce napr. AA:XFD, a všetko pre všetky listy. Keď súbor potom uložíte, uvidíte, či máte nejakú úsporu veľkosti.
Po každom
Set ws = Sheets(nazev)
by na konci malo nasledovať uvoľnenie pamäti
Set ws = Nothing
Skúste to teda niekam upnúť, nech to skúsime na x64...
Skúsil som to aj pre Office 2016 Pro x64, no škoda, nepodarilo sa mi pomocou tohto opraviť pády. Nainštalovať odtiaľ môžem iba KB3178673. Ostatné buď nieje určené pre 2016, alebo treba pridať to tlačítko do Office, no to sa mi nepodarilo ani pomocou Deployment Tool, ani gpedit, a samotný WinUpdate to nenájde (s povolenými aktualizáciami ďalších MS produktov). Počkám na nejakú automatickú KB, nechce sa mi pátrať hlbšie...
Výsledok (?):
Žiadne púšťanie sa do veľkých projektov, ukladať čo 5 min :)
Niektoré z nich mám nainštalované aj 5x. Rovnaký názov aj číslo.
Toto je zoznam mojich aktualizácií za Marec (Březen). Viete, ktoré treba killovať ? Či všetky ?
Windows 10 x64 SK Pro / Office 2016 Pro x64
Zoznam z "Nastavenie PC":
29.3.2017
Aktualizácia systému Windows 10 Version 1607 pre systémy s procesorom x64 (KB4017100)
Kumulatívna aktualizácia pre Windows 10 Version 1607 pre systémy s procesorom typu x64 (KB4015438)
17.3.2017
Aktualizácia systému Windows 10 Version 1607 pre systémy s procesorom x64 (KB3150513)
16.3.2017
Aktualizácia zabezpečenia pre produkt Skype for Business 2016 (KB3178656) 64-bitové vydanie
Aktualizácia zabezpečenia pre produkt Microsoft Excel 2016 (KB3178673) 64-bitové vydanie
Aktualizácia zabezpečenia pre produkt Microsoft Word 2016 (KB3178674) 64-bitové vydanie
Nástroj na odstránenie škodlivého softvéru systému Windows pre systémy Windows 8, 8.1,10 a 64-bitové vydania systémov Windows Server 2012, 2012 R2, 2016 - marec 2017 (KB890830)
Aktualizácia systému Windows 10 Version 1607 pre systémy s procesorom x64 (KB4013418)
Kumulatívna aktualizácia pre Windows 10 Version 1607 pre systémy s procesorom typu x64 (KB4013429)
Aktualizácia zabezpečenia programu Adobe Flash Player v systéme Windows 10 Version 1607 pre systémy s procesorom x64 (KB4014329)
8.3.2017
Aktualizácia pre produkt Microsoft Access 2016 (KB3128054) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Visio 2016 (KB3178654) 64-bitové vydanie
Aktualizácia pre produkt Microsoft OneDrive for Business (KB3141458) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Publisher 2016 (KB3128047) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3141452) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178663) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178655) 64-bitové vydanie
Aktualizácia pre produkt Microsoft PowerPoint 2016 (KB3178657) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Project 2016 (KB3178669) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178661) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178660) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178668) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3127991) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3141504) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3114389) 64-bitové vydanie
Aktualizácia pre produkt Microsoft OneNote 2016 (KB3141512) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3128052) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3141509) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Outlook 2016 (KB3141511) 64-bitové vydanie
Aktualizácia pre produkt Skype for Business 2016 (KB3141501) 64-bitové vydanie
Microsoft - WPD - 2/22/201612:00:00 AM - 5.2.5326.4762
Nástroj na odstránenie škodlivého softvéru systému Windows pre systémy Windows 8, 8.1,10 a 64-bitové vydania systémov Windows Server 2012, 2012 R2, 2016 - február 2017 (KB890830)
Zoznam z "Ovládací panel":
Office 8.3.2017
Update for Microsoft Publisher 2016 (KB3128047) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3085635) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128052) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneNote 2016 (KB3141512) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Office 16.3.2017
Update for Microsoft Office 2016 (KB3115141) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3115135) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128052) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178655) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Update for Microsoft Office 2016 (KB3127990) 64-Bit Edition Definition
Update for Microsoft Office 2016 (KB3115407) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115276) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920684) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141452) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178663) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3085538) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115100) 64-Bit Edition
Update for Microsoft Outlook 2016 (KB3141511) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115081) 64-Bit Edition
Update for Microsoft Office 2016 (KB3118262) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178660) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920720) 64-Bit Edition
Update for Microsoft Office 2016 (KB2910954) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Update for Microsoft Office 2016 (KB3114903) 64-Bit Edition
Update for Microsoft OneNote 2016 (KB3141512) 64-Bit Edition
Update for Microsoft Office 2016 (KB3118263) 64-Bit Edition
Update for Microsoft Office 2016 (KB3127991) 64-Bit Edition
Update for Microsoft Visio 2016 (KB3178654) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178668) 64-Bit Edition
Update for Microsoft Access 2016 (KB3128054) 64-Bit Edition
Update for Microsoft Project 2016 (KB3178669) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920712) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920724) 64-Bit Edition
Update for Microsoft Office 2016 (KB2910970) 64-Bit Edition
Update for Microsoft Office 2016 (KB3114709) 64-Bit Edition
Update for Microsoft Office 2016 (KB3118264) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115497) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128056) 64-Bit Edition
Update for Microsoft Office 2016 (KB3114389) 64-Bit Edition
Security Update for Skype for Business 2016 (KB3178656) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920678) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141504) 64-Bit Edition
Update for Microsoft Publisher 2016 (KB3128047) 64-Bit Edition
Update for Microsoft PowerPoint 2016 (KB3178657) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115497) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft PowerPoint 2016 (KB3178657) 64-Bit Edition
Update for Microsoft Outlook 2016 (KB3141511) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128052) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178663) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3085538) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178660) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Update for Microsoft OneNote 2016 (KB3141512) 64-Bit Edition
Update for Microsoft Office 2016 (KB3127991) 64-Bit Edition
Update for Microsoft Visio 2016 (KB3178654) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178668) 64-Bit Edition
Update for Microsoft Access 2016 (KB3128054) 64-Bit Edition
Update for Microsoft Project 2016 (KB3178669) 64-Bit Edition
Update for Microsoft Office 2016 (KB2910970) 64-Bit Edition
Security Update for Skype for Business 2016 (KB3115408) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920678) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141504) 64-Bit Edition
Update for Microsoft Publisher 2016 (KB3128047) 64-Bit Edition
Update for Microsoft PowerPoint 2016 (KB3178657) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Security Update for Skype for Business 2016 (KB3178656) 64-Bit Edition
Windows 16.3.2017
Aktualizácia pre Microsoft Windows (KB4013418)
Windows 29.3.2017
Aktualizácia pre Microsoft Windows (KB4017100)
Aktualizácia pre Microsoft Windows (KB4015438)
To ma mrzí, že ste aj Vy prišiel o svoje veci. Ja tiež. Ŝkoda že stále platí "Každý dobrý skutok, musí byť po zásluhe potrestaný".
Testoval ste teda ten posledný návrh s novou inštanciou Excelu a vravite KO? Tak to je blbé. Mne sa sice chybu nepodarilo nasimulovať, a prd z toho, chyba pride vždy, len ten nevhodný okamžik mepoznáme.
Mal by som predsa ešte jeden návrh. Nekopírovať list, ale uložit kópiu súboru, tú otvoriť, vykuchať,uložiť. To by mohlo byť OK, nieje tam žiadne Copy.
Problémy, ktoré dokáže narobiť aktualizácia W10 a celkovo nový aktualizačný systém, teda aj na Office, drivery a pod, riešim neustále. Kolabsy OS sú docela bežné. Nový aktualizačný systém ale zámerne (?) kurví aj W7. Vysvetľujem to ľudom tak, že Win10 sa snaží byť "autonómny systém" - teda rozhodovať sám. No a v tom je práve ten pudel zakopaný. A to sa teším na jarnú inováciu Creators Update. To bude zase telefónátov ...
Súcítim s Vami.
Skúste toto. Môj posledný pokus, a vyčerpal som všetky svoje nápady. Je to teda cez novú inštanciu Excelu, a zdá sa, že to nepadá, a nieje to až také zlé s rýchlosťou. Treba otestovať...
Dobrú noc
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.