[Spirosgr]

Καλημέρα
Μια μέθοδος, είναι η παρακάτω:

Με κάποιο τρόπο (πχ ένα κουμπί, ή όπως θέλεις) τρέχεις τον κώδικα:

Κώδικας:

Sub CopyToNotepad()
    Dim iFileNumber As Integer
    Sheet1.Range("b5").Copy
    iFileNumber = FreeFile()
    Open "C:\Users\ΧΡΗΣΤΗΣ\Desktop\" & ActiveSheet.Name _
         & " " & Format(Date, "dd_mm_yyyy") & ".txt" For Output As #iFileNumber
    Close #iFileNumber
    Shell "Notepad C:\Users\ΧΡΗΣΤΗΣ\Desktop\" & ActiveSheet.Name _
          & " " & Format(Date, "dd_mm_yyyy") & ".txt", vbNormalFocus
    SendKeys "^v^s%{F4}"
    Application.CutCopyMode = False
End Sub

Δημιουργεί ένα .txt αρχείο με όνομα Φύλλο_Ημερομηνία στην Επιφάνεια εργασίας
με περιεχόμενο το περιεχόμενο του b5 κελιού.

Σημειώσεις:
1] Προσαρμόστε το path (διαδρομή)

2] Την ώρα που θα τρέξει ο κώδικας, το πληκτρολόγιο, γυρισμένο Αγγλικά.

3] Επειδή ο κώδικας απενεργοποιεί, το NUMLOCK
πρέπει να εμπλέξεις και DoEvents
*Αν κάποιος (πχ σε μικρά Laptop), δεν έχει το αριθμητικό πληκτρολόγιο και NUMLOCK
δεν χρειάζεται το DoEvents