Kopiëren en plakken als waarden

[Gerwinvdb]

Kan iemand mij helpen aan een macro voor het volgende:

Wanneer er een "X" staat in kolom H dan moeten de vijf voorgaande cellen (kolom C t/m G) uit de dezelfde rij gekopieerd en als waarden worden geplakt.

Hopelijk kan iemand mij hier spoedig mee helpen.

Alvast bedankt.

 

[Gerwinvdb]

De gekopieerde cellen mogen op de zelfde locatie geplakt worden als waarden. Er zitten namelijk formules in die er dan uit moeten

 

[VenA]

Probeer het zo eens.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 8 Then Exit Sub
    If Target.Count = 1 And LCase(Target) = "x" Then Target.Offset(, -5).Resize(, 5) = Target.Offset(, -5).Resize(, 5).Value
End Sub

 

[Gerwinvdb]

Bedankt voor de snelle reactie. Het werkt!!