Mohamed FouadM قام بنشر ديسمبر 23, 2013 مشاركة قام بنشر ديسمبر 23, 2013 يا جماعه افيدونى اريد كود ترحيل بشرطين ومرفق ملف للتوضيح ولكم منى الشكر Book1.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر ديسمبر 23, 2013 مشاركة قام بنشر ديسمبر 23, 2013 السلام عليكم استخدم الدالة SUMPRODUCT لعدد الموجود من رقم ونوع القيد - اذا كان الناتج اكبر من 0 اذا مكرر و اذا كان الناتج =0 اذا غير مكرر ويفضل ان تضيف شرط وجود التاريخ و وجود المبلغ و وجود رقم الحساب بحيث لا يتم الترحيل الا بعد اكتمال كل البيانات 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر ديسمبر 23, 2013 مشاركة قام بنشر ديسمبر 23, 2013 السلام عليكم BOOK_1.rar 1 رابط هذا التعليق شارك More sharing options...
Mohamed FouadM قام بنشر ديسمبر 24, 2013 الكاتب مشاركة قام بنشر ديسمبر 24, 2013 تسلملى عيونك ويسلملى كل اداره الموقع المحترم ولكم من الله التوفيق ولكم منى كل الشكر والاحترام رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 تسلملى عيونك ايه الغزل ده اخجلتم تواضعنا 1 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 اخى _ احمد زمان بارك الله فيك _ منكم نستفيد 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 اخى _ احمد زمان بارك الله فيك _ منكم نستفيد اخي الفاضل جمال جزاك الله خيرا وبارك الله فيك رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 اخى احمد زمان وحشتنا ابداعاتك جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 استاذى العزيز الكبير المحترم احمد زمان فى اعمالك اتعلم المعادلات باستخدامات واشكال مختلفة غير التى اعرفها واعمال مدرسه جديده وطرق جديده ممهده للمعرفه جعلها الله فى ميزان حسناتك وزادك من علمه وفضله ممكن شرح الكود وخصوصاً الجزء الثانى والخاص بالترحيل رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 اخى احمد زمان وحشتنا ابداعاتك جزاك الله خيرا اخي الحبيب سعد عابد انته الي واحشنا تشرفت بمرورك احبك الله الذي احببتنا فية رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 السلام عليكم استاذى العزيز الكبير المحترم احمد زمان فى اعمالك اتعلم المعادلات باستخدامات واشكال مختلفة غير التى اعرفها واعمال مدرسه جديده وطرق جديده ممهده للمعرفه جعلها الله فى ميزان حسناتك وزادك من علمه وفضله ممكن شرح الكود وخصوصاً الجزء الثانى والخاص بالترحيل اخي عادل ابوزيد هي عملية نسخ ولصق ويدويا تتم كالتالي تحديد الخلايا - ثم - نسخ تذهب للمكان المحدد - تحدد اول خلية فقط لصق مخصص - ثم لصق القيم تحياتي رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر ديسمبر 25, 2013 مشاركة قام بنشر ديسمبر 25, 2013 الاستاذ الكبير المحترم القدير احمد زمان اشكرك على سرعة الرد والتوضيح وارجو ان تقراً الملف المرفق فبه شرح للكود كما فهمته وبه بعض الاستفسارات ارجو ان توضحها ليكتمل بها فهمى لمثل هذه الاكواد تقبل منى كل الحب والتقدير والعرفان وخالص دعائى بالصحة والستر والعافية شرح كود ترحيل.rar رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر ديسمبر 25, 2013 مشاركة قام بنشر ديسمبر 25, 2013 للرفع رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر ديسمبر 27, 2013 مشاركة قام بنشر ديسمبر 27, 2013 للرفع رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر ديسمبر 28, 2013 مشاركة قام بنشر ديسمبر 28, 2013 ارجو المعذرة لكثرة الرفع رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر ديسمبر 29, 2013 مشاركة قام بنشر ديسمبر 29, 2013 السلام عليكم TR = Application.CountA(Sheets("Sheet_2").Range("B1:B55555")) + 2 هذا السطر لتسمية اخر خلية فارغة فى العمود b باسم tr والسؤال لماذا b وهل ممكن تكود العمود الاول a ، وهل +2 لان البيانات تبدا بعد الصف الثانى لأن b بها بيانات اما A فهي فارغة و لذلك سوف تعطينا خطأ في العدد ممكن تكون اي عمود ويجب ان تكون العمود الذي به اكبر عدد من البيانات او العامود الذي نضمن انه لاتوجد به خلايا فارغة و +2 لان البيانات تبدا بعد الصف الثانى امر النسخ والسؤال اذا اردنا ان ننسخ خلايا متفرقة فى نفس الصف مثلاً الخلية a و الخلية c و الخلية g ماذا سيكون الامر Sheets("Sheet_2").Range("A" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False هذا امر اللصق وفيه تم تحديد الخلية فى العمود a والواقعة فى اخر خلية فى العمود b ثم لصق خاص للقيمة دون المعادلات ، والباقى SkipBlanks :=False, Transpose:=False لا افهمه لا ادري ولكن هي تركيبتها كدة والسؤال الاخر مرتبط بالافتراض الاول فى امر النسخ (ان ننسخ خلايا متفرقة فى نفس الصف مثلاً الخلية a و الخلية c و الخلية g ) ماذا سيكون الامر اذا اردنا ان نلصق هذه الخلايا المتفرقة فى الصف بحيث ان تكون مرتبة بمعنى اللصق فى a , b ,c بالترتيب في هذه الحاله نستخدم الفاصلة"," في الكود عند النسخ وعند اللصق نحدد اللصق في اول خلية نريد اللصق في صفها ومن الأفضل هنا استخدام الأمر cells وليس Range وماذا سيكون الامر اذا اردنا ان نلصق هذه الخلايا المتفرقة فيما يناظرها بمعنى a.c.g في هذه الحاله لم اجربها ولا اعلم رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر ديسمبر 29, 2013 مشاركة قام بنشر ديسمبر 29, 2013 استاذى العزيز الغالى المحترم احمد زمان فى هذا المنتدى لن نتعامل ولا نرى بعضنا البعض ولكن نتعامل ونرى بعضنا من خلال اعمالنا وردودنا ففى كل مرة اتشرف بقراءة ردودكم يزداد يقينى اننى اتعامل مع شخصية محترمة بمعنى الكلمة يملاها الصدق والادب فردودك واعمالك جميلة ومهزبة جزاك الله كل خير وجعلها فى ميزان حسناتك وانارت لك طريقك فى الدنيا والاخرة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان