Formülsüz veri taşıma

[sdtssmz]

Merhaba
aşağıdaki formül ile bir sayfadaki satırın "U" sütununa Bitti yazınca biten sipariş sayfasına sorunsuz taşıyabiliyorum. ama ben bunu taşırken formüleri taşımasını istemiyorum yani yalnız değerleri taşısın istiyorum bunun için aşağıdaki formülü nasıl düzenlemem gerekir yardımcı olur musunuz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Intersect(Target, Range("U2:U" & Cells(Rows.Count, 1).End(3).Row)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target = "BİTTİ" Then
sat = Target.Row
Range("A" & Target.Row & ":U" & Target.Row).Cut _
Sheets("BİTEN SİPARİŞ").Cells(Sheets("BİTEN SİPARİŞ").Cells(Rows.Count, 1).End(3).Row + 1, 1)
Range("A" & sat & ":U" & sat).Delete Shift:=xlUp
End If
Application.EnableEvents = True
End Sub

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Intersect(Target, Range("U2:U" & Cells(Rows.Count, 1).End(3).Row)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target = "BİTTİ" Then
sat = Target.Row
Range("A" & Target.Row & ":U" & Target.Row).Copy: Sheets("BİTEN SİPARİŞ").Cells(Sheets("BİTEN SİPARİŞ") _
    .Cells(Rows.Count, 1).End(3).Row + 1, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Range("A" & sat & ":U" & sat).Delete Shift:=xlUp
End If
Application.EnableEvents = True
End Sub

 

[sdtssmz]

İlginiz için teşekkür ederim ama maalesef formüllü taşıyor yine örnek dosya ekliyorum.

İndir KİTAP

Dosyayı indir KİTAP

dosya.co

 

[sdtssmz]

Paste:=xlPasteValues İle düzelttim teşekkürler