أريد الكود يرحل كقيم لا معادلات (( لو تكرمتم )

[أبو يوسف النجار]

لأهل الخبرة لو سمحتم أريد الكود بدل ما يرحل كمعادلات يرحل بدون معادلات ويرحل كقيم فقط 

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

Private Sub CommandButton8_Click()
 Sheets("بيانات للقيد").Select
    Dim ws As Worksheet
    Dim myDate As Date
    
    Set ws = Sheets("بيانات للقيد")
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With ws
        .AutoFilterMode = False
        .Range("A7:S7").AutoFilter Field:=12, Criteria1:="=محول إلى المدرسة", Operator:=xlOr, Criteria2:="="
        .UsedRange.Offset(7).SpecialCells(xlCellTypeVisible).Copy
    End With
   
    Sheets("ادخال بيانات").Activate
    Range("A8").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   Sheets("بيانات للقيد").Select
    Selection.AutoFilter
       
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   MsgBox ("تم إضافة التغيرات - لإدخال البيانات")
End Sub
 

[سليم حاصبيا]

استبدل في الكود كلمة xlPasteAll  بالرقم 12

[ياسر خليل أبو البراء]

أخي الكريم أبو يوسف النجار

يراعى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط ويفضل إرفاق ملف في أي موضوع ..

والحل كما أسلف أخونا سليم أو وضع كلمة PasteAsValues بدلاً من كلمة PasteAll