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-com
ffice
ffice" /><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


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


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


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


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


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


Private Sub BtnClear_Click()<o


Columns("A:A").Select<o


Selection.ClearContents<o


Worksheets("PROCESS_ISBN").Activate<o


Worksheets("PROCESS_ISBN").Range("A1").Select<o


Dim col As String<o


<o


<o


ActiveSheet.PasteSpecial Format:="Text", LINK:=False, DisplayAsIcon:= _<o


False<o


Rows("1:8").Select<o


Range("A8").Activate<o


Selection.delete Shift:=xlUp<o


Call SUPERCOPY<o


Call MoveIsbnsV2<o


<o


Worksheets("ISBNs").Activate<o


<o


col = Worksheets("ISBNs").Range("GF1").Value<o


<o


<o


If col <> "" Then<o


Btntransfer.Enabled = True<o


Btntransfer.Visible = True<o


BtnClear.Enabled = False<o


BtnClear.Visible = False<o


<o


End If<o


Worksheets("PROCESS_ISBN").Activate<o


<o


End Sub<o


Last edited: