excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Pokud je zapli filtr nespoustej makro
MS Excel
Téma: Pokud je zapli filtr nespoustej makro 
Zaslal/a Merlin99 12.2.2018 20:59
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
Příloha: 
39510_filtr.rar (14kB, staženo 23x)
39510_filtr.rar (14kB, staženo 23x)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
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
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: 39528_filtr.rar (20kB, staženo 20x)
citovat39528_filtr.rar (20kB, staženo 20x)Ř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
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
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
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
Vůbec sem neřešil to funkci makra, jen odemknutí a opětovné zamčení aktivního listu.
Příloha: 39531_39528_filtr.rar (20kB, staženo 32x)
citovat39531_39528_filtr.rar (20kB, staženo 32x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články