خليل احمد خليل قام بنشر مارس 20, 2015 قام بنشر مارس 20, 2015 اسلام عليكم ورحمه الله انا عايز كود ترحيل من صفحه المشتريات الى صفحه البيانات book1.rar
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 أستاذ خليل ..ألست أنت العضو طارق شاهين ؟؟ أعتقد أن نفس الملف تقريبا تم العمل عليه من قبل ... إذا كنت أنت هو فلما الدخول بأكثر من عضوية ..!!! لاحظت أن بعض الأعضاء يقوموم بذلك ولا أرى سبب واضح لعمل ذلك .. عموما إذا لم تكن هو أنت ... السؤال هل الفاتورة في ورقة المشتريات عبارة عن بند واحد أم أكثر من بند ؟؟
خليل احمد خليل قام بنشر مارس 21, 2015 الكاتب قام بنشر مارس 21, 2015 (معدل) السلام عليكم ورحمة الله اسعد الله اوقاتكم بالخير والمسرات ....اخي ياسر الموضوع موجود مسبقا و حولت انا اغير في كود نقل ولكنني لم اسطيع ..... انا ظعيف جدا نعم اخي الفاتوره في ورقه المشتريات تم تعديل مارس 21, 2015 بواسطه خليل احمد خليل
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 إذاً أخي الفاضل اطرح الملف الموجود مسبقاً لتوفير الوقت والجهد .. التعديل في الكود يكون أسهل من كتابة الكود من جديد .. ولم تجب على سؤالي ..ألست أنت العضو TarekChahine
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 أخي الفاضل لم الدخول بأكثر من عضوية ؟؟ سؤال يلح عليا بشدة ؟!!!!! أرجو الاجابة على السؤال وجزيت خيرا
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 انسخ الكود الذي تمت إضافته في الموضوع السابق .. للتعديل عليه بما يناسبك
خليل احمد خليل قام بنشر مارس 21, 2015 الكاتب قام بنشر مارس 21, 2015 (معدل) استاذ ياسر الحمدلله وصلت الحل Sub Tarh() LR = [A58].End(xlUp).Row If LR < 20 Then MsgBox "No data to shift": Exit Sub nm = [b11]: dt = [b17]: bil = [K11] Set Q_P = Union(Range("A20:A" & LR), Range("E20:E" & LR)) Set dsc = Range("B20:B" & LR) n = dsc.Count Sheets("الارشف").Activate nr = [E9999].End(xlUp).Row + 1 dsc.Copy Cells(nr, 7).PasteSpecial Paste:=xlPasteValues Q_P.Copy Cells(nr, 8).PasteSpecial Paste:=xlPasteValues Range("E" & nr & ":E" & nr + n - 1) = dt Range("F" & nr & ":F" & nr + n - 1) = nm Range("D" & nr & ":D" & nr + n - 1) = bil Sheets("المشتريات").Activate Set dsc = dsc.Resize(n, 3) dsc.Select dsc.ClearContents [b11:C11].ClearContents Q_P.ClearContents [K11] = [K11] + 1001 End Sub تم تعديل مارس 21, 2015 بواسطه خليل احمد خليل
خليل احمد خليل قام بنشر مارس 21, 2015 الكاتب قام بنشر مارس 21, 2015 كود application screen update = false لا أدري أين بالضبط يجب وضعه
حمادة عمر قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 برجاء الاجابة علي سؤال الاستاذ ياسر لماذا تقوم بالدخول باسم آخر وعضوية أخري أخ طارق ... ما هو السبب ؟؟؟؟؟؟؟؟؟؟؟؟؟ Application.ScreenUpdating = False xxx xxxx xxxx xxxx xxx Application.ScreenUpdating = True
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 الأخ الفاضل طارق أو خليل أحمد (حيرتنا باسمك) أعتقد أن هناك موضوع مشابه تماما لهذا الموضوع وتمت الإجابة عليك مسبقاً .. وهذا يعتبر هدر لوقت الجميع ، فيرجى عدم تكرار هذا الأمر إليك الملف المرفق بعد القيام بالتعديل المناسب ليناسب عملك دا رابط الموضوع الآخر http://www.officena.net/ib/index.php?showtopic=59871 Tarhil Bill Data.rar
خليل احمد خليل قام بنشر مارس 22, 2015 الكاتب قام بنشر مارس 22, 2015 استاذ ياسر ممكن تعديل علي الكود مسح البيانات بعد ترحيل
ياسر خليل أبو البراء قام بنشر مارس 22, 2015 قام بنشر مارس 22, 2015 تفضل أخي الفاضل Tarhil Bill Data V2.rar
Mohammad shawky قام بنشر مارس 22, 2015 قام بنشر مارس 22, 2015 السلام عليكم اخواتى واستاذتى المعلمين الافاضل طالب فورم عباره عن قاعده بياانات اسجل بيه العملاء يعنى كل واحد بيدحل لازم اسجل اسمه ورقم جوازه وتليفونه وعنوانه والملبغ الى دفعه والمبلغ الباقى وتاريخ رحلته عايز بقى فورم اكتب فيه كل ده وادوس حفظ يتحفظ واسجل واحد غيره وهكذا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.