Kako bi glasio Macro za brisanje datuma koji su istekli. Svih na radnom listu koji su minimum dan manji od aktuelnog datuma??
Macro za brisanje datuma
Zaključano
Zakačeno
Evo probaj sa sledecim primerom, nemoj da zaboravis da ubacis range koji te zanima da menjas
Pozdrav
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
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
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.
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.
Postavi sledeci kod
Dakle na dogadjaj Open dokumenta, kako bi se automatski proverili datumi cim se dokument otvori.
Pozdrav
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
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
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
Hvala
Probaj da zamenis
sa
Pozdrav
Code:
For Each c In Range("D8:S65536")
For Each c In Range("D8:S65536")
sa
Code:
For Each c In Range("D:D,F:F,H:H,J:J,L:L,N:N")
For Each c In Range("D:D,F:F,H:H,J:J,L:L,N:N")
Pozdrav
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!
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!