Új hozzászólás Aktív témák

• #4098 Delila_1 veterán Bubu maci #4097

  Új Válasz 2008-11-24 08:49:27 #4098

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Bubu maci #4097 üzenetére

  Az alábbi kis makró megoldja a feladatot.

  Sub törlés()
  For sor = Range("A65536").End(xlUp) To 2 Step -1
  Cells(sor, 1).Select
  If Selection.Value = "" Or Selection.Value > "A" Then _
  Selection.EntireRow.Delete
  Next
  End Sub

Új hozzászólás Aktív témák