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: 11
Registrován: listopad 17
Pohlaví: Nespecifikováno

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
xlnc
Level 3.5
Level 3.5
Příspěvky: 782
Registrován: červenec 11
Pohlaví: Muž

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

Příspěvekod xlnc » 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...
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

Uživatelský avatar
elninoslov
Level 1.5
Level 1.5
Příspěvky: 107
Registrován: červen 13
Pohlaví: Muž

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ť ...
Nemáte oprávnění prohlížet přiložené soubory.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro - nalezení prvního volného řádku
    od Niki2 » 04 črc 2017 09:49 » v Kancelářské balíky
    3
    412
    od Nefer
    04 črc 2017 22:28
  • Excel - Makro bez cyklu pro výpočet v kterémkoliv řádku
    od wilma » 10 kvě 2017 09:17 » v Kancelářské balíky
    1
    328
    od xlnc
    10 kvě 2017 17:58
  • Smazání OS?
    od wanwan1 » 28 říj 2017 14:44 » v Windows 10, 8, 7, Vista, XP…
    3
    314
    od zeus
    28 říj 2017 16:50
  • Smazání profilu
    od Roidoc » 15 bře 2018 16:57 » v PC-HELP - připomínky k fóru
    0
    250
    od Roidoc
    15 bře 2018 16:57
  • Smazání disku
    od LesanCZE » 01 bře 2018 16:10 » v Problémy s hardwarem
    21
    734
    od Diskař
    03 bře 2018 19:15

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host