الرسائل الباقية والرسائل المنتهية

[ولد الحجاز]

بسم الله الرحمن الرحيم

اريد من الاساتذة الكرام من خلال المرفق عمل هذا البرنامج والمسمى بالرسائل الباقية والمنتهية

والشرح موجود داخل المرفق

الرسائل.rar

[عبدالله المجرب]

السلام عليكم

اليك المطلوب الاول

جرب تكتب في خلية عمود F سيتم الترحيل

الرسائل.rar

[ولد الحجاز]

استاذي الرائع دائما

تم فعلا الترحيل الى ورقة 2 ولكن بقيت الرسالة في ورقة واحد ولم ترحل

فصارت موجودة في ورقة 1 وورقة 2

[عبدالله المجرب]

جرب هذا التعديل

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo 1

If Not Intersect(Target, [F2:F100]) Is Nothing Then

Application.ScreenUpdating = False

If Target.Value = "" Then Exit Sub

Target.Offset(0, -5).Resize(1, 6).Copy

Sheets("ورقة2").Range("A" & Sheets("ورقة2").[A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues

Target.Offset(0, -5).Resize(1, 6).Delete Shift:=xlUp

Application.CutCopyMode = False

End If

1 End Sub

[ولد الحجاز]

ممتاز

[أبو ردينة]

بارك الله فيك أبا أحمد و نفع بعلمك

متابع للتعلم