[Excel] da li neko ima makro za brisanje praznih celija u nizu

[ 3okc @ 16.08.2007. 09:10 ] @

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