Evo, imam ja makro - koji ti je potpuno nepotreban, to isto se može postići i bez makroa. Ako lista već nema
Auto Filter (malo verovatno), onda ga prvo kreiraš. Potom, filtriraš kolonu sa praznim ćelijama, opcija
(Blanks), i onda samo selektuješ čitave redove pa DELETE. Na kraju poništiš filter da ti prikaže ostatak liste. Mnogo jednostavnije.
A makro:
Code:
'^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^'
'^ Delete entire row arbitrary to blank cells ^'
'^ in given column downward from Selection ^'
'^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^'
'^ elitesecurity.org, Beograd, Avgust 2007. ^'
'^ ^'
'^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^'
Sub DeleteEntireRowInGivenColumn()
Dim rngSelection As Range
Set rngSelection = ActiveCell
Application.ScreenUpdating = False
Do
'Activate next blank cell down
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'Select blanks downward
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Resize(Selection.Rows.Count - 1, 1).Select
'Delete Selection
Selection.EntireRow.Delete
'Unselect range of cells
ActiveCell.Select
Loop Until ActiveCell.End(xlDown).Row = ActiveSheet.Rows.Count
rngSelection.Select
Set rngSelection = Nothing
Application.ScreenUpdating = True
End Sub
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!