ترحيل من شيت الى شيت فى نفس الملف

[ابو سما]

اخوانى الاعزاء

ارجوا مساعدتى فى هذا الملف حيث اريد كود ترحيل بحيث اى شئ يتم كتابتة فى شيت رقم 1 يتم ترحيلة الى شيت رقم 2 واذا تم حذف اى شئ فى شيت1 لا تحذف من شيت 2 حتى وان تم حذف الشيت رقم 1 بالكامل يظل رقم 2 كما هو

pro-1.xlsx

[حسين مامون]

تفضل انظر المرفق 

اي تغيير في المدى (B4:F100000) تتجده في الصفحة الاخرى

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adrs
adrs = Target.Address
If Not Intersect(Target, Range("b4:f100000")) Is Nothing Then
Sheets("Sheet2").Range(adrs) = Target
End If
End Sub

 

pro-1.xlsm

[ابو سما]

استاذى الفاضل

تسلم ايدك ولكن ارجو ان يزيد على ذلك  واذا تم حذف اى شئ فى شيت1 لا تحذف من شيت 2 حتى وان تم حذف الشيت رقم 1 بالكامل يظل رقم 2 كما هو

 

[حسين مامون]

تفضل

 

pro-1.xlsm

[ابو سما]

استاذى الفاضل

كل ما احاول مسح بيانات بتظهر الرسالة دة وانا اسف على التطويل

[حسين مامون]

انسخ هذا السطر والصقه

On Error Resume Next

بعد السطر الثاني في الكود

[ابو سما]

 : استاذى الفاضل حسين-مامون

اولا اشكرك كثيرا جدا على تعبك وانا اسف ولكن عند عمل نسخ من صفحة خارجية ووضعها بالملف لاتظهر فى الصفحة الاخرى واسف مرة اخرى على زيادة الطلبات