ExcelBanter - Macro to copy to application

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Macro to copy to application (https://www.excelbanter.com/excel-programming/319421-macro-copy-application.html)

MrPetreli

Macro to copy to application

Hi

I want to create a macro which will copy data in cell from excel to another application.

I need to macro to run through column A copy the first cell (A1), and paste it an external application, The go to B2 in excel copy and paste in application and do the same until it reaches a blank cell and the macro stops.

I have the basic concept to work the sendkeys with the application, but Im stuck how to loop in excel and proceed down the columns until it reaches a blank cell.

Any Suggestions?

Code:

 Sub copy()





'

'Excel Sheet

    Selection.Copy



'Activate Application

    AppActivate "appname"

    Delay 1

    SendKeys "{HOME}{TAB 7}", True

    SendKeys "%(EP)", True

    SendKeys "{F2}", True

    

  End Sub

MrPetreli

If I do it in a loop would it work??

Do While Not IsEmpty(ActiveCell.Offset(0, 1))

ActiveCell.Selection.Copy

ActiveCell.Offset(1, 0).Select

'Activate Application
AppActivate "appname"
Delay 1
SendKeys "{HOME}{TAB 7}", True

'EP=Edit Paste
SendKeys "%(EP)", True
SendKeys "{F2}", True

Loop

End Sub

MrPetreli

Got it working, hope it helps others.

Quote:

Sub APPS()
Dim r As Long
r = 2
c = 2
r1 = 2
c2 = 2

Do Until Cells(r, 1).Value = ""

'Copy from Column A

Cells(r, 1).Select
Selection.Copy

'Activate Apps Name
AppActivate "AppName"
Delay 1
'Navigate & Paste
SendKeys "{HOME}", 200
SendKeys "{TAB}", 200
SendKeys "{TAB}", 200
SendKeys "%(EP)", 200
SendKeys "{ENTER}", 200

'Copy from Column B
Cells(c, 2).Select
Selection.Copy

'Activate Apps Name
AppActivate "AppName"

'Navigate & Paste
SendKeys "{HOME}", 200
SendKeys "{TAB}", 200
SendKeys "{TAB}", 200
SendKeys "{TAB}", 200
SendKeys "%(EP)", 200
SendKeys "{ENTER}", 200

r = r + 1
r1 = r1 + 1
c = c + 1

Loop

MsgBox "COMPLETE", vbOKOnly, "INFORMATION"

End Sub

Anwaar

Quote:

Originally Posted by MrPetreli (Post 1217219)

Got it working, hope it helps others.

Hi MrPetreli,

I have a similar need as yours. I need a macro to copy text in cell A1 and paste it on certain tab ( Email Address ) in another application. I have searched the net and you seem to the only one to have got any closer to solving it. I am a novice and dont have knowledge of VBA. Any help for creating such a macro would greatly be appreciated.

Best Wishes,
Anwaar

All times are GMT +1. The time now is 04:21 PM.