Excel button on each row

[argonx]

Greetings,

I try to find a way to make buttons that will copy row content to other worksheet in same file to different cells when I press on "COPY"
The button should be cell and dynamic because of large number of rows (more than 3000)

Here is example

[TABLE="width: 401"]
<tbody>[TR]
[/TR]
[TR]
[/TR]
[TR]
[TD][/TD]
[TD="class: xl64, align: left"][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="class: xl64, align: left"][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="class: xl64, align: left"][/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 401"]
<tbody>[TR]
[/TR]
</tbody>[/TABLE]

 

[mikerickson]

Your code shows that you want
Double click on a cell
Take Columns B, C & D from that row
Move them of C5, C6 and C7 of Result sheet

Is that what you want or do you want?

Move them to after the last filled in cells of Column C of Result sheet

 

[argonx]

Your code shows that you want
Double click on a cell
Take Columns B, C & D from that row
Move them of C5, C6 and C7 of Result sheet

Is that what you want or do you want?

Move them to after the last filled in cells of Column C of Result sheet

Yes, that's right, if You can show me code example for 2 cells I will make ti for others?

 

[mikerickson]

Which is right
C5,C6,C7 every time
or
After the last filled of column C

 

[argonx]

Which is right
C5,C6,C7 every time
or
After the last filled of column C

C5, C6, C7 in "result" sheet are always same

 

[mikerickson]

You could put this in the code module for the sheet "Start"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <= 4 Then
        Cancel = True
        With Sheets("Result")
            .Range("C5").Value = Target.EntireRow.Cells("B1").Value
            .Range("C6").Value = Target.EntireRow.Cells("C1").Value
            .Range("C7").Value = Target.EntireRow.Cells("D1").Value
        End With
    End If
End Sub