Příspěvky uživatele


< návrat zpět

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

elninoslov napsal/a:

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

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

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

příloha

příloha

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.

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á.

Funguje perfektně! Bylo by prosím ještě možné, aby se makro spouštělo automaticky třeba při ručním uložení souboru? Tvořit tlačítko na aktivaci makra mi přijde nepraktické. Nebo jestli je něco lepšího? Moc díky

Ahoj všem, prosím o radu. Jde nějakým způsobem automaticky pojmenovat listy podle konkrétní buňky? Mám sešit, kde bude cca 100 listů. První čtyři listy mají své jméno, od páteho listu bych potřeboval pojmenovávat. Jméno listu5=buňkaC3 z listu5. Jméno listu6=slovo Training+buňkaC3 z předešlého listu5.Jméno listu7=buňkaC3 z listu7. Jméno listu8=slovo Training+buňkaC3 z předešlého listu7. Přílohou zasílám vzor.
Předemmoc děkuji

Moc děkuji za pomoc, obě varianty fungují super. V týdnu vyzkouším v reálu a dám vědět. Ještě jednou moc děkuji. Jste borec.

omlouvám se, štítky jsou předperforované/rozdělené A4, rozměr 48x21 mm
https://www.etikety-stitky.cz/samolepici-etikety-avery-zweckform-3650/

Dobrý den, budou to štítky na A4. Samolepicí bílé etikety 70 x 20 mm, A4. Okraje a rozměr nerozhoduje, pouze aby byl jasně čitelný text.

pouze jméno a druh jídla např KNL 2 a tak aby to bylo normálně čitelné, budu to lepit na objednaná jídla. Moc moc díky

Moc prosim o pomoc s vyřešením tabulky. V listu zdroj si pracovníci objednávají jídlo a já potřebuji v listu tisk v buňce A1 a B1 vybrat den týdne a dodavatele a následně v buňce A4 až B40 aby se mi zobrazili jména všech kdo si toto jídlo objednal. A pak bych to ještě potřeboval tisknout ve formě štítků. Moc moc díky

Ahoj všem, prosím o pomoc se vzorcem průměr podle data. Sloupec vlhkost mi háže chybu a vůbec nevím co s tím. Díky moc.


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

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09