ارجو توضيح الخطأ فى هذا الكود

[إبراهيم ابوليله]

الاخوه الافاضل

ارجو المساعده

لقد حاولت تطبيق كود ترحيل الى صفحات بناء على اسم خليه

ولكن يحدث خطأ

انا اريد الترحيل بناء على الخلايا من b3 الى e3

واسم الشيت الجديد سيكون بناء على الخليه f3

نطاق البحث يكون من a5 الى n15000

ويتم نسخ البيانات من a1 الى n150002

ارجو شرح الخطأ الذى وقعت فيه اثناء تنفيذ الكود

بيانات.rar

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

السلام عليكم

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

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

Sub Abu_Ahmed_Filter()

Set MySh = Sheets("بيانات")

shName = [F3]

For i = 1 To Sheets.Count

If Sheets(i).Name = shName Then

Reply = MsgBox("هذه الورقة موجودة مسبقاً" & Chr(10) & "هل تريد ترحيل البيانات اليها على أية حال", vbYesNo, "تنبيه")

If Reply = vbYes Then GoTo 1

Exit Sub

End If

Next

    Sheets.Add After:=Sheets(Sheets.Count)

    ActiveSheet.Name = shName

1:

LR = Sheets(shName).[A10000].End(xlUp).Row + 1

MySh.[B4:N15000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=MySh.[As1:AV2], _

    CopyToRange:=Sheets(shName).Range("A" & LR & ":M" & LR), Unique:=False

End Sub

بيانات.rar

[إبراهيم ابوليله]

الاخ عبد الله

هل يمكن اظهار السطر الخاص بالجمع

عند نسخ البيانات

من A 15002الى M 15002

بيانات.rar

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

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

[إبراهيم ابوليله]

ممكن يحسب البيانات المرحله\

[إبراهيم ابوليله]

الاخ عبد الله تكون مشكورا لو ارفقت لى الطرقيتن

نسخ البيانات كما هيا

والطريقه الثانيه حساب البيانات

ولك كل الشكر