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

• #28244 coldfirexx tag

  Új Válasz 2015-08-27 09:25:04 #28244

  Ú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

  

  coldfirexx

  tag

  Végül sikerült így megcsinálni:
  Sub Szerződések_törlése()
  Sheets("Alapadatok").Select
  Dim MyCol As String
  Dim i As Integer
  For i = 1 To Range("AE" & "65536").End(xlUp).Row Step 1
  If Application.WorksheetFunction.CountIf(Range("A" & i & ":AZ" & i), "A szerződés előző évben lejárt") > 0 Then
  Range("C" & i).EntireRow.Delete
  End If
  Next i
  Range("A2").Select
  Sheets("Vezérlő").Select
  Range("B6").Select
  End Sub

  De vagy 3 perc mire lefutott 5000 sornál.
  Van valami gyorsabb módja makróval?

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