Copieren door ergens dubbel te klikken

[KTimmer]

Hallo.

met de volgende code copieer ik een regel uit de ActiveSheet naar blad2
zover gaat het goed.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Target.EntireRow.Copy Sheets("Blad2").Range("A65536").End(xlUp).Offset(1, 0)

End sub

Nu wil ik de zelfde regel als waar ik dubbelklick in cell H een 1 plaatsen.
de 1 in cell H is er voor zodat ik kan zien dat deze rij gecopieerd is.

maar ik zit met de regel nummer in mijn maag. dit is afhankelijk waar ik dubbelklick.
hoe los ik dit op.

Groet koos.

 

[HSV]

Cells(Target.Row, 8) = 1

 

[KTimmer]

Hallo Harry.

Ik was de hele avond al aan het proberen maar lukte niet.

dank je wel.

Groet Koos.:thumb:

 

[KTimmer]

Hallo.

Misschien weet iemand hier ook iets op.


kan ik in plaats van de hele rij ook een paar cellen in een rij copieren bv
row 1 t/m 5 ?

Target.EntireRow.Copy Sheets("Blad2").Range("A65536").End(xlUp).Offset(1, 0)

 

[Cobbe]

En dan hier mijn bijdrage:

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
 If Intersect(target, Range("A:A")) Is Nothing Then Exit Sub
    Range(target.Address).Resize(, 7).Copy Sheets("Blad2").Range("A65536").End(xlUp).Offset(1, 0)
        Cells(target.Row, 8) = 1
End Sub

 

[KTimmer]

Hallo Cobbe.

Dank je voor jou bijdrage.

mijn probleem is opgelost maar ik wordt wel nieuwschierig hoe ik het zou moeten doen als ik
b.v. de waarde uit rij 1 en rij 3 en rij 6 wil copieren.

groeten Koos.:thumb: