Macro za brisanje datuma

[ woolf1975 @ 22.11.2009. 12:10 ] @

Kako bi glasio Macro za brisanje datuma koji su istekli. Svih na radnom listu koji su minimum dan manji od aktuelnog datuma??

[ timmy @ 22.11.2009. 14:58 ] @

Evo probaj sa sledecim primerom, nemoj da zaboravis da ubacis range koji te zanima da menjas

Code:

Private Sub BrisiDatume()
Dim c As Range
Dim d As Long
For Each c In Range("A1:D19")
If DateValue(c) < DateValue(Date) Then c.Value = ""
Next c
End Sub

Pozdrav

[ woolf1975 @ 24.11.2009. 00:41 ] @

timmy postavio sam ovaj kod kao proceduru u sheet "podaci" promijenio sam range onako kako bi meni odgovaralo, ali nesto ne stima
ja bi htio da pri napustanju radne sveske ili pri ulazenju u istu on izbrise sve datume koji su stariji od aktuelnog... dali moze tako???? znaci bez moje intervencije stiskanja dugmica.

i naravno veliko hvala na trudu kojim nas prosvijetljujete.
Ps- okacio sam primijer na kom se vidi kako sam to zamislio.

[ timmy @ 24.11.2009. 08:54 ] @

Postavi sledeci kod

Code:

Private Sub Workbook_Open()
Dim c As Range
Sheets("podaci").Activate
For Each c In Range("D8:S65536")
    If c <> "" Then
        If DateValue(c) < DateValue(Date) Then c.Value = ""
    End If
Next c
End Sub

Dakle na dogadjaj Open dokumenta, kako bi se automatski proverili datumi cim se dokument otvori.

Pozdrav

[ woolf1975 @ 24.11.2009. 16:26 ] @

timmy code odlicno radi kad su zadani datumi u kolonama dje su celije formatirane kao datumske, medjutim desava se greska ako se u kolone "kolicina" upisu podatci a one su formatirane kao brojevne, dali bi mogao taj code da "prepozna" odnosno da uradi brisanje cijelih kolona dje su celije datumski formatirane, odnosno, bilo bi jos bolje ako bi vezao da na osnovu datuma izbrise i kolicinu u celiji s lijeve strane datuma, ako ne to onda bar da brise datumske kolone u mom slucaju D;F;H;J;L;N;P

Hvala

[ timmy @ 24.11.2009. 23:19 ] @

Probaj da zamenis

Code:
For Each c In Range("D8:S65536")

Code:
For Each c In Range("D:D,F:F,H:H,J:J,L:L,N:N")

Pozdrav

[ woolf1975 @ 25.11.2009. 01:34 ] @

Da to je to
hvala timmy
samo si izostavio da upises opseg kolona

CODE:

For Each c In Range("D8:D65536,F8:F65536,H8:H65536,J8:J65536,L8:L65536,N8:N65536")

i to radi odlicno.
hvala jos jednom!