Makro - smazání prázdných řádků

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Michremi
nováček
Příspěvky: 21
Registrován: listopad 17
Pohlaví: Nespecifikováno
Stav:
Offline

Makro - smazání prázdných řádků

Příspěvekod Michremi » 18 pro 2017 10:03

Ahoj, mám různé excelové sešity s asi padesáti listy a potřeboval bych z nich vymazávat prázdné řádky.

Všechny návody a rady, které jsem našel se týkaly vždycky jenom jednoho listu, třeba tenhle:

ActiveSheet.UsedRange.Select
Dim i As Long
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
End Sub

dělá přesně, co potřebuju, ale musím ho použít na každý list zvlášť, šel by nějak rozšířit, aby fungoval na všechny listy v souboru najednou? Makru nerozumím, tak si to sám předefinovat neumím :(
Naposledy upravil(a) Michremi dne 18 pro 2017 14:19, celkem upraveno 1 x.

Reklama
guest
Pohlaví: Nespecifikováno

Re: Makro - smazání prázdných řádků

Příspěvekod guest » 18 pro 2017 13:51

vnější cyklus

Kód: Vybrat vše

Dim wshList As Worksheet

For Each wshList in Worksheets...

a zde pracovat s wshList.UsedRange

Next wshList


Nicméně celé by to chtělo ještě překopat...

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Makro - smazání prázdných řádků

Příspěvekod elninoslov » 18 pro 2017 14:53

Vymazávať prázdne riadky v iných súboroch a ešte to nechať na automatiku je extrémne nebezpečné. Treba aspoň minimálne logovať, čo sa deje. Skúsil som Vám načrtnúť návrh ako aspoň niečo kontrolovať. Najskôr sa poriadne oboznámte s tým čo makro robí, a skúšajte to VÝHRADNE na kópii súborov v nejakom cvičnom adresári. Až keď si to poriadne ošaháte a manuálne prekontrolujete, môžete pokračovať ...
Přílohy
Vymaž prázdne riadky v súboroch.zip
(41.22 KiB) Staženo 58 x


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Kopírování řádků s funkcí když Příloha(y)
    od Martyn20 » 20 črc 2023 16:50 » v Kancelářské balíky
    3
    1791
    od Melvidor Zobrazit poslední příspěvek
    21 črc 2023 08:41
  • Ukotvení prvního a posledního řádku v tabulce.
    od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky
    2
    1417
    od Kopusek Zobrazit poslední příspěvek
    14 pro 2023 08:55
  • excel text na konec více řádků najednou Příloha(y)
    od Myerina » 03 led 2024 11:51 » v Kancelářské balíky
    5
    784
    od Zivan Zobrazit poslední příspěvek
    04 led 2024 09:42
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů