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

• #28297 Fferi50 Topikgazda coldfirexx #28251

  Új Válasz 2015-08-28 23:32:06 #28297

  Ú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

  

  Fferi50

  Topikgazda

  válasz coldfirexx #28251 üzenetére

  Szia!

  Miért nem használod ki az Excel beépített lehetőségeit?

  Sub Szerződések_törlése()
  With Sheets("Alapadatok")
  .UsedRange.Autofilter Field:=31, Criteria1:="A szerződés előző évben lejárt"
  .UsedRange.Offset(1,0).Specialcells(xlCelltypeVisible).EntireRow.Delete
  .AutofilterMode=False
  End With
  Sheets("Vezérlő").Select
  Range("B6").Select
  End Sub

  Üdv.

• #28253 Mittu88 senior tag coldfirexx #28251

  Új Válasz 2015-08-27 13:40:38 #28253

  Ú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

  

  Mittu88

  senior tag

  válasz coldfirexx #28251 üzenetére

  Azt próbáld még ki, hogy a Dim j as integer sor alá beírod: application.screenupdating = false
  Amúgy nem lehetne lassabb, nem értem a dolgot.

  Azt írd majd meg légyszi, hogy gyorsult-e ettől a parancstól. Köszi!

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