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

• #28076 Delila_1 veterán KubanitoS #28070

  Új Válasz 2015-08-11 18:17:59 #28076

  Ú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 KubanitoS #28070 üzenetére

  Makró, amire poffsoft utalt:

  Sub SorTorles()
  Dim sor As Long, usor As Long
  
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = usor To 5 Step -1
  If Application.WorksheetFunction.CountA(Rows(sor)) = 0 Then _
  Rows(sor).Delete
  Next
  End Sub

  A makró az A oszlopban található utolsó adattól indul felfelé. Ahol üres sort talál, azt kitörli, az első 5 sor kivételével.

  Ha van oszlop, ahol több kitöltött sor van, mint az A oszlopban, az

  usor = Range("A" & Rows.Count).End(xlUp).Row -ban írd át az A-t az oszlopod betűjelére.

  A For kezdetű sorban írhatod át a meghagyandó felső sorok számát 5-ről.
  Mivel nem tudom, minden lapodon kell-e ismételni a sorok törlését, 1 lapra írtam meg. Azon a lapon töröl, amelyiken éppen állsz.

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