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: 15
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: 799
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: 140
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
  • Smazání OS?
    od wanwan1 » 28 říj 2017 14:44 » v Windows 10, 8, 7, Vista, XP…
    3
    362
    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
    339
    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
    769
    od Diskař
    03 bře 2018 19:15
  • Smazání nevyhledatelné položky
    od Gigian » 07 bře 2018 15:19 » v Vše ostatní (sw)
    2
    306
    od atari
    07 bře 2018 15:37
  • Skryté vložení řádku
    od DenyKr » 14 říj 2017 16:26 » v Programování a tvorba webu
    0
    370
    od DenyKr
    14 říj 2017 16:26

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

Kdo je online

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