FINÁLNÍ VÝPRODEJ KREDITŮ na ITnetwork je tady. Využij poslední šanci a získej až 80 % extra kreditů ZDARMA na náš interaktivní e-learning. Zjisti více:
NOVINKA: Kurz kybernetické bezpečnosti s akreditací MŠMT, nyní již od 0 Kč. Staň se žádaným profesionálem. Zjisti více:
Avatar
Vojtěch Vaculík
Člen
Avatar
Vojtěch Vaculík:25.4.2023 10:54

Mám problém. Dělám makra pro kopírování dat z jednoho listu na druhý. Nejdříve data importuji do Excelu a ta pak pomocí makra kopíruji na druhý list. Ale v některých řádcích dat jsou prázdné buňky a chci tyto řádky následně pomocí jiného makra vymazat, ale nevím jak na to. Má tu někdo řešení pro tento problém? Děkuji mnohokrát

 
Odpovědět
25.4.2023 10:54
Avatar
Peter Mlich
Člen
Avatar
Peter Mlich:25.4.2023 14:11

To muzes mazat uz pri importu.
Slo by treba pouzit serazeni podle id. Ty prazdne radky by pak skoncili na konci.
Co jsi nasel googlem?

google = vb vymazat prázdné radky

https://www.youtube.com/watch?…
staci kliknout zaznamenavani makra, naklikat mysi a pak upravit VB kod podle potreby

https://exceltown.com/…dku-v-listu/

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 Sub

https://cs.extendoffice.com/…nk-rows.html

Editováno
 
Nahoru Odpovědět
25.4.2023 14:11
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 2 zpráv z 2.