I have a macro that will open up google translate and return the English translation of a designated Spanish text. I can then copy the translation, activate my Excel workbook and paste it into a designated cell. What I'd like to be able to do is have additional code in the macro that will do that as well.
Here is my code. I've also attached the workbook.
Application.ScreenUpdating = False
Dim cel As Range, TxT As String
Set cel = [E2]
TxT = Replace(cel.Value, " ", "%20")
[J2].Hyperlinks.Add Anchor:=[J2], Address:= _
"https://translate.google.com/", SubAddress:="es/en/" & TxT, _
TextToDisplay:="https://translate.google.com/#es/en/" & TxT
'[J2].Font.ColorIndex = 2
[J2].Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
'Here I need code that will copy the English translation
'and then append it to a designated cel
Application.ScreenUpdating = True
The link to google translate is in cell J2. The macro populates J2 with the phrase to be translated: "https://translate.google.com/#es/en/40C,%2015A%20IFE%20no%20permite%20sellecionar%20peliculas.%20Se%20congela%20y%20luego%20vuelve%20a%20menu%20inicial.%20Reset%20y%20no%20funciona