< návrat zpět

MS Excel


Téma: Pomalé makro na vypnutí filtrů, seřazení rss

Zaslal/a 10.2.2023 13:30

Ahoj všem,
prosím o pomos s úpravou pomalého makra (odemknutí listu, vypnutí všech aktivních filtrů, seřazení podle data sestupně (sloupec G2:G4001), zamknutí listu - (povoleno vše krom přidání/odebrání sloupců a řádků.

makro níže:

Sub VŠE()
'
' VŠE Makro
'

'
For x = 1 To 100000
a = a + Rnd - Rnd
Next x
Application.Calculation = xlCalculationManual
Worksheets("DATABAZE ZAMESTNANCU").Unprotect Password:="pekarna"
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=1
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=2
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=4
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=5
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=6
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=7
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=8
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=9
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=10
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=11
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=12
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=13
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=14
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=15
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=16
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=17
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=18
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=19
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=20
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=21
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=22
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=23
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=24
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=25
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=26
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=27
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=28
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=29
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=30
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=31
ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=32
Range("A630").Select
ActiveWorkbook.Worksheets("DATABAZE ZAMESTNANCU").ListObjects("Tabulka1").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("DATABAZE ZAMESTNANCU").ListObjects("Tabulka1").Sort. _
SortFields.Add Key:=Range("Tabulka1[[#All],[Nástup]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("DATABAZE ZAMESTNANCU").ListObjects("Tabulka1"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=570
Range("A2670").Select
Worksheets("DATABAZE ZAMESTNANCU").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, Password:="pekarna"
Application.Calculation = xlCalculationAutomatic
End Sub

Zaslat odpověď >

Strana:  « předchozí  1 2 3
#054471
elninoslov
Len info pre ostatných, ak by mal niekto podobný problém. Prišli sme na to, že problém nastáva pri kopírovaní CZ diakritiky. Konkrétne písmeno "ř" sa mení na znak priemeru "ø". Po ošetrení sa zdá, že nám to fachá.citovat

Strana:  « předchozí  1 2 3

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00