abo mohamad قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 السلام عليكم <BR>لا اطيل على حضراتكم <BR>المطلوب فى المرفق الترحيل.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 اخي ابو محمود السلام عليكم لماذا لا تجرب استخدام التصفية التلقائية AutoFilter او ان الموضوع الذي تحتاجه اكبر من ذلك هذا حل على السريع ربما تكون الفكرة غائبة عنك رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 اخي ابو محمود السلام عليكم لماذا لا تجرب استخدام التصفية التلقائية AutoFilter او ان الموضوع الذي تحتاجه اكبر من ذلك هذا حل على السريع ربما تكون الفكرة غائبة عنك جزاك الله خيرا اخى الكريم ما اريده اكبر من هذا بكثير مثالى هذا مجرد فكره بسيطه لما اريده فالشيت الاول يمثل اليوميه والتى تحتوى على اكثر من 200 قيد فى الشهر اما الشيت الثانى فهو يمثل حساب الشركاء ( مسحوباتهم النقديه) والجدول الموجود فى الشيت الثانى بمثابة جدول يبين مسحوبات احد الشركاء والمطلوب هو الترحيل من اليوميه الى الحساب الفرعي الخاص بالشركاء والمشكله ان الترحيل يتم ولكن بالصفوف الفارغه التى لاتخص الشريك والمطلوب هو الغائها وجزاكم الله خيرا اسف اطلت فى الشرح لكن هعمل ايه مش قادر اوصل للقيد او المعادله التى تفى بالمطلوب اخوك أبو محمد رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 (معدل) السلام عليكم ======== اخى ابو محمد ضع الكود التالى Sub HH() Dim myrange As Range, lastc Selection.SpecialCells(xlCellTypeLastCell).Select lastc = ActiveCell.Row On Error GoTo nozeros Set myrange = Range("IV1:IV" & lastc) With myrange .Formula = "=IF(COUNTIF(RC[-255]:RC[-1],0)>0,1,"""")" .Value = .Value .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete .Clear End With Range("A1").Select Exit Sub nozeros: Range("A1").Select MsgBox ("لا يوجد صفوف بها الرقم صفر ليتم مسحها") End Sub واليك مرفق بطريقة العمل وسامحنى لانى اعمل على اوفيس 2003 شرح ادراج كود.rar تم تعديل أبريل 22, 2010 بواسطه هشام شلبى رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 (معدل) السلام عليكم ======== اخى ابو محمد ضع الكود التالى Sub HH() Dim myrange As Range, lastc Selection.SpecialCells(xlCellTypeLastCell).Select lastc = ActiveCell.Row On Error GoTo nozeros Set myrange = Range("IV1:IV" & lastc) With myrange .Formula = "=IF(COUNTIF(RC[-255]:RC[-1],0)>0,1,"""")" .Value = .Value .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete .Clear End With Range("A1").Select Exit Sub nozeros: Range("A1").Select MsgBox ("لا يوجد صفوف بها الرقم صفر ليتم مسحها") End Sub واليك مرفق بطريقة العمل وسامحنى لانى اعمل على اوفيس 2003 [/quote السلام عليكم اخى هشام جزاك الله الف خير وانا اللى اسف انى أثقلت عليك ممكن لو سمحت تشوف الملف المرفق وتقولى فين المشكله انا اعمل على نسخه 2007 فهل هذا هو السبب؟ ولك منى كل الشكر والتقدير hhhh.rar تم تعديل أبريل 22, 2010 بواسطه abo mohamad رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أبريل 22, 2010 مشاركة قام بنشر أبريل 22, 2010 (معدل) السلام عليكم =========== طاب مساءك ابو محمد فى ليلة الجمعة المباركة مش عارف ايه السبب يمكن يكون من النسخ احتمال اليك طريقة اخرى احتمال تكون جديدة عليك سارفق لك الكود فقط حمله ثم فك الضغط واحفظ مكانه واتبع الشرح Module1.rar طريقة ارفاق الكود بالاستيراد.rar تم تعديل أبريل 22, 2010 بواسطه هشام شلبى رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر أبريل 22, 2010 الكاتب مشاركة قام بنشر أبريل 22, 2010 السلام عليكم =========== طاب مساءك ابو محمد فى ليلة الجمعة المباركة مش عارف ايه السبب يمكن يكون من النسخ احتمال اليك طريقة اخرى احتمال تكون جديدة عليك سارفق لك الكود فقط حمله ثم فك الضغط واحفظ مكانه واتبع الشرح بارك الله فيك اخى الكريم فعلا المشكله كانت من النسخ جزاك الله الف خير عاجز عن الشكر وبارك الله فيك رابط هذا التعليق شارك 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.