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

• #36852 Delila_1 veterán RAiN91 #36851

  Új Válasz 2017-12-27 12:49:39 #36852

  Ú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 RAiN91 #36851 üzenetére

  Szia!

  Másold be a makrót egy modulba (lásd Téma összefoglaló), és indítsd el.

  Sub Sortorles()
Dim sor As Long, usor As Long, WF As WorksheetFunction

usor = Cells(Rows.Count, 1).End(xlUp).Row
Set WF = Application.WorksheetFunction
For sor = usor To 4 Step -1
If WF.CountA(Rows(sor)) = 0 And WF.CountA(Rows(sor - 1)) = 0 And _
WF.CountA(Rows(sor - 2)) = 0 And WF.CountA(Rows(sor - 3)) = 0 Then
Rows(sor).Delete Shift:=xlUp
End If
Next
End Sub

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