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
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.
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.
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
Registrovani: 1 ( veselinovic )
Macro za brisanje datuma