< návrat zpět

MS Excel

Téma: MAKRO pro vymazání prázdných řádků v Tabulce rss

Zaslal/a O.B 11.12.2018 9:38

Dobrý den všem,

mám Tabulku, v prvním sloupci je datum, v druhém sloupci jsou kusy. Mezi jednotlivými řádky, které obsahují hodnoty mám řádky, které jsou prázdné.
Může mi prosím někdo poslat jednoduché makro,které najde a vymaže prázdné řádky?

Děkuji.

OB

Zaslat odpověď >
veny(11.12.2018 9:46)#042062
avatar
třeba

https://www.poradte.cz/pocitace-a-prislusenstvi/42676-excel-mazani-prazdnych-radku.html

a použít záznamník makercitovat
O.B(11.12.2018 10:30)#042063
avatar
Chci použít Makro, protože každý den vkládám data a ty se mi posunují směrem dolů a prázdná místa potřebuji odstranit ,vždy ve stejném sloupci, ale jiném řádku.citovat
veny(11.12.2018 11:21)#042064
avatar
právě proto jsem psal o použití návodu a záznamníku makra
tzn. zapnout záznamník, použít návod, vypnout záznamník, pojmenovat makro a event. přiřadit kl. zkratku

pak už stačí jen spouštět makro v případě potřeby 10citovat
O.B(11.12.2018 20:58)#042068
avatar
PODĚLÍM SE O NÁLEZ NA NETU - - - FUNGUJE TO SKVĚLE, TAK JAK POTŘEBUJI:) 5 Jinak děkuji za rady. O.B.

Sub odstranit_prazdne_radky()
ActiveSheet.UsedRange.Select
Dim i As Long
'Vypneme prepocitovani, aby se makro zbytecne nezpomalovalo
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
'Prochazime rakdy a odstranujeme
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
'Zase zapneme prepocitavani
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Subcitovat

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