Mohamed FouadM قام بنشر ديسمبر 23, 2013 قام بنشر ديسمبر 23, 2013 يا جماعه افيدونى اريد كود ترحيل بشرطين ومرفق ملف للتوضيح ولكم منى الشكر Book1.rar
احمدزمان قام بنشر ديسمبر 23, 2013 قام بنشر ديسمبر 23, 2013 السلام عليكم استخدم الدالة SUMPRODUCT لعدد الموجود من رقم ونوع القيد - اذا كان الناتج اكبر من 0 اذا مكرر و اذا كان الناتج =0 اذا غير مكرر ويفضل ان تضيف شرط وجود التاريخ و وجود المبلغ و وجود رقم الحساب بحيث لا يتم الترحيل الا بعد اكتمال كل البيانات 1
Mohamed FouadM قام بنشر ديسمبر 24, 2013 الكاتب قام بنشر ديسمبر 24, 2013 تسلملى عيونك ويسلملى كل اداره الموقع المحترم ولكم من الله التوفيق ولكم منى كل الشكر والاحترام
احمدزمان قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 تسلملى عيونك ايه الغزل ده اخجلتم تواضعنا 1
جلال الجمال_ابو أدهم قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 اخى _ احمد زمان بارك الله فيك _ منكم نستفيد 1
احمدزمان قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 اخى _ احمد زمان بارك الله فيك _ منكم نستفيد اخي الفاضل جمال جزاك الله خيرا وبارك الله فيك
saad abed قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 اخى احمد زمان وحشتنا ابداعاتك جزاك الله خيرا
عادل ابوزيد قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 استاذى العزيز الكبير المحترم احمد زمان فى اعمالك اتعلم المعادلات باستخدامات واشكال مختلفة غير التى اعرفها واعمال مدرسه جديده وطرق جديده ممهده للمعرفه جعلها الله فى ميزان حسناتك وزادك من علمه وفضله ممكن شرح الكود وخصوصاً الجزء الثانى والخاص بالترحيل
احمدزمان قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 اخى احمد زمان وحشتنا ابداعاتك جزاك الله خيرا اخي الحبيب سعد عابد انته الي واحشنا تشرفت بمرورك احبك الله الذي احببتنا فية
احمدزمان قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 السلام عليكم استاذى العزيز الكبير المحترم احمد زمان فى اعمالك اتعلم المعادلات باستخدامات واشكال مختلفة غير التى اعرفها واعمال مدرسه جديده وطرق جديده ممهده للمعرفه جعلها الله فى ميزان حسناتك وزادك من علمه وفضله ممكن شرح الكود وخصوصاً الجزء الثانى والخاص بالترحيل اخي عادل ابوزيد هي عملية نسخ ولصق ويدويا تتم كالتالي تحديد الخلايا - ثم - نسخ تذهب للمكان المحدد - تحدد اول خلية فقط لصق مخصص - ثم لصق القيم تحياتي
عادل ابوزيد قام بنشر ديسمبر 25, 2013 قام بنشر ديسمبر 25, 2013 الاستاذ الكبير المحترم القدير احمد زمان اشكرك على سرعة الرد والتوضيح وارجو ان تقراً الملف المرفق فبه شرح للكود كما فهمته وبه بعض الاستفسارات ارجو ان توضحها ليكتمل بها فهمى لمثل هذه الاكواد تقبل منى كل الحب والتقدير والعرفان وخالص دعائى بالصحة والستر والعافية شرح كود ترحيل.rar
احمدزمان قام بنشر ديسمبر 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 في هذه الحاله لم اجربها ولا اعلم
عادل ابوزيد قام بنشر ديسمبر 29, 2013 قام بنشر ديسمبر 29, 2013 استاذى العزيز الغالى المحترم احمد زمان فى هذا المنتدى لن نتعامل ولا نرى بعضنا البعض ولكن نتعامل ونرى بعضنا من خلال اعمالنا وردودنا ففى كل مرة اتشرف بقراءة ردودكم يزداد يقينى اننى اتعامل مع شخصية محترمة بمعنى الكلمة يملاها الصدق والادب فردودك واعمالك جميلة ومهزبة جزاك الله كل خير وجعلها فى ميزان حسناتك وانارت لك طريقك فى الدنيا والاخرة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.