[Excel07] Βοήθεια με αρχείο Excel

[sotisanis]

και αυτο μια χαρα ειναι φιλε μου Τασο. Σε ευχαριστω παρα πολυ!!!! Θα συνεχισω και οπου κολλησω θα σε ενημερωσω!!!

Ευχαριστω παρα πολυ!!

[sotisanis]

ολα καλα μεχρι τωρα εκανα καποια ακομα πραγματα αλλα παω να βαλω αυτο το κουμπι http://www.ms-office.gr/forum/excel-...is-kelion.html και μου κανει προβλημα το εχω βαλει μεσα στο shlook up και αυτο που μου κανει ειναι να μην μπορω να ξανα γραψω τπτ μετα. ενω στην ουσια εγω θελω να κανω reset αυτη την περιοχη.


Sub clearall()
Range("E20:M119").Select
Selection.ClearContents


End Sub


δεν εκανα νεο module .

[Tasos]

Βάλε στο Module1 τον παρακάτω κώδικα και αντιστοίχισε τον σε ένα κουμπί (όχι ActiveX) στο φύλλο "Lookup":

Sub ClearAll()
    Range("E19").Select
    On Error GoTo ExitHere
    Application.EnableEvents = False
    Range("E20:M119").ClearContents
ExitHere:
    Application.EnableEvents = True
End Sub

[sotisanis]

Δεν μπορει να δουλεψει.βγαζει προβλημα.μετα το clear δεν κανει αναζητηση

[Tasos]

Με μπέρδεψες!

Range("E20:E119").ClearContents

Διαφορετικά διαγράφεις και τους τύπους από τις υπόλοιπες στήλες