loksik.lubos
05.02.17,16:33
Dobry den poradaci,
mam tabulku ktora sa stale meni o pocet riadkov a potrebujem vytvorit makro aby mi amo vytvorilo oramovanu bunku vzdy o 2riadky nizsie od posledneho riadku a do tejto bunky mi zratalo cely stlpec E (od E6 po koniec stlpca). Skusal som rozne makra ale vzdy som musel zadat poziciu kde to potrebujem zratat a casto mi ju aj prekrylo.
A este by potreboval poradit fukcne makro aby mi odstranilo prazdne riadky alebo vymazalo skryte riadky
mam tabulku ktora sa stale meni o pocet riadkov a potrebujem vytvorit makro aby mi amo vytvorilo oramovanu bunku vzdy o 2riadky nizsie od posledneho riadku a do tejto bunky mi zratalo cely stlpec E (od E6 po koniec stlpca). Skusal som rozne makra ale vzdy som musel zadat poziciu kde to potrebujem zratat a casto mi ju aj prekrylo.
A este by potreboval poradit fukcne makro aby mi odstranilo prazdne riadky alebo vymazalo skryte riadky
excel.sk
06.02.17,15:34
tak začnem ja:
makro na mazanie skrytých riadkov (vyplnených)
Sub Makro1()
'
' Makro1 Makro
'
'
Dim CisloPoslednehoRiadku As Long
Dim SkumanyRiadok As Long
CisloPoslednehoRiadku = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Application.ScreenUpdating = False
For SkumanyRiadok = CisloPoslednehoRiadku To 1 Step -1
If Rows(SkumanyRiadok).Hidden = True Then Rows(SkumanyRiadok).EntireRow.Delete
Next SkumanyRiadok
Application.ScreenUpdating = True
End Sub
.
makro na mazanie skrytých riadkov (vyplnených)
Sub Makro1()
'
' Makro1 Makro
'
'
Dim CisloPoslednehoRiadku As Long
Dim SkumanyRiadok As Long
CisloPoslednehoRiadku = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Application.ScreenUpdating = False
For SkumanyRiadok = CisloPoslednehoRiadku To 1 Step -1
If Rows(SkumanyRiadok).Hidden = True Then Rows(SkumanyRiadok).EntireRow.Delete
Next SkumanyRiadok
Application.ScreenUpdating = True
End Sub
.
Kabaka123
07.02.17,16:42
Ak by si si nainštaloval doplnok excelu RJ tools od Radka Jurečka, tam máš funkciu odstrániť prázdne, alebo poloprázdne riadky, prázdne alebo poloprázdne stĺpce