Hello,
Having issues with the code of being able to copy and paste from Excel to Notepad. The issue specifically is how inconsistent the results are. Results I've seen are, data gets pasted, not pasted. Not sure what I am doing wrong and any help would be appreciated.
Copy of code I've been trying:
Sub CopyDataExcelNotepad()
Worksheets("Sheet2").Activate
Range("A:A").Copy
myApp = Shell("Notepad.exe", vbNormalFocus)
SendKeys "^v"
CutCopyMode = False
End Sub
Hi JSH,
I have no idea what else is happening in your code, so this is just a guess.
Put a "DoEvents" just before SendKeys (do it after also) and see what happens.
https://msdn.microsoft.com/en-us/vba...vents-function
One test is worth a thousand opinions.
Click the * Add Reputation below to say thanks.
Hi !
The easy way is to export worksheet to a text file then open this text file via NotePad …
Hi MarvinPOriginally Posted by MarvinP
I didn't have to change the code. In confusion I overlooked where the scroll bar was after the macro completed because it copies all of column A, blanks included.
Pretty novice miss on my end...
To fine tune it, since it is copying the entire column is there a way for it to stop at the last cell with data in it? I looked up LastRow code for VBA but I saw examples needing a cell reference which in this case I can't apply a cell reference due to the amount of the data can vary each time I go to run the macro.
Last edited by JSH2017; 04-26-2018 at 09:21 AM.
Hi Marc L,
Thanks for the suggestion. What I am working on I want to be able to run a macro and have the majority of the data processing automated with one run of a macro.
Plus this forces me to learn more about VBA.
Disregard this request.
Adding the below at the end fine tuned it well enough.
SendKeys "^{Home}"
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks