VBA Macro to Copy From Excel and Paste to Notepad

Sub ExportToNotepad()
        Cells.Find(What:= _
       
"criteria_to_find", _    'this finds criteria and hilights down
        After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) _
        .Activate
    Range(Selection, Selection.End(xlDown)).Select
   
Selection.Copy
'this opens notepad and...
Shell "notepad.exe", vbMaximizedFocus
    SendKeys "^v"
   
SendKeys "^h"
   
SendKeys """"
   
SendKeys "%a"
   
SendKeys "%{F4}"
   
SendKeys"^s"
End Sub



Comments

No comments yet
*Name:
Email:
Notify me about new comments on this page
Hide my email
*Text:
 
 
Comments Powered by: Scriptsmill Comments Script
Web designed by: Jose Guevara Balboa © 2015Comments Admin