I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.

Sub SetCellValue()
'Sets current cell value to that of column D of the same row
ActiveCell.Value = ActiveSheet.Cells(ActiveCell.Row, 4).Value
End Sub

Vaya con Dios,
Chuck, CABGx3





"W.Easton" wrote:

I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.

Assign this to a button.

Sub copyit()
n = ActiveCell.Row
With ActiveCell
..Value = Excel.Range("D" & n).Value
End With
End Sub

OR Double-click on a cell...........no button needed.

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
n = Target.Row
With Target
..Value = Excel.Range("D" & n).Value
End With
SendKeys "{ENTER}", True
End Sub

The copyit macro will be pasted into a general module.

The BeforeDoubleClick event code will be pasted into a sheet module.


Gord Dibben MS Excel MVP


On Fri, 12 Jan 2007 09:56:02 -0800, W.Easton <-=spam=- at meleetech [,] com
wrote:

I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.

I have placed an example of what you are looking for at
http://www.HelpExcel.com/examples

The name of the spreadsheet is copyColumn.xls
--
http://HelpExcel.com




"W.Easton" wrote:

I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.

This almost worked, but I replaced your
...Value = Excel.Range("D" & n).Value
with
ActiveCell.Value = ActiveSheet.Cells(ActiveCell.Row, 4).Value (posted by CLR
above)
and it worked great, the double click function makes this really handy too.

Thank you,
W. Clay Easton


"Gord Dibben" wrote:

Assign this to a button.

Sub copyit()
n = ActiveCell.Row
With ActiveCell
..Value = Excel.Range("D" & n).Value
End With
End Sub

OR Double-click on a cell...........no button needed.

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
n = Target.Row
With Target
..Value = Excel.Range("D" & n).Value
End With
SendKeys "{ENTER}", True
End Sub

The copyit macro will be pasted into a general module.

The BeforeDoubleClick event code will be pasted into a sheet module.


Gord Dibben MS Excel MVP


On Fri, 12 Jan 2007 09:56:02 -0800, W.Easton <-=spam=- at meleetech [,] com
wrote:

I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.

Thank you, I combined your ActiveCell line with what Gord posted below and it
works great.
I really appreciate the fast response.

Thank you,
W. Clay Easton
--
Mistakes have been made, others will be blamed


"CLR" wrote:

Sub SetCellValue()
'Sets current cell value to that of column D of the same row
ActiveCell.Value = ActiveSheet.Cells(ActiveCell.Row, 4).Value
End Sub

Vaya con Dios,
Chuck, CABGx3





"W.Easton" wrote:

I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.

Happy to help, and thanks for the feedback..........

Vaya con Dios,
Chuck, CABGx3



"W.Easton" wrote:

Thank you, I combined your ActiveCell line with what Gord posted below and it
works great.
I really appreciate the fast response.

Thank you,
W. Clay Easton
--
Mistakes have been made, others will be blamed


"CLR" wrote:

Sub SetCellValue()
'Sets current cell value to that of column D of the same row
ActiveCell.Value = ActiveSheet.Cells(ActiveCell.Row, 4).Value
End Sub

Vaya con Dios,
Chuck, CABGx3





"W.Easton" wrote:

I am trying to make a funtion (because I am lazy, and there are about 3k
worth of lines that I need to go through) that will copy a specific cell to
the selected cell

Basically what I would like it to do is when I select a cell and and hit a
button it would copy the contents from the current row, column 4 to the
selected cell.