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

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

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.

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. 😉

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

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. 😉

: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

a nemakruj na mě ;)