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

• oke senior tag

  #35652

  #35648 Delila_1

  2017-07-05 11:35:26

  Új Válasz

  Ú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

  

  oke

  senior tag

  #35648 Delila_1

  #35648 Delila_1

  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

  Köszönöm, így tökéletes

  Van egy elírás benne: cunt-count:

  usor = Range("A" & Rows.cunt).End(xlUp).Row

  helyett:

  usor = Range("A" & Rows.count).End(xlUp).Row

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