Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Γενικά] Αυτόματη ενημέρωση (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2795-aytomati-enimerosi.html)

ΤΕΟΔΩΡΟΣ 21-11-13 07:38

Αυτόματη ενημέρωση
 
1 Συνημμένο(α)
Φίλοι μου σας χαιρετώ
Είμαι νέος στο φόρουμ και θα ήθελα την βοήθεια σας .Προσπάθησα να βρω κάτι που θα με βοηθούσε στο φόρουμ αλλά το άθλημα δεν το κατέχω και καλά . Το πάλεψα όσο μπορούσα το αποτέλεσμα το στέλνω με το συνημμένο αρχείο .Αυτό που θα ήθελα είναι αν μπορεί στην ΕΝΤΟΛΗ ΣΥΝΤΗΡΗΣΗΣ ανάλογα με τις τιμές του C13 : K17 η ημερομηνία στο Ε37 να μπαίνει αυτόματα στο φύλλο Υ_Σ|ΗΜΕΡΟΜΗΝΙΑ στην θέση ΕΚΔΟΣΗ ΕΝΤΟΛΗΣ στις ανάλογες θέσεις . (Εργαζόμαστε στο Excel 2003). Ευπρόσδεκτο και το σουλούπωμα αυτών που έχω κάνει.
Ευχαριστώ για την βοήθεια προκαταβολικά.

Spirosgr 21-11-13 12:00

Καλημέρα
Φίλε Θοδωρή
Κατ' αρχήν το ζητούμενό σου μπορεί να λυθεί με τον παρακάτω κώδικα
Όπου : Range("Description") = η περιοχή C13:K17
Όπου : Range("DateRange") = η περιοχή (κελί E37) που καλό είναι να μην είναι συγχωνευμένο
Βάλε τον κώδικα σε μια Module και σύνδεσε ένα κουμπί

Κώδικας:

Sub test()
    Dim c, k As Range
    For Each c In Range("Description")
        For Each k In Range("ΥΠΟΣΤΑΘΜΟΙ")
            If c.Value = k.Value Then
                k(1, 0).Value = Range("DateRange").Value
            End If
        Next k
    Next c
End Sub

Όσο για το "σουλούπωμα" υπάρχουν πάρα πολλά λάθη
και πράγματα που πρέπει να συζητηθούν

ΤΕΟΔΩΡΟΣ 21-11-13 18:27

Φίλε Σπύρο ευχαριστώ για την βοήθειά σου

ΤΕΟΔΩΡΟΣ 25-11-13 07:00

Φίλε Σπύρο επανέρχομαι συγνώμη για την καθυστέρηση αλλά ήμουνα εκτός έδρας.Δοκίμασα το προγραμματάκι και δουλεύει άψογα


Η ώρα είναι 11:56.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2