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

• #12453 jani-wan tag jani-wan #12438

  Új Válasz 2012-01-06 10:31:48 #12453

  Ú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

  

  jani-wan

  tag

  válasz jani-wan #12438 üzenetére

  No, arra már találtam leírást hogy lehet sort töröltetni dátum alapján:

  Sub DeleteRowbyDate()

  Dim x As Long
  For x = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
  Debug.Print Cells(x, "B").Value
  If CDate(Cells(x, "B")) < CDate("12/31/2012") Then
  Cells(i, "B").EntireRow.delete
  End If
  Next

  End Sub

  de sajnos nem értem egészen
  Jól látom hogy ez
  If CDate(Cells(x, "B")
  a B oszlop x cellájában található dátumot megvizsgálja hogy kisebb-e mint "az általam megadott dátum", és ha igen akkor törli a "B" oszlop 9. sorát?

  viszont lövésem sincs az utasítás elején mit csinál.
  mi a csuda az ott az x?
  mert ha itt
  If CDate(Cells(x, "B")
  az x-et átírom a dátumot tartalmazó cellára akkor
  itt
  For x = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
  mi a csuda folyik????
  Ezt is át kell írnom?

  Arról nem beszélve hogy ez csak egy sor töröl, vagy be lehet álltani hogy több sort töröljön?

  És ha már kérdezek akkor még egy dolog amit nem tudok, hogy van-e makro ami időnként lefut saját magától, és nem kell nekem aktiválni minden alkalommal?

  Előre is köszönöm a segítséget.

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