[VBA] διαγραφή δεδομένων

[nisgia]

Καλησπέρα Νίκο!

Το CommandButton1 (Χ) δεν κάνει αυτό που λες.
Βασικά ο κώδικάς του δεν κάνει τίποτα έτσι όπως είναι στο αρχείο ΑΑ.xls που μας έστειλες.

Δοκίμασε όμως με τον παρακάτω μήπως και γίνεται αυτό που ζητάς.
(Το βιβλίο mmm.xls πρέπει να είναι ανοιχτό)

Private Sub CommandButton1_Click()
    Dim rngCopy As Range

    On Error Resume Next
    'Προσπάθεια σύνδεσης με την περιοχή αντιγραφής (προέλευσης).
    Set rngCopy = Workbooks("mmm.xls").Worksheets(1).Range("Print_Area")
    If rngCopy Is Nothing Then
        'Ενημέρωση αν δεν βρέθηκε.
        MsgBox "Source range not found!", vbExclamation, "Copy range"
    Else
        With Range("A3:Q60")		'Περιοχή επικόλλησης.
            .ClearContents		'Απαλοιφή περιεχομένων.
            rngCopy.Copy		'Αντιγραφή περιοχής προέλευσης.
            .PasteSpecial xlPasteValues	'Επικόλληση τιμών στην περιοχή προορισμού.
        End With
        'Ενημέρωση αν προέκυψε κάποιο σφάλμα κατά την επικόλληση.
        If Err Then MsgBox Err.Description, vbExclamation, "Paste error"
        Application.CutCopyMode = False 'Καθάρισμα του clipboard.
    End If
End Sub

Φιλικά, Γιάννης.