إبراهيم ابوليله قام بنشر مايو 21, 2012 مشاركة قام بنشر مايو 21, 2012 الاخوه الافاضل ارجو المساعده لقد حاولت تطبيق كود ترحيل الى صفحات بناء على اسم خليه ولكن يحدث خطأ انا اريد الترحيل بناء على الخلايا من b3 الى e3 واسم الشيت الجديد سيكون بناء على الخليه f3 نطاق البحث يكون من a5 الى n15000 ويتم نسخ البيانات من a1 الى n150002 ارجو شرح الخطأ الذى وقعت فيه اثناء تنفيذ الكود بيانات.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 21, 2012 مشاركة قام بنشر مايو 21, 2012 السلام عليكم قمت بعمل كود جديد يعتمد على التصفية المتقدمة حسب شروطك فان لم تكن هناك ورقة عمل بالاسم الموجود في الخلية يتم اضافة ورقة جديدة بهذا الاسم وترحيل البيانات اليها وان كانت موجودة يتم تخييرك ما بين الترحيل من عدمه فان اخترت الترحيل يتم الترحيل اسفل البيانات السابقة 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 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مايو 22, 2012 الكاتب مشاركة قام بنشر مايو 22, 2012 الاخ عبد الله هل يمكن اظهار السطر الخاص بالجمع عند نسخ البيانات من A 15002الى M 15002 بيانات.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 22, 2012 مشاركة قام بنشر مايو 22, 2012 هل ينقل كما هو ام يحسب البيانات المرحلة فقط رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مايو 23, 2012 الكاتب مشاركة قام بنشر مايو 23, 2012 ممكن يحسب البيانات المرحله\ رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مايو 23, 2012 الكاتب مشاركة قام بنشر مايو 23, 2012 الاخ عبد الله تكون مشكورا لو ارفقت لى الطرقيتن نسخ البيانات كما هيا والطريقه الثانيه حساب البيانات ولك كل الشكر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.