16-10-10, 18:32
|
 | Super Moderator Όνομα: Θανάσης Στυλιανίδης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-10-2009 Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
| |
Φίλε Μανώλη ο παρακάτω κώδικας κάνει αυτό που θέλεις. Κώδικας: 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 
Πες μας αν έγινε.
Θανάσης
|