Using input from user to select from wk 1 to wk 52 in column A then when
selected copy and paste 7 cells from the row that you have selected to
another open workbook
--
BD3

Dim oCell As Range

On Error Resume Next
Set oCell = Application.InputBox("Select a cell with the mouse",
Type:=8)
On Error GoTo 0
If Not oCell Is Nothing Then
oCell.Resize(7).Copy Range("G7")
'Workbooks("otherwb.xls").Worksheets("Sheet1").Ran ge("A1")
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Using input from user to select from wk 1 to wk 52 in column A then when
selected copy and paste 7 cells from the row that you have selected to
another open workbook
--
BD3

Hi Bob
i dont think i explained properly once ive selected the cell in
column A and inputed the wk no into the messagebox and clicked okay i want 7
cells from the row i selected ie wk10 to automatically be copied and pasted
to a different open workbook , but i need it to work if any of the weeks are
selected does that make sense, if your code does that where would i insert it.
--
BD3


"Bob Phillips" wrote:


Dim oCell As Range

On Error Resume Next
Set oCell = Application.InputBox("Select a cell with the mouse",
Type:=8)
On Error GoTo 0
If Not oCell Is Nothing Then
oCell.Resize(7).Copy Range("G7")
'Workbooks("otherwb.xls").Worksheets("Sheet1").Ran ge("A1")
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Using input from user to select from wk 1 to wk 52 in column A then when
selected copy and paste 7 cells from the row that you have selected to
another open workbook
--
BD3

Mine does that, they just select the cell not input the week number. Add it
to a macro in a standard code module, and maybe create a button to assign
the macro to.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Hi Bob
i dont think i explained properly once ive selected the cell in
column A and inputed the wk no into the messagebox and clicked okay i want
7
cells from the row i selected ie wk10 to automatically be copied and
pasted
to a different open workbook , but i need it to work if any of the weeks
are
selected does that make sense, if your code does that where would i insert
it.
--
BD3


"Bob Phillips" wrote:


Dim oCell As Range

On Error Resume Next
Set oCell = Application.InputBox("Select a cell with the mouse",
Type:=8)
On Error GoTo 0
If Not oCell Is Nothing Then
oCell.Resize(7).Copy Range("G7")
'Workbooks("otherwb.xls").Worksheets("Sheet1").Ran ge("A1")
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Using input from user to select from wk 1 to wk 52 in column A then
when
selected copy and paste 7 cells from the row that you have selected to
another open workbook
--
BD3

Hi Bob me again i dont mean to be thick but would i have to do that for every
wk no or as there are 52 rows of financial information i just wanted 1 button
say on the sheet to cover all of them depending on what was selected
--
BD3


"Bob Phillips" wrote:

Mine does that, they just select the cell not input the week number. Add it
to a macro in a standard code module, and maybe create a button to assign
the macro to.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Hi Bob
i dont think i explained properly once ive selected the cell in
column A and inputed the wk no into the messagebox and clicked okay i want
7
cells from the row i selected ie wk10 to automatically be copied and
pasted
to a different open workbook , but i need it to work if any of the weeks
are
selected does that make sense, if your code does that where would i insert
it.
--
BD3


"Bob Phillips" wrote:


Dim oCell As Range

On Error Resume Next
Set oCell = Application.InputBox("Select a cell with the mouse",
Type:=8)
On Error GoTo 0
If Not oCell Is Nothing Then
oCell.Resize(7).Copy Range("G7")
'Workbooks("otherwb.xls").Worksheets("Sheet1").Ran ge("A1")
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Using input from user to select from wk 1 to wk 52 in column A then
when
selected copy and paste 7 cells from the row that you have selected to
another open workbook
--
BD3

I will create a sample workbook and post it in a short while, then you can
see what I mean and ask specific questions. Check back in an hour.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Hi Bob me again i dont mean to be thick but would i have to do that for
every
wk no or as there are 52 rows of financial information i just wanted 1
button
say on the sheet to cover all of them depending on what was selected
--
BD3


"Bob Phillips" wrote:

Mine does that, they just select the cell not input the week number. Add
it
to a macro in a standard code module, and maybe create a button to
assign
the macro to.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Hi Bob
i dont think i explained properly once ive selected the cell
in
column A and inputed the wk no into the messagebox and clicked okay i
want
7
cells from the row i selected ie wk10 to automatically be copied and
pasted
to a different open workbook , but i need it to work if any of the
weeks
are
selected does that make sense, if your code does that where would i
insert
it.
--
BD3


"Bob Phillips" wrote:


Dim oCell As Range

On Error Resume Next
Set oCell = Application.InputBox("Select a cell with the mouse",
Type:=8)
On Error GoTo 0
If Not oCell Is Nothing Then
oCell.Resize(7).Copy Range("G7")
'Workbooks("otherwb.xls").Worksheets("Sheet1").Ran ge("A1")
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Using input from user to select from wk 1 to wk 52 in column A
then
when
selected copy and paste 7 cells from the row that you have
selected to
another open workbook
--
BD3

Check out the file at http://cjoint.com/?kotgeWa4oG

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
I will create a sample workbook and post it in a short while, then you can
see what I mean and ask specific questions. Check back in an hour.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Hi Bob me again i dont mean to be thick but would i have to do that for
every
wk no or as there are 52 rows of financial information i just wanted 1
button
say on the sheet to cover all of them depending on what was selected
--
BD3


"Bob Phillips" wrote:

Mine does that, they just select the cell not input the week number.
Add
it
to a macro in a standard code module, and maybe create a button to
assign
the macro to.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Hi Bob
i dont think i explained properly once ive selected the
cell
in
column A and inputed the wk no into the messagebox and clicked okay
i
want
7
cells from the row i selected ie wk10 to automatically be copied and
pasted
to a different open workbook , but i need it to work if any of the
weeks
are
selected does that make sense, if your code does that where would i
insert
it.
--
BD3


"Bob Phillips" wrote:


Dim oCell As Range

On Error Resume Next
Set oCell = Application.InputBox("Select a cell with the
mouse",
Type:=8)
On Error GoTo 0
If Not oCell Is Nothing Then
oCell.Resize(7).Copy Range("G7")
'Workbooks("otherwb.xls").Worksheets("Sheet1").Ran ge("A1")
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Using input from user to select from wk 1 to wk 52 in column A
then
when
selected copy and paste 7 cells from the row that you have
selected to
another open workbook
--
BD3