IT rekvalifikace s garancí práce. Seniorní programátoři vydělávají až 160 000 Kč/měsíc a rekvalifikace je prvním krokem. Zjisti, jak na to!
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
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 25.4.2023 14:12
 
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.