Ανανέωση ιστοσελίδας

[manolis]

Καλημέρα.
Εχω ενα αρχείο το οποίο το επεξεργάζομαι με μακροεντολές.

Σε μία στήλη έχω διάφορες ημερομηνίες
Αυτό που θέλω να κάνω είναι όταν ανοίγω το αρχείο να μου βγάζει ένα πλαίσιο διαλόγου στο οποίο να δίνω μια ημερομηνία ( πχ 1/10/2010) και να μου αλλαζει όλες τις ημερομηνίες οι οποίες είναι πριν από αυτή την ημερομηνία σε 1/10/2010.

Ευχαριστώ
Μανώλης

[gr8styl]

Φίλε Μανώλη ο παρακάτω κώδικας κάνει αυτό που θέλεις.

Sub set_date()
    Dim MyDate As Date
    Dim c As Variant
    
    On Error Resume Next
    
    MyDate = 0
    MyDate = InputBox("Enter date")
    For Each c In Range("a2:a18").Cells
        If c.Value < MyDate Then c.Value = MyDate
    Next c
End Sub

Αν χρειαστεί προσαρμόζεις την Range("a2:a18").Cells

Πες μας αν έγινε.
Θανάσης

[manolis]

Καλημέρα

Θανάση σε ευχαριστώ για αυτό που έφτιαξες.
Ειναι αυτο ακριβώς που ήθελα και δουλεύει μια χαρά.


Φιλικά
Μανώλης