< návrat zpět

MS Excel


Téma: Pokud je zapli filtr nespoustej makro rss

Zaslal/a 12.2.2018 20:59

Merlin99Hezky vecer vsem, resim problem kde bych potreboval aby kdyz je na radku 19 kdekoli zapli filtr (cehokoli) aby se nespustilo dany makro ale vratila se hlaska "Pro zapnuti makra je nutne zrusit všechny filtry"
je to nejak mozne? viz příloha DĚKUJI za rady

Příloha: rar39510_filtr.rar (14kB, staženo 5x)
Zaslat odpověď >

#039514
Stalker
A co prostě a jednoduše na začátku makra ten filtr zrušit?

List1.ShowAllDatacitovat
#039516
elninoslov
Sub BARVA()
Dim RNG As Range, Oblast As Range, Riadkov As Long

Set Oblast = ActiveSheet.Range("A19:A38")
On Error Resume Next
Set RNG = Oblast.SpecialCells(xlCellTypeVisible)
Riadkov = RNG.Cells.Count


If RNG Is Nothing Or Riadkov <> Oblast.Cells.Count Then
If MsgBox("Pro zapnutí makra je nutné zrušit všechny filtry." & vbNewLine & "Chcete zrušit filtr?", vbExclamation + vbYesNo) = vbNo Then GoTo KONIEC
ActiveSheet.ShowAllData
End If
On Error GoTo 0

With Oblast.Resize(, 21).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With

KONIEC:
Set Oblast = Nothing: Set RNG = Nothing
End Sub
citovat
#039524
Merlin99
elninoslov: skvele to je presne ono DÍKY moc hodí se 5citovat
#039528
Merlin99
elninoslov: JESTE jeden dotaz.. skoda ze makro nefunguje kdyz mam zamceny list ale radek s filtrama a vypocty mam odemknute .. bohuzel vtento pripad to nezafunguje...Pripadne diky za rady .. viz priloha
Příloha: rar39528_filtr.rar (20kB, staženo 2x)
citovat
#039529
Stalker
Řešení je jednoduché, na začátku makra sešit odemkni a na konci zase zamkni.

Má to ale jeden zádrhel. Do kódu budeš muset zapsat heslo pro uzamknutí listu, které se dá poté jednoduše vyčíst, když se Ti někdo dostane do kódu (i když bude projekt zaheslován!!!).citovat
#039530
Merlin99
Stalker:
to by bylo skvely reseni... heslo je FAST ale do kodu ho nedokazu dostat tak jak rikas na to nemam.
Pak bych zamknul VBA a bylo by to v pohode.citovat
#039531
Stalker
Vůbec sem neřešil to funkci makra, jen odemknutí a opětovné zamčení aktivního listu.
Příloha: rar39531_39528_filtr.rar (20kB, staženo 8x)
citovat
#039533
Merlin99
Stalker: Tak to je masakr DÍíííKY moc skvela prace panove 5 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

násobná podmínka

robert.kepertgmail.com • 22.2. 12:46

SVYHLEDAT NEFUNGUJE

cyklokropac • 22.2. 8:21

msgbox upozornenie

kabaka • 22.2. 7:26

pozastavení běhu programu

elninoslov • 21.2. 21:47

SVYHLEDAT NEFUNGUJE

elninoslov • 21.2. 21:32

msgbox upozornenie

elninoslov • 21.2. 21:22

Automatické vyplnění buňky, když ...

Tomas1234 • 21.2. 20:03