Forum - VBA Αλλαγή ημερομηνιών

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Αλλαγή ημερομηνιών (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/783-allagi-imerominion.html)

Αλλαγή ημερομηνιών

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

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

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

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

Κώδικας:

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 :cool:

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

Καλημέρα

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

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