Inhoud kopiëren, niet de opmaak

[mariken]

Met behulp van dit forum wordt met de volgende code rij A-F gekopieerd naar I-O. Werkt perfect.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Count = 1 Then
    With Range("A" & Target.Row).resize(1, 7)
        Range("I" & Rows.Count).End(xlUp).Offset(1, 0).resize(1, 7).Value = .Value
        .Delete xlUp
    End With
End If
End Sub

A-F heeft een andere opmaak dan I-O. Is het mogelijk om de opmaak niet mee te laten kopiëren?
Mariken

 

[Niels28]

De opmaak wordt toch ook niet mee gekopieerd???
Als je bedoelt dat de opmaak niet verwijdert mag worden.
verander dan .delete xlup in .ClearContents

Niels

 

[Cobbe]

Wellicht dat je hier verder mee komt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Count = 1 Then
  With Range("A" & Target.Row).Resize(1, 7)
        .Copy
    Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 7).PasteSpecial Paste:=xlValues
        .Delete xlUp
   End With
End If
End Sub

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 7 And Target.Count = 1 Then
    With cells(Target.Row,1).Resize(, 7)
        .offset(,7)=.value
        .clearcontents
    End With
  End If
End Sub

 

[mariken]

Sorry voor de late reactie. Ik kreeg geen terugkoppeling per mail, vandaar.
Bijna goed, maar de datum en tijdstip worden als het ware samengevoegd: in de formulebalk: 0-1-1900 11:16:00.

 

[snb]

Waar heb je het over ?

 

[mariken]

Uiteindelijk volstaat oplossing van Niels28. Allen weer bedankt voor het meedenken.:thumb: