Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6   další »
Pomalé makro na vypnutí filtrů, seřazení (11.2.2023 21:12)

Ontik napsal/a:

elninoslov napsal/a:Enterprise verziu k dispozícii nemám. Každopádne chýba mi odpoveď a) aj text chyby (screenshot) c).

Pre skok na bunku aj so scrolovaním nahradiť daný riadok za tento
Application.Goto Range("Tabulka1[příjmení, jméno]").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False), True

přílohou posílám PrtScr chyby
Zkoušel jsem to v té vaší verzi i v té mé.


Ještě ta chyba, v příloze

Pomalé makro na vypnutí filtrů, seřazení (11.2.2023 21:01)

elninoslov napsal/a:

Enterprise verziu k dispozícii nemám. Každopádne chýba mi odpoveď a) aj text chyby (screenshot) c).

Pre skok na bunku aj so scrolovaním nahradiť daný riadok za tento
Application.Goto Range("Tabulka1[příjmení, jméno]").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False), True


přílohou posílám PrtScr chyby
Zkoušel jsem to v té vaší verzi i v té mé.

Pomalé makro na vypnutí filtrů, seřazení (11.2.2023 17:59)

elninoslov napsal/a:

a) Spúšťate to v tej mojej prílohe alebo vo Vašej ?
b) Verzia Office (rok, jazyk, 32/64 bit) ?
c) A ešte tú chybu, čo to hodí uveďte.

Pretože Office 2019 x64 SK Pro - bez problémov.


Zkoušel jsem to ještě na svém soukromé Ntb, Také Office 365 ale pro jednotlivce a tak to funguje ale hodí mi to jen kurzor na poslední vyplněnou buňku ale obrazovka se neposune, ta zůstává na místě, kde jsem zkončil.

Pomalé makro na vypnutí filtrů, seřazení (11.2.2023 17:36)

elninoslov napsal/a:

a) Spúšťate to v tej mojej prílohe alebo vo Vašej ?
b) Verzia Office (rok, jazyk, 32/64 bit) ?
c) A ešte tú chybu, čo to hodí uveďte.

Pretože Office 2019 x64 SK Pro - bez problémov.


Jedu na Office 365 enterprise x86

Pomalé makro na vypnutí filtrů, seřazení (11.2.2023 16:18)

elninoslov napsal/a:

To Vážne? Akú chybu to napíše? To si myslíte, že som jasnovidec? Áno som! A stavím sa, že tam nemáte to, čo popisujete, že tam máte. Teda, že stĺpec v Tabuľke (nie tabuľke) sa volá "příjmení, jméno".Příloha: 54415_zoradenie.zip (22kB, staženo 1x)

Myslím, že mám vše správně. zasílám PrtScr

Pomalé makro na vypnutí filtrů, seřazení (11.2.2023 14:47)

elninoslov napsal/a:

Šmarjá ... čo znamená "Nefunguje" ???

před .Protect ... jsem doplnil o to co jste mi posílal a při aktivaci mi vyskočí chybová hláška a zastaví se to na tom co jsem doplňoval.

Sub VŠE() ' VŠE Makro
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

With Worksheets("DATABAZE ZAMESTNANCU")
.Unprotect Password:="pekarna"

With .ListObjects("Tabulka1")
If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData

With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tabulka1[[#All],[Nástup]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With

Range("Tabulka1[príjmení, jméno]").Find(What:="*", LookIn:=xlRangeValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, Password:="pekarna"
End With

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Pomalé makro na vypnutí filtrů, seřazení (11.2.2023 13:36)

elninoslov napsal/a:

Pred
.Protect ...
dajte
Range("Tabulka1[příjmení, jméno]").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select

Asi dělám něco špatně. Nefunguje...
Děkuji

Pomalé makro na vypnutí filtrů, seřazení (10.2.2023 22:47)

elninoslov napsal/a:

SkústePříloha: 54402_zoradenie.zip (20kB, staženo 5x)

Ještě mám prosbu. Šlo by prosím makro poupravit, abych se vždy po spuštění tohoto makra dostal na poslední buňku ve sloupci B:B (příjmení, jméno)
Děkuji

Pomalé makro na vypnutí filtrů, seřazení (10.2.2023 22:28)

elninoslov napsal/a:

SkústePříloha: 54402_zoradenie.zip (20kB, staženo 5x)
Funguje perfektně. Moc děkuji

Pomalé makro na vypnutí filtrů, seřazení (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

Řazení dat na zamknutém listu (9.2.2023 12:01)

Ahoj všem, jde prosím nějakým způsobem řadit data v zamknutém listu? Po zamčení listu mám povolené pro úpravy vše, kromě vložení sloupců a řádků + odstranění sloupců a řádků. Potřebuji mít list zamknutý ale aby šlo řadit data dle různě požadovaných kritérií. Předem děkuji

Ošetření hypertextového odkazu (16.10.2022 20:15)

příloha

Ošetření hypertextového odkazu (16.10.2022 20:12)

příloha

Ošetření hypertextového odkazu (16.10.2022 20:10)

V listu 4 si nastavím hypertextové odkazy na list jméno(1) nebo jméno(2) nebo jméno(3) a když v nějakém tom listu změním jméno, tak mi přestane fungovat již dříve nastavený hypertextový odkaz.

Ošetření hypertextového odkazu (16.10.2022 17:14)

Ahoj všem, prosím existuje nějaký způsob, aby mi zůstal stále aktivní hypertextový odkaz, i když se změní pojmenování listu nebo buňky? Cesta zůstává stále stejná.


Strana:  « předchozí  1 2 3 4 5 6   další »

Uživatelské menu

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

Menu

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.

On-line nástroje