Avatar uživatele
bolak

Excel 2007 – Jak ODSTRANIT všechny řádky, u kterých je buňka ve sloupci „A“ prázdná?

Mám data ve sloupci „A“ a potřebuju odstranit všechny řádky, ve kterých je ta buňka ve sloupci „A“ prázdná (tedy aby ve sloupci „A“ nakonec nebyla žádný prázdná buňka).

Ty řádky potřebuju né smazat, ale vyloženě odstranit, a udělat na to nějaké automatické makro, aby kdykoliv ho spustím, mi to odstranilo všechny ty prázdné řádky (dle sloupce „A“). Jde to?

Uzamčená otázka

ohodnoťte nejlepší odpověď symbolem palce

Zajímavá 1Pro koho je otázka zajímavá? johana 56 před 3914 dny Sledovat Nahlásit



Nejlepší odpověď
Avatar uživatele
Alesh

Odpoveď byla označena jako užitečná

Všechno jde a tohle je docela jednoduchý, klidně ti to makro napíšu, ale budu moct až v pátek navečer. Když tak mi napiš vzkaz a domluvíme se. Máš něco jako Skype nebo ICQ?
Doplňuji:
Option Explicit

Private Sub Workbook_Sheet­Change(ByVal Sh As Object, ByVal Target As Range)

Dim cl As Range

For Each cl In Target
If cl.Column = 1 And cl = vbNullString Then
Application.E­nableEvents = False
cl.EntireRow.Delete
Application.E­nableEvents = True
End If
Next cl

End Sub

Upravil/a: Alesh

1 NominaceKdo udělil odpovědi nominaci?bolak Nahlásit

Otázka nemá žádné další odpovědi.



Diskuze k otázce
Avatar uživatele
Alesh

Zkus tedy toto:

Option Explicit

Private Sub Workbook_Sheet­Change(ByVal Sh As Object, ByVal Target As Range)

Dim cl As Range
Dim delreg As Range

For Each cl In Target
If cl.Column = 1 And cl = vbNullString Then
If delreg Is Nothing Then
Set delreg = cl.EntireRow
Else
Set delreg = Union(delreg, cl.EntireRow)
End If
End If
Next cl

If Not delreg Is Nothing Then
Application.E­nableEvents = False
delreg.Delete
Application.E­nableEvents = True
Set delreg = Nothing
End If

End Sub

před 3911 dny Odpovědět Nahlásit
Avatar uživatele
bolak

A dokázal bys vymyslet i něco na „Mazání druhých duplocit“ (bráno odspoda). Tedy v tom samým dokumentu pro kterej platí tadyto makro, mám nastavené označení duplicit podmíněným formátováním, takže když tam napíšu slovo které už ve sloupci je, zbarví se mi pozadí té buňky do červena, a já bych to potřeboval nějak zautomatizovat, nebo zase přes to makro, aby se mi ta druhá duplicitní buňka (ta která je ve sloupci níž) rovnou po vepsání (nebo po stisknutí makrozkratky) odstranila…

A k tomu pak přidat i to cos už udělal, aby mi zmizel i ten prázdnej řádek.

před 3911 dny Odpovědět Nahlásit
Avatar uživatele
Alesh

Jo, šlo by to, ale já už teď nemám čas. Měl jsem ho jen včera večer a dnes dopoledne, takže se to budeš muset naučit sám a nebo si nějaký ten den počkat. 😉

před 3911 dny Odpovědět Nahlásit
Avatar uživatele
bolak

Alesh: Slyším dobře, snažíš se domluvit si se mnou schůzku na pátek večer? :)

před 3914 dny Odpovědět Nahlásit
Avatar uživatele
Alesh

Tak si polib pr*el. 🙂 U kompu budu až o víkendu, teď píšu z mobilu, z něj ti to fakt nenapíšu. 😉 Ale jak chceš, chtěl jsem pomoct, když nechceš, nechtěj. 😉

před 3914 dny Odpovědět Nahlásit
Avatar uživatele
bolak

:D ok, tak teda rande, já si snad seženu nějakej ten skypes, ale nic neslibuju, na mě je to moc složitý tadyty počítačový věci… lidi co uměj hejbat myší a klikat na ikony, takovejm říkáme u nás na vsi hekŘi

před 3914 dny Odpovědět Nahlásit
Avatar uživatele
bolak

a nemakruj na mě ;)

před 3912 dny Odpovědět Nahlásit
Nový příspěvek
Zajímavé otázky v kategorii Počítače a internet