Historie úprav

Alesh

Odpověděl/a – 9.červenec 21:27

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?

Alesh

Odpověděl/a – 13.červenec 11:16

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