< 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 15x)
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 15x)
citovat

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