لأهل الخبرة لو سمحتم أريد الكود بدل ما يرحل كمعادلات يرحل بدون معادلات ويرحل كقيم فقط
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
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