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

• #35648 Delila_1 veterán oke #35647

  Új Válasz 2017-07-04 16:01:07 #35648

  Ú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 oke #35647 üzenetére

  Nem az a baj, hanem az, hogy nem vettem figyelembe a sortörlések alapszabályát. Eszerint a törlési ciklust az alsó sortól felfelé kell indítani.

  Sub Torles()
Dim sor As Long, usor As Long

Application.ScreenUpdating = False
usor = Range("A" & Rows.cunt).End(xlUp).Row
For sor = usor To 2 Step -1
If Cells(sor, "J") = "-" And Cells(sor, "G") <> "Alma*" And _
Cells(sor, "G") <> "Körte*" And Cells(sor, "G") <> "Narancs*" Then _
Rows(sor).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub

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