MS Excel

Nejaký ten príklad:
-"čísla" list kde sú filtrované hodnoty číslo - filtrované makrom
-"čísla vzorec" list kde sú filtrované hodnoty číslo - filtrované vzorcom z prvého listu (treba myslieť na rozsahy)
-"text" list kde sú filtrované hodnoty text (možnosť voľby zľava, alebo celok) - filtrované makromcitovat

1. na to presne som tam urobil ten list "text". Zaškrtnite to políčko "Zleva" a dajte znovu vyhľadať 7306. Ale hodnoty v stĺpci A musia byť ako TEXT, nie ako Číslo alebo Všeobecné.
2. To nieje v Excel bunke možné. Jedine cez malý TextBox, viď nový príklad (opäť list Text)
3. Nie, viď 1. a 2.

Nový príkladcitovat

Napadol ma pomocný stĺpec.citovat

U mňa to fičí presne podľa požiadaviek. Neviem prečo u Vás nie. Zablokované makrá? Nepovolené ActiveX prvky? Keď zapisujete do bunky (???) B2 ... máte tam vôbec nad ňou cez celú bunku B2 TextBox ? Samozrejme funguje to aj pri zápise do bunky. TextBox je tam na to, aby to robilo hneď po stlačení klávesy. Skúšate to presne na tom súbore, ktorý som poslal ako posledný? Dúfam, že ste to makro nenakopíroval do iného súboru. To nestačí, je tam vzorec v skrytom stĺpci A. Zmente hodnotu v B2, chodte do VBA, a manuálne spustite makro TextBox1_Change(). U mňa všetko funguje (Win10x64+ Office 2016x64 - všetko aktuálne)...
Odkryte si stĺpec A, a pozrite, či hodnoty ktoré majú byť zobrazené majú TRUE/PRAVDA v stĺpci A.citovat

Ak nepočítame Application.ScreenUpdating, tak má makro len 5 riadkov kódu, tak ho odkrokujte.

1. Najskôr odkryte stĺpec A
2. Skontrolujte, či máte povolené automatické počítanie vzorcov.
3. Manuálne úplne zrušte filter A2:H2
4. Zadajte prázdny TextBox
5. Manuálne cez F8 prejdite za riadok
Riadkov = Cells(1, 1).CurrentRegion.Rows.Count
a kurzor myši presuňte nad premennú Riadkov. Napíšte sem hodnotu.
6. Cez F8, prejdite za ďalší riadok, a napíšte hodnotu RiadkovA.
7. Napíšte či prejde kód za Then v riadku s podmienkou
If RiadkovA < Riadkov Then
8. Po prejdení na
If TextBox1.Text = "" Then
skontrolujte či sú vzorce v A od prvého až po posledný záznam. Ak je TextBox prázdny, všetky výsledky v A3:A6287 musia byť TRUE/PRAVDA.
9. Kód nechajte dobehnúť a napíšte ako to dopadlo.
10. Urobte si BrakePoint na prvom riadku kódu
11. Zadajte do TextBoxu číslo 73063080 (naraz kopírovaním, nie písaním). Zopakujte kontroly a rovnako dajte vedieť výsledky krokov 5.-9.

Pozorne čítajte každý krok a každé slovo, a presne napíšte výsledky, ktoré som dotazoval. Inak fakt neviem, môj typ je zakázané prepočítanie vzorcov.

PS: inak v predposlednom riadku treba zmeniť číslo 7 na 8, ale to nemá podstatný vplyv na svoju funkciu rušenia filtra.citovat