EDUCATED MONKEY
Board Regular
- Joined
- Jul 17, 2011
- Messages
- 218
Win xp office xp 2003 IE 8<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Object to open IE by clicking a url on worksheet and then select all the copy then past data into column A<o></o>
<o></o>
<o></o>
At the moment I am doing this manually by click the hyperlink on the worksheet then clicking on the page that is displayed then typing control A to select it all then control C to copy it then move back to the worksheet click at button that pasts the selected content in to column A what happens next is reforming of the data in column A.
<o></o>
This is a very time consuming process and I wish to remain at the worksheet while the necessary processes happen in the background thus saving the time moving from worksheet to IE then back to worksheet<o></o>
<o></o>
As I am not sure what you would call this process I have skipped through the site for ideas as yet nothing the seems to be what I need <o></o>
<o></o>
Below is part of the button click event that I use to accomplish this manually I can supply the code for the sub that it calls if required <o></o>
<o></o>
<o></o>
Private Sub BtnClear_Click()<o></o>
Columns("A:A").Select<o></o>
Selection.ClearContents<o></o>
Worksheets("PROCESS_ISBN").Activate<o></o>
Worksheets("PROCESS_ISBN").Range("A1").Select<o></o>
Dim col As String<o></o>
<o></o>
<o></o>
ActiveSheet.PasteSpecial Format:="Text", LINK:=False, DisplayAsIcon:= _<o></o>
False<o></o>
Rows("1:8").Select<o></o>
Range("A8").Activate<o></o>
Selection.delete Shift:=xlUp<o></o>
Call SUPERCOPY<o></o>
Call MoveIsbnsV2<o></o>
<o></o>
Worksheets("ISBNs").Activate<o></o>
<o></o>
col = Worksheets("ISBNs").Range("GF1").Value<o></o>
<o></o>
<o></o>
If col <> "" Then<o></o>
Btntransfer.Enabled = True<o></o>
Btntransfer.Visible = True<o></o>
BtnClear.Enabled = False<o></o>
BtnClear.Visible = False<o></o>
<o></o>
End If<o></o>
Worksheets("PROCESS_ISBN").Activate<o></o>
<o></o>
End Sub<o></o>
<o></o>
Object to open IE by clicking a url on worksheet and then select all the copy then past data into column A<o></o>
<o></o>
<o></o>
At the moment I am doing this manually by click the hyperlink on the worksheet then clicking on the page that is displayed then typing control A to select it all then control C to copy it then move back to the worksheet click at button that pasts the selected content in to column A what happens next is reforming of the data in column A.
<o></o>
This is a very time consuming process and I wish to remain at the worksheet while the necessary processes happen in the background thus saving the time moving from worksheet to IE then back to worksheet<o></o>
<o></o>
As I am not sure what you would call this process I have skipped through the site for ideas as yet nothing the seems to be what I need <o></o>
<o></o>
Below is part of the button click event that I use to accomplish this manually I can supply the code for the sub that it calls if required <o></o>
<o></o>
<o></o>
Private Sub BtnClear_Click()<o></o>
Columns("A:A").Select<o></o>
Selection.ClearContents<o></o>
Worksheets("PROCESS_ISBN").Activate<o></o>
Worksheets("PROCESS_ISBN").Range("A1").Select<o></o>
Dim col As String<o></o>
<o></o>
<o></o>
ActiveSheet.PasteSpecial Format:="Text", LINK:=False, DisplayAsIcon:= _<o></o>
False<o></o>
Rows("1:8").Select<o></o>
Range("A8").Activate<o></o>
Selection.delete Shift:=xlUp<o></o>
Call SUPERCOPY<o></o>
Call MoveIsbnsV2<o></o>
<o></o>
Worksheets("ISBNs").Activate<o></o>
<o></o>
col = Worksheets("ISBNs").Range("GF1").Value<o></o>
<o></o>
<o></o>
If col <> "" Then<o></o>
Btntransfer.Enabled = True<o></o>
Btntransfer.Visible = True<o></o>
BtnClear.Enabled = False<o></o>
BtnClear.Visible = False<o></o>
<o></o>
End If<o></o>
Worksheets("PROCESS_ISBN").Activate<o></o>
<o></o>
End Sub<o></o>
Last edited: