Slet indhold automatisk

hvis du skriver dette i en celle: =IF(DIN_DATO-NOW()<0;"";DIN_DATO) - smid datoen ind, vil det kun blive vist, hvis den ikke er overskredet..

Det er ikke kun datoen der ikke skal vises, men hele rækken hvor datofeltet er.

så kan du gøre det med en makro - du trækker Alt + F8, tast et vilkåligt navn og tryk opret:

nu kommer du ind i et visual basic scripting-miljø, hvor der står

sub vilkårligt_navn ()

end sub

imellem sub og end sub, skal dette kopieres ind:

Dim t, start_row, end_row As Integer

start_row = 1
end_row = 10

For t = start_row To end_row
  If IsDate(Range("A" & t)) Then
    If DateDiff("d", Range("A" & t), Now) > 0 Then
      Rows(t & ":" & t).Delete
      t = t - 1
      end_row = end_row - 1
    End If
  End If
Next

dette kommer til at se sådan her ud:

sub vilkårligt_navn ()

Dim t, start_row, end_row As Integer
Dim column_name as string

start_row = 1
end_row = 10
column_name = "A"

For t = start_row To end_row
  If IsDate(Range(column_name & t)) Then
    If DateDiff("d", Range(column_name & t), Now) > 0 Then
      Rows(t & ":" & t).Delete
      t = t - 1
      end_row = end_row - 1
    End If
  End If
Next

end sub

start_row og end_row kan du ændre, så det kommer til at passe med, hvilke rækker, du vil tjekke for date og slette.. column_name er den kolonne, datoen er i..


Hvis du vil kunne køre makroen uden at skulle trykke Alt+F8 og vælge kør, kan du indsætte en knap..
1. du skal have vist værktøjslinjen formular/form.. dette gøres ved at højreklikke på menu-feltet eller hvad det nu hedder (der hvor du kan gemme, hente, hvor menuerne filer, edit, osv er). når du højreklikker, sommer der en liste med forskellige værktøjslinjer, du kan vise.. få den til at vise form/formuler
2. tryk på det lille grå rektangel, der er i den nye menu (med label knap/button)
3. tegn knappen og vælg den makro, du lige har lavet

nu kan du trykke på knappen, og den sletter de linjer, hvor datoen i kolonnen column_name er overskredet.

NB: hvis knappen er under de linjer, du sletter, vil den automatisk rykke med op.. hvis du i stedet tegner den over linjerne, vil den blive, hvor den skal være..

Perfekt - tak skal du have