MS Excel

Hezky 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

Stalker(12.2.2018 22:35)#039514

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

List1.ShowAllDatacitovat

elninoslov(13.2.2018 0:42)#039516

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 Subcitovat

Merlin99(13.2.2018 17:21)#039524

elninoslov: skvele to je presne ono DÍKY moc hodí se

citovat

Merlin99(13.2.2018 19:31)#039528

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: rar

39528_filtr.rar (20kB, staženo 20x)

citovat

Stalker(13.2.2018 20:35)#039529

Ř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

Merlin99(13.2.2018 21:34)#039530

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

Stalker(13.2.2018 23:12)#039531

Vůbec sem neřešil to funkci makra, jen odemknutí a opětovné zamčení aktivního listu.

Příloha: rar