< návrat zpět

MS Excel


Téma: Seřadit dvě tabulky na různých listech rss

Zaslal/a 26.10.2020 18:57

Dobrý den, potřeboval bych poradit s makrem. Mám dvě tabulky "Zamestnanci" na listu "Zaměstnanci" a "Zamestnanci144" na listu "Termíny". Potřeboval bych upravit makro "Serad", aby se zároveň seřadila i tabulka na listu Termíny. Obě tabulky jsou stejně velké a mají stejnou polohu na listu.

Sub Serad()
'
' Serad Makro
'

'
ActiveSheet.Unprotect
ActiveWorkbook.Worksheets("Zaměstnanci").ListObjects("Zamestnanci").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Zaměstnanci").ListObjects("Zamestnanci").Sort. _
SortFields.Add2 Key:=Range("Zamestnanci[[#All],[Příjmení, jméno, titul]]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Zaměstnanci").ListObjects("Zamestnanci").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowSorting:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

Dále bych potřeboval podobně upravit makro pro smazání obsahu v určitých buňkách jednoho řádku v obou listech najednou.

Sub SmazRadek()
'
' SmazRadek Makro
'

'
If MsgBox("Opravdu chcete smazat řádek? Zkontrolujte, zda nesmažete jediný kompletní řádek pro tuto pozici!", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
Cells(ActiveWindow.RangeSelection.Row, 1).Select
ActiveCell.Range("A1:C1,E1,G1:I1,K1:CJ1,CL1,CO1:DA1,DH1,DJ1:DL1,DP1:DQ1,DT1:DV1,DZ1,EB1,ED1:EF1,EH1:EI1,EK1,GY1:HA1").Select
Selection.ClearContents
End Sub

Zaslat odpověď >

#048598
lugr
Potřeboval bych rozložení tabulek abych mohl dodělat kód Seřadit. Nemám to jak vyzkoušet.
Příloha: zip48598_test.zip (17kB, staženo 2x)
citovat
#048601
avatar
Tabulky jsou A4:HA204citovat
#048602
lugr
Tedy v řádku 4 je záhlaví tabulky a řadit se budou data podle sloupce A?

Ráno na to mrknu.citovat
#048604
avatar
4. řádek je záhlaví.
To původní makro to zvládlo řadit podle sloupce kde mám vybranou buňku, tak ideálně kdyby to šlo napasovat na to, ale když to nepůjde, tak sloupec A.citovat
#048605
lugr
Mělo by to fungovat. Řadí podle sloupce A.
Příloha: zip48605_test3.zip (20kB, staženo 2x)
citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Počet jedinečných hodnot

MePExG • 3.12. 11:18

Počet jedinečných hodnot

elninoslov • 3.12. 8:38

Počet jedinečných hodnot

vikizaj • 2.12. 17:35

Počet jedinečných hodnot

lubo • 2.12. 17:34

rozdělení čísla do více buněk dle násobku

lubo • 2.12. 17:31

Automatické doplňování buněk

veny • 2.12. 17:31

Počet jedinečných hodnot

veny • 2.12. 17:10