cellen kopieren en plakken na op cel te klikken

[ginogcsbelgie]

Hallo iedereen,
kan iemand mij helpen met het volgende probleem?
ik zou in exell een formule willen plaatsen op een cel wanneer ik bv op a6 klik dat hij cel a3 kopieert en plakt in a4.
en hij zou dat telkens met de volgende cellen ook moeten doen
bv klikken op b6 en b3 kopieren en plakken in b4
bv klikken op c6 en c3 kopieren en plakken in c4
bv klikken op d6 en d3 kopieren en plakken in d4
en zo verder zodat ik niet telkens een andere macro nodig heb om dit te doen maar met 1 stukje code?

alvast hartelijk dank als iemand me hiermee wil verder helpen.

 

[HSV]

Als het alleen om de waarden gaat.

Met een dubbelklik.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 6 Then
  Target.Offset(-2) = Target.Offset(-3)
  Cancel = True
End If
End Sub

 

[ginogcsbelgie]

hartelijk dank Harry,
nog 1 vraagje indien mogelijk
en als ik bv cel a6 aanklik in blad 1 en dat hij dan cel a3 kopieert en plakt in blad 2 op cel b2
en dan ook b6 aanklikken is b3 kopieren en plakken in blad 2 op cel b2 ( de laatste cel blijft altijd hetzelfde )
en zo verder met 1 formule
alvast bedankt

 

[HSV]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 6 Then
  [COLOR=#ff0000]sheets("blad2").range("b2")[/COLOR]= Target.Offset(-3)
  Cancel = True
End If
End Sub

 

[ginogcsbelgie]

bedankt Harry ,
en als ik telkens een cel in een column ( bv column G )wil gebruiken om te klikken?
als ik dit aanpas werkt het niet !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
Sheets("Factuur").Range("b2") = Target.Offset(-3)
Cancel = True
End If
End Sub

 

[HSV]

Die werkt wel, maar gaat drie rijen omhoog vanuit de cel die je klikt.

Als je dus klikt op G10 komt de waarde van G7 in B2 van Factuur.

=target.offset(-3)

Behalve als je op de eerste drie rijen van kolom G klikt niet.
Er is dan geen offset(-3) en geeft een foutmelding.

 

[VenA]

Wat werkt er dan niet? Erg veel informatie geef je niet en een voorbeeldbestandje is ook nergens te vinden.:d

 

[ginogcsbelgie]

ja dat werkt, maar de bedoeling is klikken op bv G6 en dan 3 column terug dus D6 kopieren naar blad 2 cel B2
en zo verder maar wel telkens klikken in de column G
G5 = copy D5 naar blad 2 cel B2
G4 = copy D4 naar blad 2 cel B2
G3 = copy D3 naar blad 2 cel B2

dit is miss duidelijker geschreven
alvast bedankt Harry voor de hulp.

 

[HSV]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.column = 7 Then
  sheets("blad2").range("b2")= Target.Offset(,-3)
  Cancel = True
End If
End Sub

 

[ginogcsbelgie]

Hartelijk dank Harry, ik kan verder bouwen aan mijn programmatje