• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

Zaslal/a Jan111 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ěď >

---

Lugr(26.10.2020 19:26)#048598

Potřeboval bych rozložení tabulek abych mohl dodělat kód Seřadit. Nemám to jak vyzkoušet.

Příloha: 48598_test.zip (17kB, staženo 15x)

citovat

Jan111(26.10.2020 22:19)#048601

Tabulky jsou A4:HA204citovat

Lugr(26.10.2020 22:38)#048602

Tedy v řádku 4 je záhlaví tabulky a řadit se budou data podle sloupce A?

Ráno na to mrknu.citovat

Jan111(26.10.2020 22:45)#048604

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

Lugr(27.10.2020 7:10)#048605

Mělo by to fungovat. Řadí podle sloupce A.

Příloha: 48605_test3.zip (20kB, staženo 15x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje