Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

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

[ Pregleda: 3576 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.co.yu.



+133 Profil

icon [Excel] da li neko ima makro za brisanje praznih celija u nizu15.08.2007. u 20:49 - pre 202 meseci
da li neko ima makro za brisanje braznih celija u nizu tako da niz bude spojen a ne razdvojen praznim celijama?
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1318

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: [Excel] da li neko ima makro za brisanje praznih celija u nizu16.08.2007. u 09:10 - pre 202 meseci
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!
 
Odgovor na temu

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

[ Pregleda: 3576 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.