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

• #20482 Delila_1 veterán misa479 #20480

  Új Válasz 2014-02-13 11:06:11 #20482

  Ú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 misa479 #20480 üzenetére

  Ez a makró elintézi:

  Sub sortorol()
  Dim sor As Long, usor As Long
  usor = Range("B" & Rows.Count).End(xlUp).Row
  Range("B10:B" & usor).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  End Sub

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