potrebejem vymsliet makro na zmazanie vsetkych prazdnych riadkov a stlpcov v danom rozsahu buniek
doteraz som pouzival toto:
- Kód: Vybrat vše
Sub DeleteEmptyRows(DeleteRange As Range)
' Deletes all empty rows in DeleteRange
' Example: DeleteEmptyRows Selection
' Example: DeleteEmptyRows Range("A1:D100")
Dim rCount As Long, r As Long
If DeleteRange Is Nothing Then Exit Sub
If DeleteRange.Areas.Count > 1 Then Exit Sub
With DeleteRange
rCount = .Rows.Count
For r = rCount To 1 Step -1
If Application.CountA(.Rows(r)) = 0 Then
.Rows(r).EntireRow.Delete
End If
Next r
End With
End Sub
Sub DeleteEmptyColumns(DeleteRange As Range)
' Deletes all empty columns in DeleteRange
' Example: DeleteEmptyColumns Selection
' Example: DeleteEmptyColumns Range("A1:Z1")
Dim cCount As Integer, c As Integer
If DeleteRange Is Nothing Then Exit Sub
If DeleteRange.Areas.Count > 1 Then Exit Sub
With DeleteRange
cCount = .Columns.Count
For c = cCount To 1 Step -1
If Application.CountA(.Columns(c)) = 0 Then
.Columns(c).EntireColumn.Delete
End If
Next c
End With
End Sub
Sub delete_rows_columns()
DeleteEmptyRows Range("A1:L200")
DeleteEmptyColumns Range("A1:L200")
Columns("B:B").ColumnWidth = 19.71
Range("A1").Select
End Sub
problem je ze to nieje spolahlive a vacsinou zabudne nejake prazdne riadky aj ked nemaju ziaden obsah. Nerozumiem preco.
Mozu vadit tomuto makro obrazky ktore sa nachadzaju v tabulke?
Poznate nejako makro na zmazanie vsetkych obrazkov v tabulke?
Dakujem
